Program vypočíta objem kocky
Delphi & Pascal (česká wiki)
Kategória: KMP (Klub mladých programátorov)
Autor: RaptoR
Program: Objem_kocky.pas
Súbor exe: Objem_kocky.exe
Autor: RaptoR
Program: Objem_kocky.pas
Súbor exe: Objem_kocky.exe
Program vypočíta objem kocky.
{ OBJEM_KOCKY.PAS } { Program vypocita objem kocky. } { } { Author: RaptoR (Juraj Danis) } { Date :19.1.2009 http://www.trsek.com } program objem_kocky; uses crt; var a,vys:real; c:char; BEGIN repeat clrscr; writeln('VYPOCITAM OBJEM KOCKY '); writeln; writeln('-----------------------------'); writeln('-----------------------------'); writeln; writeln('ZADAJ ROZMER STRANY KOCKY '); readln(a); vys:=a*a; writeln; writeln('-----------------------------'); writeln('OBJEM KOCKY = ',vys:2:2,' cm3'); writeln('-----------------------------'); writeln; writeln('OPAKOVAT VYPOCET? y/n'); readln(c); until c='n'; end.