Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
else Read(F33,Atr);
until Atr.P1=*;
end
until Atr.P1=0;
end
else
3: end;
until At.P1=0;
Close(F32);
Close(F33);
CloseGraph;
end;
begin
end.
Unit RAZDEL4;
interface
uses Crt,Graph,Dos,Strings,MYBOOK;
type An = record {Теория}
P1:Char; {Переменная поля флага : конец файла, номер
иллюстрации}
P2:array[0..69] of char; {Переменная поля текста}
end;
type Ant=record {Текст вопросов}
P1:Char; {Переменная поля флага:конец файла, номер иллюст-
рации, конец вопроса}
P2:array[0..1] of Char; {Переменная поля номера вопроса}
P3:array[0..69] of Char; {Переменная поля текста вопроса}
end;
type Antr=record { Справки }
P1:Char; {Переменная поля флага:конец файла, конец вопроса,
номер иллюстрации}
P2:array[0..1] of Char; {Переменная поля номера вопроса}
P3:array[0..0] of Char; {Переменная поля флага: номер справки
и конец справки}
P4:array[0..69] of Char; {Переменная поля текста справки}
P5:array[0..2] of Char; {Переменная поля оценки}
end;
var F4: file of An ; {Переменные теории}
A:An;
N,Y:integer;
St:string[68];
var F32:file of Ant; { Переменные вопросов}
At:Ant;
R1:string[2];
Z1:integer;
S:string[68];
var F33:file of Antr; {Переменные справок}
Atr:Antr;
R2:string[2];
R3:string[1];
Stt:string[68];
R4:string[2];
Z2,Z3,Z4:integer;
CH: Char;{Переменная для принятия символа с клвиатуры}
K,J,I:integer; {Переменные циклов}
M: array[0..3] of integer; {Массив для хранения черырех
выбранных номеров вопросов}
Code:integer;
var R5:string[1]; {переменные вывода результатов}
Z5:integer;
REZ4:Longint; {переменная оценки}
procedure RAZDEL40;
implementation
procedure RAZDEL40;
Label 0,1,2,3;
begin
REZ4:=6;
GraphRegim;
Assign(F4,RAZTEX4.pas); {Связь с файлом текста теории}
{SI-}
Reset(F4);
{SI+}
0thenWriteln(RAZTEX4.pas);"> If IOResult <> 0 then Writeln (Нет файла RAZTEX4.pas);
repeat
ClearDevice;
OKNO;
Y:=10;
For N:=0 to 31 do {Вывод текста теории}
begin
Read(F4,A);
St:=StrPas(A.P2); {Преобразование ASCIIZ-строки A.P2 в строку
типа string}
OutTextXY(20,Y*N+10,St);
case A.P1 of
*:begin
SetColor(4);
OutTextXY(20,Y*N+10,St);
SetColor(1);
end;
1:begin SetFillStyle(1,15);
Bar(350,45,600,340);
SetFillStyle(1,0);
Bar(350,45,600,65);
SetFillStyle(1,1);
Bar(350,65,600,85);
SetFillStyle(1,2);
Bar(350,85,600,105);
SetFillStyle(1,3);
Bar(350,105,600,120);
SetFillStyle(1,4);
Bar(350,120,600,135);