Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
(F6,A);
St:=StrPas(A.P2); {Преобразование ASCIIZ-строки A.P2 в строку
типа string}
case A.P1 of
:OutTextXY(20,10*N+10,St);
*:begin
SetColor(4);
OutTextXY(20,10*N+10,St);
SetColor(1);
end;
1:begin
SetFillStyle(1,1);
Bar(10,30,630,338);
SetColor(15);
SetTextStyle(2,0,1);
OuttextXY(50,50,TriplexFont, HorizDir, 15);
SetTextStyle(1,0,3);
SetColor(12);
OutTextXY(50,100,DefaultFont, HorizDir, 12) ;
SetTextStyle(3,0,4);
SetColor(13);
OutTextXY(50,160, SmallFont, HorizDir, 13);
SetTextStyle(4,0,5);
SetColor(10);
OutTextXY(50,220,SanSerifFont, HorizDir, 10);
SetTextStyle(0,0,3);
SetColor(14);
OutTextXY(50,300,GothicFont, HorizDir, 14);
SetTextStyle(0,1,2);
SetColor(14);
OutTextXY(30,30,DefaultFont,VertDir);
SetTextStyle(0,0,1);
SetColor(1);
end;
2:begin
SetColor(4);
SetTextStyle(1,0,1);
SetUserCharSize(1,1,1,1);
OutTextXY(20,120,Turbo-Pascal 7.0);
SetUserCharSize(3,2,3,2);
OutTextXY(20,160,Turbo-Pascal 7.0);
SetUserCharSize(2,1,2,1);
OutTextXY(20,230,Turbo-Pascal 7.0);
SetTextStyle(0,0,1);
SetColor(1);
end;
3:begin
T1:=InstallUserFont(Goth);
T2:=InstallUserFont(sans);
T3:=InstallUserFont(trip);
T4:=InstallUserFont(bold);
If GraphResult<grOK then
begin
OutTextXY(40,180,Ошибка инсталляции);
readkey;
end;
SetFillStyle(1,1);
Bar(10,30,630,335);
SetTextStyle(T1,0,4);
SetColor(13);
OutTextXY(100,60,Goth.chr, HorizDir) ;
SetTextStyle(T2,0,4);
SetColor(10);
OuttextXY(100,110,Sanse, HorizDir);
SetTextStyle(T3,0,4);
SetColor(4);
OutTextXY(100,170, Trip, HorizDir);
SetTextStyle(T4,0,4);
SetColor(14);
OutTextXY(100,230,Bold, HorizDir);
SetTextStyle(0,1,2);
SetColor(15);
OutTextXY(45,35,Goth.chr, VertDir);
SetTextStyle(0,0,1);
SetColor(1);
end;
#:GoTo 0;
0:GoTo 0
end;
end;
0:readkey;
until A.P1=0;
Close(F6);
Assign(F62,Jois.pas); {связь с файлом вопросов}
{SI-}
Reset(F62);
{SI+}
0thenOutTextXY(50,100,Jois.pas);"> If IOResult<>0 then OutTextXY(50,100,Нет файла Jois.pas);
Assign(F63,Iodis.pas);
{SI-}
Reset(F63); {связь с файлом справок}
{SI+}
0thenWriteln(Iodis.pas);"> If IOResult<>0 then Writeln(Нет файла Iodis.pas);
OKNO1; {"Контрольные вопросы"}
readkey;
ClearDevice;
Randomize; {Выбор четырех номеров вопросов}
For J:=0 to 3 do
begin
1:I:=Random(10);
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;
M[1]:=1;
repeat
OKNO;
begin
Read(F62,At);
R1:=StrPas(At.P2);{Преобразование ASCIIZ-строки At.P2 в
строку типа string}
Val(R1,Z1,Code); {Преобразование символьного представления
номера вопроса в д?/p>