Question

Mam napisać w Pascalu

a) Program, który obliczy pole koła o zadanym promieniu r

b) Program obliczający pole koła o zadanym promieniu, zabezpieczony

przed wprowadzaniem ujemnej i równej zero wartości promienia.

c) (Zastosowanie pętli repeat) Program obliczający pole koła o zadanym promieniu, zabezpieczony przed wprowadzaniem ujemnej i równej zero wartości promienia.

Proszę o pełną poprawność.

Schematy w załącznikach.

Z góry dzięki :)

Answer 1

program zad1;
uses CRT;
var
p,r,pi:real;
begin
ClrScr;

pi:=3.14;
write('Podaj promien: ');
readln(r);

p:=pi*r*r;

writeln;
writeln('Pole kola wynosi: ', p:0:2);

readln;
end.

 

 

program zad2;
uses CRT;
var
p,r,pi:real;
begin
ClrScr;

pi:=3.14;
write('Podaj promien: ');
readln(r);

if r>0 then
begin
p:=pi*r*r;

writeln;
writeln('Pole kola wynosi: ', p:0:2);
end

else
writeln('Promien nie moze byc ujemny ani rowny zero');

readln;
end.

 

 

 

program zad3;
uses CRT;
var
p,r,pi:real;
begin
ClrScr;

pi:=3.14;

repeat

write('Podaj promien: ');
readln(r);

if r<=0 then
writeln('Podales promien ujemny lub rowny zero. Podaj promien jeszcze raz');
writeln;

until r>0;

p:=pi*r*r;
writeln('Pole kola wynosi: ', p:0:2);

readln;
end.