Расчет площади кольца с заданными внутренним и внешним радиусами

@Миленькая · Регистрация: 15.02.2014

Author24 — интернет-сервис помощи студентам

Напишите программу расчета площади кольца с заданными внутренним и внешним радиусами. Входные данные вводятся пользователем с экрана. Вывод так же осуществляется на экран. /Pascal ABC

@dencil · 03.03.2014, 23:14

Pascal

var a,b,c:integer;
d:real;
begin
writeln('Введите внешний радиус');
readln(a);
writeln('Введите внутренний радиус');
readln(b);
d:=(a*a) - (b*b);
if d<0 then 
writeln('Некорректные данные')
else
writeln('площадь кольца равна ',d,'pi, где pi ~ 3.14');
readln
end.

@Cyborg Drone · 03.03.2014, 23:26

dencil, есть константа pi... Так что

Pascal

1	writeln('площадь кольца равна ', d * pi);

@dencil · 03.03.2014, 23:28

Ну видно же, что задача из школьной программы, поэтому я не стал уж считать до такой точности.

@Миленькая 2 / 1 / 0 Регистрация: 15.02.2014 Сообщений: 64
		1
	Расчет площади кольца с заданными внутренним и внешним радиусами 03.03.2014, 21:26. Показов 6684. Ответов 3 Метки нет (Все метки) Напишите программу расчета площади кольца с заданными внутренним и внешним радиусами. Входные данные вводятся пользователем с экрана. Вывод так же осуществляется на экран. /Pascal ABC 0

@dencil 10 / 10 / 22 Регистрация: 23.09.2013 Сообщений: 145
	03.03.2014, 23:28	4
	Ну видно же, что задача из школьной программы, поэтому я не стал уж считать до такой точности. 0

Расчет площади кольца с заданными внутренним и внешним радиусами

Решение