|
vecej jak 450 programoch ľem tak zadarmo
|
![]() English |
![]() Slovensky |
![]() Česky |
![]() Šarišsky |
|
Kategorija: Zadaňa zos Pascalu Zrobil: Pavel Paták web: www.webpark.cz/programar Program: Koule.pas Subor exe: Koule.exe Po zadání polomeru vypočte povrch a objem koule
Kuklo še: 1724x
{ KOULE.PAS Copyright (c) Pavel Patak } { Po zadání polomeru vypocte povrch a objem koule } { } { Datum:28.10.2004 http://www.trsek.com } Program Koule; Const Pi = 3.14; Var r, S, V : Real; Begin Write('Polomer koule r = '); Readln(r); S := 4 * Pi * r*r; V := 4/3*Pi* r*r*r; Writeln; Writeln('S = ',S:5:2); Writeln('V = ',V:5:2); Readln; End. [Naj beži] [Ulož] [Ciskaj] [Naj idze meilom] |
|