Вывести площади кругов, с диаметрами, меняющимися в заданном диапазоне - 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.

Объяснение кода листинга программы

  1. Объявлены переменные: d (диаметр), i (счетчик), l (счетчик), s (площадь).
  2. Выводится сообщение Vedite taimer kruga (Введите диаметр круга).
  3. Считывается значение переменной d.
  4. Переменная n инициализируется значением d/2.
  5. Если d находится в диапазоне от 1 до 5, то выводится последовательность 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |
  6. Запускается цикл от 0 до 10 с шагом 1.
  7. Внутри цикла вычисляется площадь круга по формуле s = π * n^2.
  8. Выводится значение переменной s до 6 знаков после запятой.
  9. Переменная n увеличивается на 1.
  10. После завершения цикла переменная d увеличивается на 10.
  11. Если условие (d >= 1) and (d <= 5) не выполняется, то выводится сообщение Diemetr weden ne verno (Диаметр введен не верно).
  12. Программа ожидает ввода с клавиатуры для завершения работы.

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы