сервис вопросов и ответовСоставить программу для Turbo Pascal. Дано 2 круга с общим центром и радиусами R1 и R2 (R1>R2).Найти площадь этих кругов S1 и S2,а также площадь
5-9 класс|
|
кольца S3 ,наружный радиус которого равен R1,а внутренний радиус равен R2 ;S1=П(R1)^2, S2=П(R2)^2, S3=S1-S2. Значение П=3.14
LilaSmith
14 нояб. 2015 г., 13:32:14 (8 лет назад)
Footboller11
14 нояб. 2015 г., 15:56:00 (8 лет назад)
var r1, r2, s1, s2, s3, pi:real;
begin
pi :=3,14;
read(r1, r2);
s1 := pi * r1 * r1;
s2 := pi * r2 * r2;
s3 := s1 - s2;
write(s1, s2, s3);
end.
Lnikitenko
14 нояб. 2015 г., 16:42:23 (8 лет назад)
Program irinagavrish;
const
pi = 3.14;
Var
r1,r2,s1,s2,s3:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите радиус первой окружности: ');readln(r1);
write('Введите радиус второй окружности: ');readln(r2);
s1:=pi*r1*r1;
s2:=pi*r2*r2;
s3:=abs(s1-s2);
writeln('Площадь первого круга: ',s1:7:2);
writeln('Площадь второго круга: ',s2:7:2);
writeln('Площадь кольца: ',s3:7:2);
end.
Ответить
Другие вопросы из категории
Читайте также
Составить программу, определяющую, является ли данное утверждение истинным:Двузначное число А начинается на 3
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100
Очень срочно, и очень нужно составить программы по информатике PASCAL ABC, помогите, пожалуйста от этих программ зависит моя четвертная.
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б
Составить программы в Turbo Pascal. 1)Дано три точки A,B,C на числовой оси.Найти длинну отрезка AC и BC и их сумму. 2)Задано четыре целых числа
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.
1.Дано целое число составить программу которая определяет оканчивающие данное число цифрой семь.
2.Дано 2х значное число составить программу с помощью которой можно отпределить входит ли в это число цифра шесть.
1. Составьте программу для определения суммы денег, получаемой авиакомпанией от продажи билетов на рейс из Лондона в Нью-Йорк, если в самолете три
четверти пассажиров имеют билеты первого класса, стоимостью Х рублей за каждый. Остальные пассажиры имеют билеты второго класса, которые дешевле на 20%
2.Составьте программу определения стоимости набора конфет, в которой находятся следущие сорта:
Наименование: Количество: Цена,руб:
Красная шапочка 500 г k
Алые паруса 200 г a
Воронежские 100 г b
Чародейка 250 г m
Вы находитесь на странице вопроса "Составить программу для Turbo Pascal. Дано 2 круга с общим центром и радиусами R1 и R2 (R1>R2).Найти площадь этих кругов S1 и S2,а также площадь", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.