Program pole i obwód prostokąta001

MM

Pfff

32

POLEKOLA.FAS

program pole_i_obwod; lis es crt;

war bok_a,bok_Jb, pole, obwod :real;

be gin

clrscr;

writeln<^fProgram obliczający pole i obwod prost

write<^łPodaj bok a: ¹)J

readln <bok_a>i

write<*Podaj bok b: ^J>;_

readln<bok_b>i

pole:=bok_a*bok Jb i

snd.

obwod:=2*(bok_a+bok_b>; wr ite ln<^ł Pole: ^f„pole:0:2>; writeln<*Obwod: ^ł„obwod:0:2>; readkey;

9:31