Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
SetColor(1);
end;
1:begin
SetColor(4);
Arc(500,150,0,278,30);
OutTextXY(490,140,(X,Y));
OutTextXY(500,150,.);
SetColor(1);
end;
2:begin
SetColor(4);
Circle(500,300,30);
OutTextXY(475,290,(X,Y));
OutTextXY(500,300,.);
SetColor(1);
end;
3:begin
SetBKColor(15);
SetColor(4);
Ellipse(500,100,0,278,50,25);
OutTextXY(490,90,(X,Y));
OutTextXY(500,100,.);
SetColor(1);
end;
4: begin
SetColor(2);
Ellipse(500,180,10,270,50,30);
Line(500,135,460,225);
SetFillStyle(4,14);
FloodFill(455,180,2);
end;
5: begin
SetColor(4);
Ellipse(500,300,0,361,50,30);
FillEllipse(500,300,50,30);
SetFillStyle(1,15);
SetColor(1);
end;
6: begin
SetFillStyle(7,13);
PieSlice(500,120,0,120,50);
end;
7: begin
SetFillStyle(9,13);
Sector(500,200,0,270,50,30);
SetFillStyle(1,15);
end;
8:begin
SetFillStyle(1,9);
Bar(250,100,600,200);
SetViewPort(250,100,600,200,true);
FloodFill(260,110, 1);
Randomize;
repeat
PutPixel(Random(GetMaxX),Random(GetMaxY),15);
Delay(15);
until KeyPressed;
SetFillStyle(1,15);
SetViewPort(5,5,635,345,true);
end;
9: begin
Diogramma;
end;
0:GoTo 0
end;
end;
0:readkey;
until A.P1=0;
Close(F5);
Assign(F52,Join.pas); {связь с файлом вопросов}
{SI-}
Reset(F52);
{SI+}
0thenWriteln(Join.pas);"> If IOResult<>0 then Writeln(Нет файла Join.pas);
Assign(F53,Iodin.pas);
{SI-}
Reset(F53); {связь с файлом справок}
{SI+}
0thenWriteln(Iodin.pas);"> If IOResult<>0 then Writeln(Нет файла Iodin.pas);
OKNO1; {"Контрольные вопросы"}
readkey;
ClearDevice;
Randomize; {Выбор четырех номеров вопросов}
For J:=0 to 3 do
begin
1:I:=Random(6);
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(F52,At); { вывод текста вопросов и справок }
R1:=StrPas(At.P2);
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);
OutTextXY(20,Y,S);
case At.P1 of
2:begin
end
end;
Y:=Y+10;
Read(F52,At);
until At.P1=*;
OutTextXY(50,330,ВВЕДИТЕ НОМЕР ПРАВИЛЬНОГО ОТВЕТА ___);
2:CH:=ReadKey;
SetColor(4);
OutTextXY(320,325,CH);
SetColor(1);
readkey;
If(CH4) then
begin
SetFillStyle(1,11);
Bar(318,320,327,340);
GoTo 2;
end
else
repeat
Read(F53,Atr);
R2:=StrPas(Atr.P2);
Val(R2,Z2,Code);
If Z2=Z1 then