Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ вывод данных по столбцам

Автор: Client 22.10.2007 23:23

я хочу вывести числа от 1 хотя бы до 300 в столбики по 50 строк но получается глюк.
я мыслил так:сначала вывожу от 1 до 50 с помощью гоуту х у (1,и) где и-счетчик. потом с дивами и модами...
вот текст но на масте 51 прога потом выводит 101, или вообще че другое если изменить условие, но не то как я хочу.

Добавлено через 6 мин.


uses crt;
var
i,n,k,j:integer;
begin
clrscr;
k:=1;
for i:=1 to 200 do
begin
j:=i div 51;
n:=i div 50;
if (n>=1) and (i-n*50=1) then
begin
gotoxy(16*n,1);
write(i:4);

end
else
if i<=50 then
begin
gotoxy(1,i);
write(i:4)
end
else
if (i>50) and (i-n*50<>1) then
begin
gotoxy(16*(i div 51),(i mod 51)+k);
write(i:4);

end;
delay(1000);
end;
readkey
end.

.
если не правильно то извините

Автор: volvo 22.10.2007 23:35

uses crt;
const
n = 20; { <--- сколько чисел в столбце }
every = 5; { <--- "ширина" каждого столбца }

var
i: integer;

begin
clrscr;
for i := 1 to 200 do begin
gotoxy((pred(i) div n) * every + 1, (pred(i) mod n) + 1);
write(i:every)
end;
end.

?

Автор: Client 22.10.2007 23:46

Спасибо!
это ты так с ходу решил?
Молоток smile.gif