я хочу вывести числа от 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.
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.
Спасибо!
это ты так с ходу решил?
Молоток