написанные программы / задание №5 — 4 / LAB_5

Program lab_5;
uses Crt, Graf ;
var
driver,mode:integer;
{Їа®жҐ¤га  з⥭Ёп д ©« }
Procedura diagramma(x0,y0:integer);
const n=5;
type massiv = array[1..n] of integer;
massiv_2 = array[1..n] of real;
var
x,y,m,z,q,e,r,mb,mc:integer;g,maxb,maxc,mn,mn1,mn2:real;
a:array[1..n] of string[20];
b,c:massiv_2;m1,m2:massiv;
i,code:integer;f:text;s,11,12:string;
begin
code:=0;
assign(f,'lab_5.txt'); {з⥭ЁҐ д ©« }
reset (f);
for i:=1 to n do
begin readln(f,s);
a[i]:=s;
end;
for i:=1 ton do
begin readln(f,s);
val(s,c[i],code);
end;
for i:=1 to n do
begin readln(f,s);
val(s,c[i],code);
end;
maxb:=b[i];
for i:=2 to n do
begin if maxb<b[i] then maxb:=b[i];
end;
maxc:=c[i];
for i:=2 to n do
begin if maxc<c[i] then maxc:=c[i];
end;
str(maxb:3:3,11); str(maxc:3:3,12);
mn1:=(y0-25)/maxb; mn2:=(y0-25)/maxc; g:=mn1;
if mn1>=mn2 then
begin g:=mn2;
end;
mn:=round(g);
maxb:=maxb*mn;
maxc:=maxc*mn;
mb:=round(maxb);
mc:=round(maxc);
for i:=1 to n do
begin
b[i]:=b[i]*mn;
m1[i]:=round(b[i]);
c[i]:=c[i]*mn;
m2[i]:=round(c[i]);
end;
m:=5;z:=2;r:=0;q:=10;
setclor(2);
line(x0,y0,x0+500,y0);
line(x0,y0-mb-10,x0+2,y0-mb-10);
outtextxy(x0-50,y0-mb-10,11);
line(x0,y0-mc,x0+2,y0-mc);
outtextxy(x0-50,y0-mc,12);
line(x0,y0,x0,1);
outtextxy(x0+498,y0-3,'>');
outtextxy(x0-3,1,'^');
for i:=1 tom do
begin
r:=r+20;q:=q+20;
setcolor(z);
settextstyle(0,1,0);
outtextxy(x0+r+10,y0+90,a[i]);
outtextxy(x0+r=10+100,y0+90,a[i]);
setfillstyle(1,z);
bar(x0+r,y0-2,x0+q,y0-m1[i]-10);
setfillstyle(9,z);
bar(x0+r+100,y0-2,x0+q+100,y0-m2[i]);
inc(z);
end;
end;
begin
driver:=detect;
initgraph(driver,mode, 'c:\bp\bgi\');
setcolor(14);
outtextxy(60,165,'„Ё Ја ¬¬  Єгаб  ¤®«« а ');
diagramma(60,150);
readkey;
end.