Question

Napisz program w języku Pascal, wykorzystując instrukcje proste,
który obliczy pole koła dowolnego r; pole trójkąta dla dowolnego a-podstawa, h-wysokość; pole rombu dla dowolnych danych; pole trapezy dla dowolnych danych; pole kwadratu dla dowolnych danych.

Answer 1

program kolo;

uses crt;

var r, pole:real;

 

begin

clrscr;

writeln('podaj promien okregu');

readln(r);

pole:=(r*r)*3,14;{liczba pi w przyb. 3,14}

writeln('pole kola o promieniu ',r,' wynosi: ',pole:0:2'); {zaokrąg. do 2 miejsc}

 

readkey;

end.

 

program trojkat;

uses crt;

var a,h,pole:real;

begin

clrscr;

writeln('podaj podstawe i wysokosc');

readln(a,h);

pole:=(a*h)/2;

writeln('pole trojkata wynosi: ',pole:0:2);

 

readkey;

end.

 

program romb;

uses crt;

var e,f, pole: real;

begin

clrscr;

writeln('podaj dlugosci przekatnych');

readln(e,f);

pole:=(e*f)/2;

writeln('pole rombu wynosi: ',pole:0:2);

readkey;

end.

 

program trapez;

uses crt;

var a,b,h, pole: real;

 

begin

clrscr;

writeln('podaj dlugosci podstaw i wysokości');

readln(a,b,h);

 

pole:=((a+b)*h)/2;

writeln('pole trapezu to: ',pole:0:2);

readkey;

end.

 

program kwadrat;

uses crt;

var a, pole:real;

begin

clrscr;

writeln('podaj dlugosc boku kwadratu');

readln(a);

pole:=a*a;

writeln(pole kwadratu wynosi: ',pole:0:2);

readkey;

end.

 

 

Myślę, że skoro programy mają być wykonane w prostych instrukcjach ten sposób rozwiązania będzie najbardziej odpowiedni i nie sprawi Ci trudności w dojściu krok po kroku skąd się to wzięło. Pozdrawiam;)