Geum.ru

Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x

Информация - Компьютеры, программирование

Другие материалы по предмету Компьютеры, программирование

> St:string[68];

var F72:file of Ant; { Переменные вопросов}

At:Ant;

R1:string[2];

Z1:integer;

S:string[68];

var F73: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;

REZ7:Longint; {переменная оценки}

var Size:word;

pt:pointer;

u,Nn,xt,yt:integer;

procedure RAZDEL70;

implementation

procedure RAZDEL70;

Label 0,1,2,3;

begin

REZ7:=6;

GraphRegim;

Assign(F7,RAZTEX7.pas); {связь с файлом теории}

{SI-}

Reset(F7);

{SI+}

0thenWriteln(RAZTEX7.pas);"> If IOResult <> 0 then Writeln (Нет файла RAZTEX7.pas);

repeat

OKNO;

For N:=0 to 32 do

begin

Read(F7,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

For Nn:=0 to 3 do

begin

GetMem(pt,ImageSize(0,200,50,250));

GetImage(0,200,50,250,pt^);

u:=0;

while u<(GetMaxX) do

begin

PutImage(u-1,150,pt^,1);

u:=u+8;

PutImage(u-1,150,pt^,1);

end;

Dispose(pt);

end;

end;

2:begin

SetViewPort(10,50,630,330,true);

SetBKColor(0);

SetViewPort(20,60,620,320,true);

ClearViewPort;

SetBKColor(14); Sound(880); Delay(200); NoSound;

SetBKColor(12); Sound(698); Delay(200); NoSound;

SetBKColor(14); Sound(880); Delay(200); NoSound;

SetBKColor(12); Sound(698); Delay(200); NoSound;

SetBKColor(10); Sound(934); Delay(200); NoSound;

SetBKColor(14); Sound(880); Delay(200); NoSound;

SetBKColor(13); Sound(784); Delay(400); NoSound;

SetBKColor(1); Sound(523); Delay(200); NoSound;

SetBKColor(9); Sound(523); Delay(200); NoSound;

SetBKColor(1); Sound(523); Delay(200); NoSound;

SetBKColor(2); Sound(587); Delay(100); NoSound;

SetBKColor(5); Sound(659); Delay(100); NoSound;

SetBKColor(4); Sound(699); Delay(200); NoSound;

SetBKColor(3); Sound(699); Delay(200); NoSound;

SetBKColor(4); Sound(699); Delay(200); NoSound;

Delay(600);

SetViewPort(5,5,635,335,true);

SetBKColor(14);

ClearDevice;

OKNO;

End;

#:GoTo 0;

0:GoTo 0;

end;

end;

0:readkey;

until A.P1=0 ;

Close(F7);

Assign(F72,Jos.pas); {связь с файлом вопросов}

{SI-}

Reset(F72);

{SI+}