Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

Розробка комп'ютерних навчальних засобів з обраної предметної області
Тип документу: Курсова
Сторінок: 29
Предмет: Комп`ютерні науки
Автор: фелікс
Розмір: 35.4
Скачувань: 1228
for i:=0 to PSIZE-1 do begin

if eof(f) then str:=''

else read(f, str);

gotoxy(1, i+2);

textattr:=11+16*1;

write(str); clreol;

end;

end;

procedure showhead;

begin

gotoxy(1, 1);

textattr:=16*3;

write('File: ', fname, ' ', pos, '/', MPOS,

' ', pos*100 div MPOS, '%');

clreol;

end;

procedure help;

begin

frame(10, 5, 70, 22, 'Help', 16*3, 16*3, true);

print(13, 7, 16*3, 'Slawa Pidgorny & Sveta Fialka proudly presents:');

print(13, 9, 16*3, 'CURSOVA 1.1');

print(13, 11, 16*3, 'Copycenter (C) 1997 UKMA');

print(13, 12, 16*3, 'University of "Kiev-Mohyla Academy"');

print(13, 13, 16*3, 'Department of Computer && System Sciences');

print(13, 15, 16*3, 'Director of the project: Oletsky Oleksiy Vitaliyevich');

print(13, 17, 16*3, 'Fullfilled by:');

print(13, 19, 16*3, ' * Slawa Pidgorny. ');

print(13, 18, 16*3, ' * Sveta Fiyalka. ');

print(13, 21, 16*3, 'Written on Turbo Pascal++ 7.0');

readkey;

The online video editor trusted by teams to make professional video in minutes