svetik_makova | Дата: Суббота, 21.12.2013, 10:38 | Сообщение # 1 |
Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
| помогите пожалуйста
var f:text; s:string; i:byte; begin assign(f,'C:\Program Files\PABC\file1.txt'); reset(f); while not eof(f) do begin readln(f,s); i:=1; while i<80 do begin clrscr; gotoXY(80-i,1); write(copy(s,1,i)); gotoXY(80,25); delay(100); i:=i+1; end; while length(s)>0 do begin delete(s,1,1); clrscr; write(s); gotoXY(80,25); delay(100); end; end; gotoXY(25,13); write('Нажмите любую клавишу для выхода'); close(f); readkey; end.
|
|
| |
diamFC | Дата: Воскресенье, 16.02.2014, 09:24 | Сообщение # 2 |
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Правила, они для всех
|
|
| |