Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
(X:590;Y:120),(X:430;Y:120),(X:460;Y:30));
Mno:array[1..5] of PointType=((X:460;Y:170),(X:590;Y:230),
(X:590;Y:260),(X:430;Y:260),(X:460;Y:170));
{Константы для формирование иллюстраций к тексту теории}
const Ww:array[1..5] of PointType=((X:390;Y:60),(X:510;Y:60),
(X:510;Y:260),(X:390;Y:260),(X:390;Y:60));
WWW:array[1..5] of PointType=((X:380;Y:50),(X:520;Y:50),
(X:520;Y:270),(X:380;Y:270),(X:380;Y:50));
{Константы для формирования иллюстраций к тексту вопросов}
procedure RAZDEL30;
Label 0,1,2,3;
begin
REZ3:=6;
GraphRegim;
Assign(F3,RAZTEX3.pas); {Связь с файлом теста теории}
{SI-}
Reset(F3);
{SI+}
0thenWriteln(RAZTEX3.pas);"> If IOResult <> 0 then Writeln (Нет файла RAZTEX3.pas);
repeat
OKNO;
Y:=10;
For N:=0 to 31 do {Цикл вывода текста теории}
begin
Read(F3,A);
St:=StrPas(A.P2); {Преобразование ASCIIZ-строки A.P2 в строку
типа string}
case A.P1 of {Иллюстрации к тексту}
: OutTextXY(20,Y*N+10,St);
*: begin
SetColor(4);
OutTextXY(20,Y*N+10,St);
SetColor(1);
end;
щ: begin
SetColor(4);
Line(460,120,593,120);
OutTextXY(460,160,0);
OutTextXY(593,130,(X,Y));
SetColor(1);
end;
2:begin
SetColor(4);
OutTextXY(460,160,0 dX);
OutTextXY(600,180,dY);
OutTextXY(550,200,(dX,dY));
Line(460,170,593,170);
Line(593,170,593,200);
Line(460,170,593,200);
SetColor(1);
end;
3:begin
SetColor(4);
OutTextXY(430,245,(X1,Y1));
Line(460,260,593,285);
OutTextXY(580,270,(X2,Y2));
SetColor(1);
end;
4:begin
SetBKColor(2);
SetColor(4);
Rectangle(460,40,590,90);
SetColor(1);
end;
5:begin
SetFillStyle(1,4);
Bar(459,129,591,181);
SetFillStyle(8,5);
SetColor(4);
Bar(460,130,590,180);
SetColor(1);
end;
6:begin
SetFillStyle(6,5);
SetColor(4);
Bar3D(460,240,590,300,20,true);
SetCOLOR(1);
SetFillStyle(1,15);
SetBKColor(11);
end;
7:begin
SetBKColor(15);
SetColor(4);
DrawPoly(5,Mn);
SetColor(1);
end;
8:begin
SetColor(4);
SetFillStyle(11,5);
SetBKColor(15);
FillPoly(5,Mno);
SetColor(1);
SetFillStyle(1,15);
end;
0:GoTo 0;
end;
end;
0:readkey;
ClearDevice;
OKNO;
until A.P1=0;
Close(F3);
Assign(F32,Joing.pas); {связь с файлом вопросов}
{SI-}
Reset(F32);
{SI+}
0thenWriteln(Joing.pas);"> If IOResult<>0 then Writeln(Нет файла Joing.pas);
Assign(F33,Iod.pas); {связь с файлом справок}
{SI-}
Reset(F33);
{SI+}
0thenWriteln(Iod.pas);