Question

Witam. Potrzebuję programu napisanego w Pascalu, który będzie

1. Obliczać pole kwadratu i podawać tą wartość

oraz

2. Obliczać obwód kwadratu i podawać tą wartość

Answer 1

program kawdrat;

 

uses

crt;

 

var

bok:real;

 

function pole(a:real):real;

begin

pole:=a*a;

end;

 

function obwod(a:real):real;

begin

obwod:=4*a;

end;

 

begin

clrscr;

write('Podaj dlugosc boku: ');

readln(bok);

writeln('Pole = ',pole(bok):0:2);

writeln('Obwod = ',obwod(bok):0:2);

repeat until keypressed;

end.