Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація
Розробка комп'ютерних навчальних засобів з обраної предметної області
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;
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
© Referats, Inc · All rights reserved 2021