Отправлено Виноградов Алексей 17 октября 2003 г. 14:31 В ответ на: Затянись настоящим Паскалем (+) отправлено Виноградов Алексей 17 октября 2003 г. 14:26

program Arrays_operation;
uses crt;

var x : array [1..4, 1..4] of real;
i, j, x_position, y_position : byte;
inttostr : string;
begin
clrscr;
x_position:=1;
y_position:=1;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
gotoxy (x_position, y_position);
read (x[i,j]);
str(x[i, j],inttostr);
x_position:=x_position + length(inttostr);
end;
x_position:=1;
y_position:=y_position + 1;
gotoxy(x_position, y_position);
end;
end.

• clrscr и gotoxy никакого отношения к настоящему паскалю не имею :) — Elektronik   (17.10.2003 15:39, пустое)
  • Эй, мужики, на Паскалистов наезжают ! :) — Виноградов Алексей   (17.10.2003 16:43, пустое)
    • Ответ: Он же сам честно написал (цитирую)- "никакого отношения к настоящему Паскалю не имею". За язык не тянули - сам сознался! — Vjacheslav   (17.10.2003 20:05, пустое)
    • Ответ: Ежели ему Uses Crt ничего не говорит, то пусть наезжает! — Vjacheslav   (17.10.2003 20:03, пустое)