Napisz program w Pascalu, "Program na objętośc graniastosłupa".
//licze na naj...
program nazwa;uses crt;varpole,h:double;beginclrscr;writeln('Podaj pole podstawy: ');readln(pole);writeln('Podaj wysokosc: ');readln(h);writeln;writeln('Objetosc graniastoslupa wynosi: ');writeln('V=Pp*h');writeln('V=',pole:0:2,'*',h:0:2);writeln('V=',pole*h:0:2);readln;end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
//licze na naj...
program nazwa;
uses crt;
var
pole,h:double;
begin
clrscr;
writeln('Podaj pole podstawy: ');
readln(pole);
writeln('Podaj wysokosc: ');
readln(h);
writeln;
writeln('Objetosc graniastoslupa wynosi: ');
writeln('V=Pp*h');
writeln('V=',pole:0:2,'*',h:0:2);
writeln('V=',pole*h:0:2);
readln;
end.