|
Ðåôåðàò: Îáó÷àþùàÿ ïðîãðàììà Ãðàôèêà ïðîãðàììèðîâàíèþ â ãðàôè÷åñêîì ðåæèìå íà ÿçûêå turbo-pascal 7.x
Line(380,230,550,190);
OutTextXY(375,140,'(X,Y)');
OutTextXY(375,170,'dY');
OutTextXY(555,190,'(X1,Y1)');
OutTextXY(375,200,'dY');
end;
end;
Y:=Y+10;
Read(F32,At);
until
At.P1='*';
2:OutTextXY(50,330,'ÂÂÅÄÈÒÅ ÍÎÌÅÐ
ÏÐÀÂÈËÜÍÎÃÎ ÎÒÂÅÒÀ ___');
CH:=ReadKey;
SetColor(4);
OutTextXY(320,325,CH);
SetColor(1);
readkey;
If(CH<>'1') and (CH<>'2')
and (CH<>'3') and (CH<>'4') then
begin
SetFillStyle(1,11);
Bar(318,320,327,340);
GoTo
2;
end
else
repeat
Read(F33,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); {Ïðåîáðàçîâàíèå
ñèìâîëüíîãî
ïðåäñòàâëåíèÿ îöåíêè â äâîè÷íóþ ôîðìó}
REZ3:=Round((REZ3+Z5)/2);
{Ôîðìèðîâàíèå îöåíêè}
OutTextXY(20,Y,Stt); {Âûâîä
òåêñòà ñïðàâêè}
Y:=Y+10;
case Atr.P1 of
{èëëþñòðàöèè ê òåêñòó ñïðàâîê}
'1':begin
Line(380,150,550,190);
MoveRel(380,190);
Line(380,190,550,190);
LineTo(550,190);
OutTextXY(555,190,'(X1,Y1)');
OutTextXY(370,140,'(X,Y)');
OutTextXY(390,200,'(X,Y+dY)');
end;
'2':begin
GOTOXY(100,190);
LineTo(100,190);
LineRel(30,40);
LineRel(0,80);
end;
'3':begin
GOTOXY(100,190);
LineTo(380,150);
LineRel(30,40);
LineRel(0,80);
end;
end;
Read(F33,Atr);
until
Atr.P3='*';
readkey;
GOTO
3;
end
else Read(F33,Atr);
until
Atr.P1='*';
end
until
Atr.P1='0';
end
else
3:
end;
until At.P1='0';
Close(F32);
Close(F33);
CloseGraph;
end;
begin
end.
Unit
RAZDEL4;
interface
uses Crt,Graph,Dos,Strings,MYBOOK;
type An = record
{Òåîðèÿ}
P1:Char;
{Ïåðåìåííàÿ ïîëÿ ôëàãà : êîíåö ôàéëà, íîìåð
èëëþñòðàöèè}
P2:array[0..69] of char; {Ïåðåìåííàÿ ïîëÿ òåêñòà}
end;
type Ant=record
{Òåêñò âîïðîñîâ}
P1:Char;
{Ïåðåìåííàÿ ïîëÿ ôëàãà:êîíåö ôàéëà, íîìåð èëëþñò-
ðàöèè, êîíåö âîïðîñà}
P2:array[0..1]
of Char; {Ïåðåìåííàÿ ïîëÿ íîìåðà âîïðîñà}
P3:array[0..69] of Char; {Ïåðåìåííàÿ ïîëÿ òåêñòà âîïðîñà}
end;
type Antr=record
{ Ñïðàâêè }
P1:Char;
{Ïåðåìåííàÿ ïîëÿ ôëàãà:êîíåö ôàéëà, êîíåö âîïðîñà,
íîìåð èëëþñòðàöèè}
P2:array[0..1] of Char; {Ïåðåìåííàÿ ïîëÿ íîìåðà âîïðîñà}
P3:array[0..0] of Char; {Ïåðåìåííàÿ ïîëÿ ôëàãà: íîìåð ñïðàâêè
è êîíåö ñïðàâêè}
P4:array[0..69] of Char; {Ïåðåìåííàÿ ïîëÿ òåêñòà ñïðàâêè}
P5:array[0..2]
of Char; {Ïåðåìåííàÿ ïîëÿ îöåíêè}
end;
var F4: file of
An ; {Ïåðåìåííûå òåîðèè}
A:An;
N,Y:integer;
St:string[68];
var F32:file of
Ant; { Ïåðåìåííûå âîïðîñîâ}
At:Ant;
R1:string[2];
Z1:integer;
S:string[68];
var F33: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;
REZ4:Longint; {ïåðåìåííàÿ îöåíêè}
procedure
RAZDEL40;
implementation
procedure
RAZDEL40;
Label
0,1,2,3;
begin
REZ4:=6;
GraphRegim;
Assign(F4,'RAZTEX4.pas'); {Ñâÿçü ñ ôàéëîì òåêñòà òåîðèè}
{SI-}
Reset(F4);
{SI+}
If IOResult
<> 0 then Writeln ('Íåò ôàéëà RAZTEX4.pas');
repeat
ClearDevice;
OKNO;
Y:=10;
For N:=0 to 31
do {Âûâîä òåêñòà òåîðèè}
begin
Read(F4,A);
St:=StrPas(A.P2); {Ïðåîáðàçîâàíèå ASCIIZ-ñòðîêè A.P2 â ñòðîêó
òèïà string}
OutTextXY(20,Y*N+10,St);
case A.P1
of
'*':begin
SetColor(4);
OutTextXY(20,Y*N+10,St);
SetColor(1);
end;
'1':begin
SetFillStyle(1,15);
Bar(350,45,600,340);
SetFillStyle(1,0);
Bar(350,45,600,65);
SetFillStyle(1,1);
Bar(350,65,600,85);
SetFillStyle(1,2);
Bar(350,85,600,105);
SetFillStyle(1,3);
Bar(350,105,600,120);
SetFillStyle(1,4);
Bar(350,120,600,135);
SetFillStyle(1,5);
Bar(350,135,600,150);
SetFillStyle(1,6);
Bar(350,150,600,165);
SetFillStyle(1,7);
Bar(350,165,600,185);
SetFillStyle(1,8);
Bar(350,185,600,200);
SetFillStyle(1,9);
Bar(350,200,600,215);
SetFillStyle(1,10);
Bar(350,215,600,235);
SetFillStyle(1,11);
Bar(350,235,600,255);
SetFillStyle(1,12);
Bar(350,255,600,275);
SetFillStyle(1,13);
Bar(350,275,600,295);
SetFillStyle(1,14);
Bar(350,295,600,315);
SetFillStyle(1,15);
Bar(350,315,600,340);
end;
'2':begin
SetBKColor(15);
SetFillStyle(1,15);
Bar(200,100,600,300);
SetFillStyle(2,2);
Bar(200,100,600,120);
SetFillStyle(3,2);
Bar(200,120,600,145);
SetFillStyle(4,2);
Bar(200,145,600,168);
SetFillStyle(5,2);
Bar(200,168,600,190);
SetFillStyle(6,2);
Bar(200,190,600,210);
SetFillStyle(7,2);
Bar(200,210,600,228);
SetFillStyle(8,2);
Bar(200,228,600,246);
SetFillStyle(9,2);
Bar(200,246,600,264);
SetFillStyle(10,2);
Bar(200,264,600,282);
SetFillStyle(11,2);
Bar(200,282,600,300);
SetFillStyle(1,0);
end;
'0':GoTo
0
end;
end;
readkey;
0:until A.P1='0'
;
readkey;
Close(F4);
Assign(F32,'Joi.pas'); {ñâÿçü ñ ôàéëîì âîïðîñîâ}
{SI-}
Reset(F32);
{SI+}
If
IOResult<>0 then Writeln('Íåò ôàéëà Joi.pas');
Assign(F33,'Iodi.pas');
{SI-}
Reset(F33);
{ñâÿçü ñ ôàéëîì ñïðàâîê}
{SI+}
If
IOResult<>0 then Writeln('Íåò ôàéëà Iodi.pas');
OKNO1;
{"Êîíòðîëüíûå âîïðîñû"}
Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19
|
Ïðèãëàøåíèÿ
09.12.2013 - 16.12.2013
09.12.2013 - 16.12.2013
|