Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
ten1144
0 / 0 / 0
Регистрация: 14.06.2016
Сообщений: 4
1

Составьте программу для вычисления площадей трех колец

14.06.2016, 10:07. Просмотров 828. Ответов 1
Метки нет (Все метки)

задача с модулем
составьте программу для вычисления площадей трех колец. Непосредственно площадь кольца вычисляет и выводит процедура ring. Значения радиусов запрашиваются в основной программе
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2016, 10:07
Ответы с готовыми решениями:

Составьте программу для вычисления произведения
Составить программу для вычисления произведения: \prod_{k=1}^{15}\left(...

Составьте программу для вычисления значений
Составьте программу для вычисления значений n!, m!, (n+m)!, используя...

Составьте программу для вычисления времени
Вообще никаких идей, помогите...

Составьте программу для вычисления суммы
Составьте программу для вычисления суммы е1 (e в первой степени)+е2+...+еn

Составьте программу для вычисления периметра прямоугольника
1.Составьте программу для вычисления периметра прямоугольника 2. Заданы числа...

1
Puporev
Модератор
54707 / 42117 / 29081
Регистрация: 18.05.2008
Сообщений: 99,406
14.06.2016, 10:23 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Модуль
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
unit kolca;
interface
procedure vvod(k:byte;var r1,r2:real);
procedure ring(r1,r2:real;var s:real);
implementation
procedure vvod(k:byte;var r1,r2:real);
begin
repeat
write('Введите внутренний радиус кольца ',k,' r1>0 r1=');
readln(r1);
until r1>0;
repeat
write('Введите внешний радиус кольца ',k,' r2>',r1:0:1,' r2=');
readln(r2);
until r2>r1;
end;
procedure ring(r1,r2:real;var s:real);
begin
s:=pi*(r2*r2-r1-r1);
writeln('Площадь кольца=',s:0:2);
end;
end.
Программа.
Pascal
1
2
3
4
5
6
7
8
9
10
uses kolca;
var r1,r2,s:real;
    i:byte;
begin
for i:=1 to 3 do
 begin
  vvod(i,r1,r2);
  ring(r1,r2,s);
 end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2016, 10:23

Составьте программу для вычисления следующего выражения и функции
Составьте программу для вычисления следующего выражения и функции Y=(квадратный...

Составьте программу для вычисления длин высот треугольника
1)Составьте программу для вычисления длин высот треугольника, у которого длины...

Найти площадь трех колец, для которых даны внутренний и внешний радиусы
описать функцию ring(r1,r2) вещественного типа находящую площадь кольца...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru