Контрольная работа 3: вариант 5

  • ID: 05981 
  • 3 страницы
60 рубСкачать

гарантия низкой цены

1.pas

2.pas

3.pas

Отчет.docx

Фрагмент работы:

Задача №1

program task1;

uses crt;

var

a,b,c,r,minr:real;

i:integer;

function radius(a,b,c:real):real;

var

p,s:real;

begin

p:=a+b+c;

s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));

radius:=s/p;

end;

begin

clrscr;

for i:=1 to 3 do begin

writeln('Treugolnik ',i);

write('Storona A = '); readln(a);

write('Storona B = '); readln(b);

write('Storona C = '); readln(c);

r:=radius(a,b,c);

if i=1 then minr:=r;

if (rk2 then begin

writeln('Massiv A');

for i:=1 to 7 do writeln(a[i]);

end

else

begin

if k1=k2 then begin

writeln('Odinakovoe kol-vo nulevyh elementov');

end

else begin

writeln('Massiv B');

for i:=1 to 9 do writeln(b[i]);

end;

end;

end;

begin

clrscr;

k1:=0; k2:=0;

writeln('Massiv A');

for i:=1 to 7 do begin

write('A[',i,'] = ');

readln(a[i]);

if a[i]=0 then k1:=k1+1;

end;

writeln('Massiv B');

for i:=1 to 9 do begin

write('B[',i,'] = ');

readln(b[i]);

if b[i]=0 then k2:=k2+1;

end;

print(k1,k2);

readln;

end.