Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
0thenWriteln(Jos.pas);"> If IOResult<>0 then Writeln(Нет файла Jos.pas);
Assign(F73,Ios.pas);
{SI-}
Reset(F73); {связь с файлом справок}
{SI+}
0thenWriteln(Ios.pas);"> If IOResult<>0 then Writeln(Нет файла Ios.pas);
OKNO1; {"Контрольные вопросы"}
readkey;
ClearDevice;
Randomize; {Выбор четырех номеров вопросов}
For J:=0 to 3 do
begin
1:I:=Random(7);
If I=0 then GOTO 1;
For K:=0 to J-1 do
begin
If M[k]=I then GOTO 1;
end;
M[J]:=I;
end;
repeat
OKNO;
begin
Read(F72,At);
R1:=StrPas(At.P2);{Преобразование ASCIIZ-строки At.P2 в
строку типа string}
Val(R1,Z1,Code); {Преобразование символьного представления
номера вопроса в двоичную форму}
Y:=20;
If(Z1=M[0]) or (Z1=M[1]) or (Z1=M[2]) or (Z1=M[3]) then
begin
repeat
S:=StrPas(At.P3); {Преобразование ASCIIZ-строки At.P3 в
строку типа string}
OutTextXY(20,Y,S); {Вывод текста вопроса}
case At.P1 of
:begin
end;
end;
Y:=Y+10;
Read(F72,At);
until At.P1=*;
OutTextXY(50,320,ВВЕДИТЕ НОМЕР ПРАВИЛЬНОГО ОТВЕТА ___);
2:CH:=ReadKey;
SetColor(4);
OutTextXY(320,310,CH);
SetColor(1);
readkey;
If(CH4) then
begin
SetFillStyle(1,11);
Bar(318,290,327,320);
GoTo 2;
end
else
repeat
Read(F73,Atr);
R2:=StrPas(Atr.P2); {Преобразование ASCIIZ-строки Atr.P2 в
строку типа string}
Val(R2,Z2,Code); {Преобразование символьного представления
номера вопроса в двоичную форму}
If Z2=Z1 then
begin
repeat
If Atr.P3=CH then
begin
Y:=100;
OKNO;
repeat
Stt:=StrPas(Atr.P4); {Преобразование ASCIIZ-строки Atr.P4 в
строку типа string}
R5:=StrPas(Atr.P5); {Преобразование ASCIIZ-строки Atr.P5 в
строку типа string}
Val(R5,Z5,Code); {Преобразование символьного представления
оценки в двоичную форму}
REZ7:=Round((REZ7+Z5)/2); {Формирование оценки }
OutTextXY(20,Y,Stt);
Y:=Y+10;
case Atr.P1 of
:begin
end;
end;
Read(F73,Atr);
until Atr.P3=*;
readkey;
GOTO 3;
end
else Read(F73,Atr);
until Atr.P1=*;
end
until Atr.P1=0;
end
else
3:end;
until At.P1=0;
Close(F72);
Close(F73);
CloseGraph;
end;
begin
end.
unit MYBOOK;
interface