Обучение начальных курсов методам программирования на языке Turbo Pascal — страница 5

  • Просмотров 2711
  • Скачиваний 360
  • Размер файла 11
    Кб

gotoxy(5,3); write(' Строковый тип данных в TP 7.0 '); textcolor(15); gotoxy(12,8); write('Теория'); gotoxy(12,10); write('Помощь'); gotoxy(12,12); write('О программе'); gotoxy(12,14); write('Выход'); ins(5,x,29,1,2); c:=chr(1); while(c<>chr(13)) do begin c:=readkey; if c=chr(0) then begin c:=readkey; ins(5,x,29,15,1); if c=chr(80) then if i1=4 then begin x:=7;i1:=1;end else begin x:=x+2;i1:=i1+1; end; if c=chr(72) then if i1=1 then begin x:=13;i1:=4;end else begin x:=x-2;i1:=i1-1; end; ins(5,x,29,1,2); end; end; textmode(om); case (i1) of 1:select:=1; 2:select:=2; 3:select:=3; 4:select:=4; end; end; procedure help; var s:string; f:text; i:byte; begin textmode(co80); hide; window(10,5,70,20); textbackground(1); textcolor(15);

clrscr; write('╔═══════════════════════ Справка ═══════════════════════════╗'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ Выход любая клавиша ║');

write('╚═══════════════════════════════════════════════════════════╝'); assign(f,'help.txt'); reset(f); i:=2; while not(eof(f)) do begin gotoxy(2,i); readln(f,s); if ((s[1]='#') and (s[2]='#')) then break; writeln(s); i:=i+1; end; close(f); readkey; end; procedure about; var f:text; q:byte; s:string; begin textmode(co80); hide; window(10,5,70,20); textbackground(1); textcolor(15); clrscr;

write('╔═════════════════════ О программе ════════════════════════╗'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ ║'); write('║ Выход любая клавиша ║');

write('╚═══════════════════════════════════════════════════════════╝'); assign(f,'about.txt'); reset(f); q:=2; while not(eof(f)) do begin gotoxy(2,q); readln(f,s); if ((s[1]='#') and (s[2]='#')) then break; writeln(' ',s); q:=q+1; end; close(f); readkey; end; begin hide; findfirst('curswork.txt',anyfile,di); if doserror<>0 then begin myerror('curswork.txt'); halt(1); end; findfirst('help.txt',anyfile,di); if

doserror<>0 then begin myerror('help.txt'); halt(1); end; findfirst('about.txt',anyfile,di); if doserror<>0 then begin myerror('about.txt'); halt(1); end; j:=1; i1:=1; x:=7; while j=1 do begin i:=select; case i of 1:obuch; 2:help; 3:about; 4:begin textbackground(0);clrscr;halt;end; end; end; end.