Исходник маленькой программы, которая определяет объём куба по заданной пользователем длине ребра. Есть пояснительные комментарии к каждой строке. Скачать исходник или посмотреть исходный код программы, Вы можете ниже.
Исходный код программы нахождения объёма:
Program primkub; //Название программы
uses crt; //Вывод программы в отельном окне (shift+F9)
var x,y:real; //писание переменных
begin //Начало программы
writeln('Введите длину ребра'); //Диалог с пользователем
readln(x); //Считывание переменной
//y:=exp(3*ln(x)); //Нахождение объёма (ln возвращает натуральный логарифм x)*
y:=x*x*x; //Нахождение объёма без использования дополнитьельных функций*
writeln('Объём куба=',y:5:2); //Вывод результата
//readkey; //Для устаревших версий компиляторов паскаль
end.//Конец программы
По сути эта программа просто возводит число в 3-ю степень.
Скачать исходник: vkub.pas