Ogólna charakterystyka i cel strukturalizacji programu ¶ Zeszyt ucznia

PROGRAM poleTrojkataWedlePolaHerona;
USES crt;
VAR a, b, c: real;

function wprowadz(bok:char): real;
VAR x: real;
begin
repeat
        Write('Podaj dlugosc boku ', bok, ': ');
        readln(x);
        if(x<0) then writeln('Pewnys/pewnas? A jeszcze raz wpisz.');
until x>0;
wprowadz:=x;
end;

function sprawdzCzyIstnieje(x,y,z: real): boolean;
begin
if((x+y>=z) and (y+z>=x) and (z+x>=y)) then sprawdzCzyIstnieje:=true else sprawdzCzyIstnieje:=false;
end;

function pole(x,y,z:real): real;
VAR p: real;
begin
p:=(x+y+z)/2;
pole:=sqrt(p*(p-x)*(p-y)*(p-z));
end;

begin
clrscr;
repeat
        a:=wprowadz('a');
        b:=wprowadz('b');
        c:=wprowadz('c');
        if sprawdzCzyIstnieje(a,b,c)=false then WriteLn('Trojkat o podanych bokach nie istnieje. Sprobuj jeszcze raz.');
until sprawdzCzyIstnieje(a,b,c)=true;
WriteLn('Pole tego tr˘jkĄta to ', pole(a,b,c):5:5, '.');
ReadLn;
end.

PROGRAM poleTrojkataWedlePolaHerona;

USES crt;

VAR a, b, c: real;

function wprowadz(bok:char): real;

VAR x: real;

begin

repeat

Write('Podaj dlugosc boku ', bok, ': ');

readln(x);

if(x<0) then writeln('Pewnys/pewnas? A jeszcze raz wpisz.');

until x>0;

wprowadz:=x;

end;

function sprawdzCzyIstnieje(x,y,z: real): boolean;

begin

if((x+y>=z) and (y+z>=x) and (z+x>=y)) then sprawdzCzyIstnieje:=true else sprawdzCzyIstnieje:=false;

end;

function pole(x,y,z:real): real;

VAR p: real;

begin

p:=(x+y+z)/2;

pole:=sqrt(p*(p-x)*(p-y)*(p-z));

end;

begin

clrscr;

repeat

a:=wprowadz('a');

b:=wprowadz('b');

c:=wprowadz('c');

if sprawdzCzyIstnieje(a,b,c)=false then WriteLn('Trojkat o podanych bokach nie istnieje. Sprobuj jeszcze raz.');

until sprawdzCzyIstnieje(a,b,c)=true;

WriteLn('Pole tego tr˘jkĄta to ', pole(a,b,c):5:5, '.');

ReadLn;

end.

Zeszyt ucznia

Notatki z przedmiotów zawodowych technika informatyka

Ogólna charakterystyka i cel strukturalizacji programu

Dodaj komentarz Anuluj pisanie odpowiedzi