Вывести площади кругов, с диаметрами, меняющимися в заданном диапазоне - Pascal
Формулировка задачи:
Проверьте и исправьте. Пожалуйста!
Решение задачи: «Вывести площади кругов, с диаметрами, меняющимися в заданном диапазоне»
textual
Листинг программы
var d,i,l:integer; s:real; begin writeln ('Vedite taimer kruga'); readln (d); n:=d/2; if (d>=1) and (d<=5) then begin writeln ('0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |') for i:=0 to 10 to begin s:=pi*sqr(n); write (s:6:0,'l'); n:=n+1; end; d:=d+10; writeln; end; end else writeln ('Diemetr weden ne verno'); readln; end.
Объяснение кода листинга программы
- Объявлены переменные: d (диаметр), i (счетчик), l (счетчик), s (площадь).
- Выводится сообщение
Vedite taimer kruga
(Введите диаметр круга). - Считывается значение переменной d.
- Переменная n инициализируется значением d/2.
- Если d находится в диапазоне от 1 до 5, то выводится последовательность
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |
- Запускается цикл от 0 до 10 с шагом 1.
- Внутри цикла вычисляется площадь круга по формуле s = π * n^2.
- Выводится значение переменной s до 6 знаков после запятой.
- Переменная n увеличивается на 1.
- После завершения цикла переменная d увеличивается на 10.
- Если условие (d >= 1) and (d <= 5) не выполняется, то выводится сообщение
Diemetr weden ne verno
(Диаметр введен не верно). - Программа ожидает ввода с клавиатуры для завершения работы.