Нужна помощь по написанию программ!! Задача 1. Радиус окружности 5 метров.
Нужна помощь по написанию программ!!
Задача 1.
Радиус окружности 5 метров.
Вычислить длину и площадь окружности.
радиус окружности R=(5) см
длинна окружности L= ( ) см
площадь круга S=( ) см кв
Задача 2
Вычислить площадь кольца, внутренний радиус которого равен 20, а наружный числу r.
Задачка 3
Вычислить цена покупки, состоящей из нескольких тетрадей и такого же количества обложек ним.
Вычисление цены покупки
Введи исходные данные:
Цена тетрадей; стоимость обложек; количество комплектов; количество карандашей; цена покупки.
1 ответ
Толмашевский Колька
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.
Маргарита Хоссон
Ох, еще раз спасибо для вас огромное)... Вы меня очень выручили))
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов