Question

zapisz w turbo pascalu :

1. oblicz pole powieszchni i obietosc walca

2. oblicz pole powieszchni kwadratu lub prostakata

Answer 1

Ad. 1

Program bal;
uses CRT;
var
r,h: integer;
pole,obj:real;
begin
Clrscr;
Write('Podaj promien podstawy: ');
readln(r);
Write('Podaj wysokosc walca: ');
readln(h);
pole := 2*3.14*(r*r)+2*3.14*r*h;
obj := 3.14*(r*r)*h;
Writeln('Pole tego walca wynosi: ',pole:0:2);
Writeln('Objetosc tego walca wynosi: ',obj:0:2);
readln;
end.

Ad. 2

 

Program bal;
uses CRT;
var
a,b: integer;
begin
Clrscr;
Write('Podaj bok A: ');
readln(a);
Write('Podaj bok B: ');
readln(b);
Writeln('Pole wynosi: ',a*b);
readln;
end.