вторник, 27 декабря 2011 г.

Модуль 3 задание 6

Программа вычисления длины площади и объема круга на языке Паскаль.

program Radius;
var
r: real;
l: real;
v: real;
s: real;
begin
write('Vvedite radius: ');
readln(r);
v:= (4*pi*(R*R*R))/3;
l:= 2*pi*R;
s:= pi*(R*R);
writeln('Obyom shara: ',v);
writeln('Dlina okruzhnosti: ',l);
writeln('Ploshad kruga: ',s);
end.

program - начало программы.
Radius - название программы.
var - раздел описания переменных.
r: real; l: real; v: real; s: real; - всё это переменные действительного типа.
begin - начало программы.
write - оператор вывода данных.
'Vvedite radius: ' - комментарий.
readln - оператор ввода данных.
v:= (4*pi*(R*R*R))/3;
l:= 2*pi*R;
s:= pi*(R*R); - всё это операторы присваивания.
writeln - оператор вывода данных.
('Obyom shara: ',v);('Dlina okruzhnosti: ',l);('Ploshad kruga: ',s) - комментарии
end - конец программы.

Комментариев нет:

Отправить комментарий