
Вопрос задан 16.02.2019 в 09:59.
Предмет Информатика.
Спрашивает Руденко Рома.
Нужна помощь по написанию программ!! Задача 1. Радиус окружности 5 метров. Вычислить длину и
площадь окружности. радиус окружности R=(5) см длинна окружности L= ( ) см площадь круга S=( ) см кв Задача 2 Вычислить площадь кольца, внутренний радиус которого равен 20, а внешний числу r. Задача 3 Вычислить стоимость покупки, состоящей из нескольких тетрадей и такого же количества обложек ним. Вычисление стоимости покупки Введи исходные данные: Цена тетрадей; цена обложек; количество комплектов; количество карандашей; стоимость покупки.

Ответы на вопрос

Отвечает Пипаринен Диана.
1.
Const R=5;
Var L,S:real;
Begin
L:=2*Pi*R;
S:=Pi*sqr(R);
writeln ('Радиус окружности R = ',R, ' см');
writeln ('Длина окружности L = ',L:4:2, ' см');
writeln ('Площадь круга S = ',S:4:2, ' см кв.');
End.
2.
Const r1=20;
Var S1,S2,S,r:real;
Begin
writeln ('Введите внешний радиус');
readln (r);
S1:=Pi*sqr(r1);
S2:=Pi*sqr(r);
S:=S2-S1;
writeln ('Площадь кольца = ', S:4:2);
End.
3.
Var tet, ob, col, kar, ck, sum: real;
Begin
writeln ('Введите цену 1 тетради');
readln (tet);
writeln ('Введите цену 1 обложки');
readln (ob);
writeln ('Введите количество комплектов');
readln (col);
writeln ('Введите цену 1 карандаша');
readln (kar);
writeln ('Введите количество карандашей');
readln (ck);
sum:=(tet+ob)*col+kar*ck;
writeln ('Стоимость покупки = ', sum);
End.
Const R=5;
Var L,S:real;
Begin
L:=2*Pi*R;
S:=Pi*sqr(R);
writeln ('Радиус окружности R = ',R, ' см');
writeln ('Длина окружности L = ',L:4:2, ' см');
writeln ('Площадь круга S = ',S:4:2, ' см кв.');
End.
2.
Const r1=20;
Var S1,S2,S,r:real;
Begin
writeln ('Введите внешний радиус');
readln (r);
S1:=Pi*sqr(r1);
S2:=Pi*sqr(r);
S:=S2-S1;
writeln ('Площадь кольца = ', S:4:2);
End.
3.
Var tet, ob, col, kar, ck, sum: real;
Begin
writeln ('Введите цену 1 тетради');
readln (tet);
writeln ('Введите цену 1 обложки');
readln (ob);
writeln ('Введите количество комплектов');
readln (col);
writeln ('Введите цену 1 карандаша');
readln (kar);
writeln ('Введите количество карандашей');
readln (ck);
sum:=(tet+ob)*col+kar*ck;
writeln ('Стоимость покупки = ', sum);
End.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Решение задачи 1: Вычисление длины и площади окружности
Для начала, давайте вычислим длину окружности по формуле: L = 2 * π * R, где π (пи) примерно равно 3.14159, а R - радиус окружности.
После этого, вычислим площадь окружности по формуле: S = π * R^2, где R - радиус окружности.
Решение задачи 2: Вычисление площади кольца
Для вычисления площади кольца, внутренний радиус которого равен 20, а внешний - числу r, используется формула: S = π * (R2^2 - R1^2), где R2 - внешний радиус, R1 - внутренний радиус.
Решение задачи 3: Вычисление стоимости покупки
Для вычисления стоимости покупки, состоящей из нескольких тетрадей и обложек, а также определенного количества карандашей, используется следующая формула: Стоимость покупки = (Цена тетрадей * количество комплектов) + (Цена обложек * количество комплектов) + (Цена карандашей * количество карандашей).
Теперь, давайте приступим к вычислениям.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili