Pascal - Konsolowe

Pola figur

Pola figur
Pascal - Konsolowe

Program: obliczający pola różnych figur.

Po wprowadzeniu przez użytkownika odpowiednich długości boków.

Do wyboru pola:

  • równoległoboku,
  • rombu,
  • koła.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program pola;
uses crt;
var a,b,h,id:integer;
    r,wynik:real;
begin
 clrscr;
  Writeln('Wybierz 1.Równoległobok');
  writeln('        2.Romb');
  writeln('        3.Koło');
  readln(id);
   case id of
    1: writeln('Równoległobok');
    2: writeln('Romb');
    3: writeln('Koło');
   else writeln('Nieprawidłowe działanie');
   end;
   case id of
    1: begin writeln('Podaj a i h');
     readln(a);
     readln(h);
     writeln('Pole równoległoboku wynosi ',a*h);
     end;
    2: begin writeln('Podaj a i h');
     readln(a);
     readln(h);
     writeln('Pole rombu wynosi ',a*h);
     end;
    3: begin writeln('Podaj r');
     readln(r);
     writeln('Pole koła wynosi ',(3.14*r*r));
     end;
    end;
    readkey;
end.