Задание
Данные для составления программы:
радиус r=5,4 см
r, c, s - вещественный тип
c=2𝝅𝒓
s=𝝅𝒓^𝟐
| Точка с запятой служит разделителем для операторов | |
|---|---|
| Запишем заголовок программы program n2 | |
| Заполним блок констант const pi=3.14 Запишем блок переменных var r,c,s: real |
|
| Начнем программный блок: begin | |
| Для того, чтобы пользователь знал, для чего предназначена программа выведем сообщение: writeln \('Вычисление длины окружности и площади круга'\) | |
| Для того, чтобы пользователь знал, какое действие от него ожидает компьютер выводим write \('Введите r'\); | |
| Организуем ввод данных с помощью оператора ввода: readln \(r\); | |
| По известной формуле найдем длину окружности: с:=2*pi*r Теперь найдем площадь круга: s:=pi*r*r |
|
| Обеспечим вывод результата. Сначала длина окружности: writeln \('c=',c:6:4\); Теперь выводим площадь круга: writeln \('s=',s:6:4\); |
|
| Закончим программу |