| 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
| Правила, они для всех
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
