Question

Napisz program w Pascalu obliczający pola następujących figur:

kwadratu, prostokątu, trapezu, równoległoboku, trójkątu, koła, latawca.

Answer 1

program nazwa;

var

a,b,c,d,e,f,g,h,i,j,k,l,m,n,p:integer;

begin

writeln ('Podaj długosc boku kwadratu');

readln (a);

p:=a^2;

writeln ('Pole kwadratu wynosi',p);

writeln ('Poadaj dlugosci bokow prostokata');

readln (b);

readln (c);

p:=b*c;

writeln ('Pole prostokąta wynosi',p);

writeln ('Podaj długości podstaw i wysokosc trapezu');

readln (d);

readln (e);

readln (f);

p:=(a+b)*f/2;

writeln ('Pole trapezu wynosi',p);

writeln ('Podaj dlugosc podstawy oraz wysokosc rownolegloboku');

readln (g);

readln (h);

p:=g*h/2;

writeln ('Pole rownolegloboku wynosi',p);

writeln ('podaj dl podst oraz wys trojkata');

readln (i);

readln (j);

p:=i*j/2;

writeln ('Pole trojkata wynosi',p);

writeln ('podaj promien kola');

readln (k);

p:=k^2*3;

writeln ('Pole kola wynosi',p);

writeln ('Podaj dlugosci przekatnych latawca');

readln (l);

readln (m);

p:=m*l/2;

writeln ('Pole latawca wynosi',p);

readln;

end.