Question

Utwórz program na obliczanie obwodu kwadratu, gdy dany jest bok - zastosuj instrukcję sprawdzania warunku na bok ,,a>0".

Napisałam tak, ale ciągle wyskakują 2 błędy.

program obwód;
used crt;
var a,o:real;
begin
clrscrt;
Writeln ('Program liczby obwód kwadratu');
Writeln ('Podaj liczbę rzeczywistą');
o:=4*a;
Readln (a);
if (a>0) then;
Writeln ('Podaj liczbę a');
else ('a musi być większe od 0');
writeln;
end.

proszę o pomoc!: D

Answer 1

program obwodzik;
uses crt;
var a:integer;
obwod :integer;
begin
clrscr;

Writeln ('Program liczy obwod kwadratu');
writeln('Podaj a');
obwod:=4*a;
readln(a);
if (a>0) then

else
writeln('podales 0 koncze dzialanie');

writeln('obwod to : ',a*4);
readln;

end.

Pamiętaj

Pascal nie uwzględnia polskich znaków,

przed else nie stawia się średnika

po then również nie stawia się średnika

 

 

Liczę na Naj :)