01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / PR4

Program Pr4; {3 Ї а Ў®«л}
uses Graph;
const Xc=320; Yc=200; mas=20;
label 1;
var a,b,c,d,f,e,z,y,s,Xmax:real;
x:array [1..6] of real;
i,n,gd,gm:integer;

Procedure RKY (a,b,c:real); { ђҐиҐ­ЁҐ Єў. га ў­Ґ­Ёп }
var Ds:real;
Begin
Ds:=b*b-4*a*c;
If Ds>0 then begin n:=n+2; x[n-1]:=(-b-sqrt(Ds))/(2*a);
x[n]:=(-b+sqrt(Ds))/(2*a) end;
If Ds=0 then begin n:=n+1; x[n]:=-b/(2*a) end;
End;

Procedure PP (a,b,c:real;z:byte); { Џ®бв஥­ЁҐ Ї а Ў®«л }
const razb=10000; Dx=10;
var Xver,t,h:real;
x,y:integer;
Begin
SetColor (z);
Xver:=(-b)/(2*a);
h:=(2*Dx)/razb;
t:=Xver-Dx;
For i:=0 to razb do begin
x:=round(t*mas);
y:=round((a*t*t+b*t+c)*mas);
PutPixel (x+Xc,-y+Yc,z);
t:=t+h;
end;
End;

BEGIN
1:Writeln ('‚ўҐ¤ЁвҐ Є®нд. (Ј¤Ґ a,d,z ­Ґ а ў­л 0) :a,b,c,d,f,e,z,y,s');
ReadLn (a,b,c,d,f,e,z,y,s);
If (a=0) or (d=0) or (z=0) then GoTO 1;
n:=0;
RKY (a,b,c);
RKY (d,f,e);
RKY (z,y,s);
gd:=detect;
InitGraph (gd,gm,' ');
MoveTo (Xc,Yc);
SetColor (1);
Line (0,Yc,GetMaxX,Yc);
Line (Xc,0,Xc,GetMaxY);
PP (a,b,c,11);
PP (d,f,e,12);
PP (z,y,s,13);
For i:=-20 to 20 do begin
PutPixel (Xc,Yc+i*mas,15);
PutPixel (Xc+i*mas,Yc,15);
end;
If n=0 then write ('Љ®а­Ё ўбҐе га ў­Ґ­Ё© ­Ґ¤Ґ©б⢨⥫м­л')
else begin
Xmax:=x[1];
for i:=1 to n do if x[i]>Xmax then Xmax:=x[i];
write ('Њ ЄбЁ¬ «м­л© Є®аҐ­м=',Xmax:5:3);
end;
SetColor (14);
If n>0 then Circle (Round(Xmax*mas)+Xc,Yc,3);
readln;
END.