Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
ten1144
0 / 0 / 0
Регистрация: 14.06.2016
Сообщений: 4
#1

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

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

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

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

Составьте программу для вычисления произведения - Pascal ABC
Составить программу для вычисления произведения: \prod_{k=1}^{15}\left( 1+\operatorname{e}^{{\,}^{\sin k}}\right),\ \ \ \ ...

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

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

Составьте программу для вычисления периметра прямоугольника - Pascal
1.Составьте программу для вычисления периметра прямоугольника 2. Заданы числа a и b. Определить, эти числа одного или разных знаков. 3....

Составьте программу для вычисления длин высот треугольника - Pascal
1)Составьте программу для вычисления длин высот треугольника, у которого длины сторон a, b, c. 2)Создайте массив из пяти фамилий и...

1
Puporev
Модератор
54011 / 41644 / 14726
Регистрация: 18.05.2008
Сообщений: 97,893
14.06.2016, 10:23 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Модуль
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
Привет! Вот еще темы с ответами:

Составьте программу для вычисления следующего выражения и функции - Pascal
Составьте программу для вычисления следующего выражения и функции Y=(квадратный корень b2− c2)2

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

Составьте программу для вычисления площади трапеции по известным основаниям и высоте - Pascal ABC
задача с модулем составьте программу для вычисления площади трапеции по известным основаниям и высоте. Данные вводиться в основной...

Составьте программу находящую максимум из двух, трех, четырех заданных чисел - Pascal
Составьте программу находящую максимум из двух, трех, четырех заданных чисел.


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

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

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