Question

Proszę o napisanie krótkiego skryptu Turbo Pascal.
Program ma nosić nazwę: Program sześcian
Program po uruchomieniu ma wyświetlić napisy:
sześcian o boku 5,875cm
(czyszczenie obrazu)
obliczanie pola powierzchni całkowitej
(czyszczenie obrazu)
obliczanie objętości
(czyszczenie obrazu)

Answer 1

Jeżeli program ma TYLKO wyświetlać napisy to chyba o to chodzi:

Program szescian;
uses CRT;
begin
Clrscr;
Writeln('Szescian o boku 5,875cm');
Writeln('Nacisnij ENTER');
Readln;
Clrscr;
Writeln('Obliczanie pola powieszchni calkowitej');
Writeln('Nacisnij ENTER');
Readln;
ClrScr;
Writeln('Obliczanie objetosci');
Writeln('Nacisnij ENTER');
Readln;
end.