Код
AssignFile (F, s);
Reset(F);
while not EOF(F) do
begin
Readln (F, s);
MyWriteln(s);
end;
можно вообще их реализовать при таком вводе?
зы пробовал делать пару процедур по мануалам - не работают чиво они так?
Код
procedure GotoXY(X, Y: Word);
begin
Coord.X := X;
Coord.Y := Y;
SetConsoleCursorPosition(ConHandle, Coord);
end;
procedure ClrScr;
begin
Coord.X := 0;
Coord.Y := 0;
FillConsoleOutputCharacter(ConHandle, ' ', MaxX * MaxY, Coord, NOAW);
GotoXY(0, 0);
end;
ззы или плз киньте линки на литературу >__>
Сообщение отредактировано: kr3v3tkus -