Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ttttt18
29.09.2022 07:38 •
Информатика
Вычислить площадь круга радиус r которого меняется от а до в с шагом h. сделать паскалем
Показать ответ
Ответ:
Sold5561
09.09.2020 01:59
Var a,b,h,r:real; i:integer;
begin
write('a, b, h: ');
readln(a,b,h);
for i:=0 to round((b-a)/h) do
begin
r:=a+i*h;
writeln(r:4:1,pi*r*r:8:3);
end;
end.
Пример:
a, b, h: 2 3 0.2
2.0 12.566
2.2 15.205
2.4 18.096
2.6 21.237
2.8 24.630
3.0 28.274
0,0
(0 оценок)
Популярные вопросы: Информатика
kirill163aye
20.05.2020 02:23
Найти все делители натурального числа. сделать блок-схему...
натали524
25.03.2020 04:11
Точки A и C лежат на одной прямой, точка B не лежит на этой прямой, но находится на одинаковых расстояниях от точек A и C. Величина угла ∡α = 153°. Определи: 1. вид...
Takashu69
19.02.2021 20:11
1. Массив С размером 8 заполняется случайными целыми числами из интервала (10,90). Найти номера элементов, оканчивающихся цифрой 5. ( Известно, что такие элементы в...
altynai0504
20.09.2020 01:49
1.Постройте диаграмму, показывающую соотношение затрат на каждый предмет мебели для класса.Мебель для класса Наименование Цена Количество СуммаСтол письменный 4 200...
пингвин38
02.01.2021 10:57
Выберите последовательность символов которая не может служить именем в языке Паскальzadan2 pr1 URL 1Программа125ugol_treug5hg1...
fkffjfjfjfj
20.05.2023 04:45
Як називається частина контуру об єкта у векторному редакторі, що сполучає два суміжні вузли...
diiann
25.08.2021 06:05
Задание: Написать программу по блок-схеме....
Сакура2034
25.08.2021 06:05
Дана программа нахождение длины окружности по формуле l=2πr. Найдите ошибки и исправьте их.Program длина;Const pi:=3,14; VAR l,r: integer;Begin read(r) l:=2pi r; WRITELN(...
MCREW
02.04.2022 01:13
Begin1°. Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2 Begin2°. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, т. е. квадратный...
fatimarukir
02.04.2022 01:13
Являются ли высказываниями следующие предложения (если не являются, то почему): 1. Запиши пример на доске. 2. 2*х+3*у (*-знак умножения) 3. 29-х 40 4. Москва расположена...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('a, b, h: ');
readln(a,b,h);
for i:=0 to round((b-a)/h) do
begin
r:=a+i*h;
writeln(r:4:1,pi*r*r:8:3);
end;
end.
Пример:
a, b, h: 2 3 0.2
2.0 12.566
2.2 15.205
2.4 18.096
2.6 21.237
2.8 24.630
3.0 28.274