Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Imwey
0 / 0 / 2
Регистрация: 08.10.2015
Сообщений: 74
1

Описать процедуру RingS(R1, R2) вещественного типа, находящую площадь кольца

13.03.2016, 23:55. Просмотров 874. Ответов 7
Метки нет (Все метки)

Описать процедуру RingS(R1, R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами R1 и R2 (R1 и R2 — вещественные, R1 > R2). С ее помощью найти площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса R: S = pi·R2. В качестве значения pi использовать 3,14.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2016, 23:55
Ответы с готовыми решениями:

Описать процедуру Cos1(x, ε) вещественного типа
Описать процедуру Cos1(x, ε) вещественного типа (параметры x, ε —...

Описать функцию вещественного типа, находящую минимальное из трех вещественных чисел
Описать функцию Min3(A,B,C) вещественного типа, находящую минимальное из трех...

Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов
народ помогите решить задачки 1Описать функцию Leng(xA, yA, xB, yB)...

Описать функцию Leng вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов
3. Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину...

Описать функцию или процедуру, находящую среднее арифметическое элементов списка
Описать функцию или процедуру, которая находит среднее арифметическое элементов...

7
JuriiMW
2040 / 1113 / 1588
Регистрация: 10.12.2014
Сообщений: 4,247
14.03.2016, 07:40 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
const pi = 3.14;
 
function RingS(R1, R2 : Real) : Real := pi * (R1*R1 - R2*R2);
 
begin
  for var i := 1 to 3 do
    WriteLn('Площадь ' + i + ' кольца = ', RingS(ReadLnReal('Кольцо ' + i + ': R1 ='), ReadLnReal('Кольцо ' + i + ': R2 =')));
end.
0
Imwey
0 / 0 / 2
Регистрация: 08.10.2015
Сообщений: 74
14.03.2016, 11:14  [ТС] 3
Не функция , а процедура...
0
JuriiMW
2040 / 1113 / 1588
Регистрация: 10.12.2014
Сообщений: 4,247
14.03.2016, 11:16 4
Цитата Сообщение от Imwey Посмотреть сообщение
RingS(R1, R2) вещественного типа
Может я чего не знаю?
Ка вы это себе представляете?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26477 / 17781 / 7034
Регистрация: 22.10.2011
Сообщений: 31,294
Записей в блоге: 6
14.03.2016, 11:23 5
Глобальные переменные, как еще можно это представлять, если нет третьего var-параметра у процедуры?
0
JuriiMW
2040 / 1113 / 1588
Регистрация: 10.12.2014
Сообщений: 4,247
14.03.2016, 11:31 6
volvo, вероятно произошла замена понятия «подпрограмма» понятием «процедура» (или вложили в понятие «процедура» понятие «подпрограмма»), т.к. третьего параметра не дано и явно указан тип.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26477 / 17781 / 7034
Регистрация: 22.10.2011
Сообщений: 31,294
Записей в блоге: 6
14.03.2016, 11:35 7
Не надо додумывать за пользователя. Хочет процедуру - дай ему процедуру:
Pascal
1
2
3
4
5
6
7
8
9
10
11
const pi = 3.14;
var s : Real;
procedure RingS(R1, R2 : Real) := s := pi * (R1*R1 - R2*R2);
 
begin
  for var i := 1 to 3 do
  begin
    RingS(ReadLnReal('Кольцо ' + i + ': R1 ='), ReadLnReal('Кольцо ' + i + ': R2 ='));
    WriteLn('Площадь ' + i + ' кольца = ', s);
  end;
end.
0
JuriiMW
2040 / 1113 / 1588
Регистрация: 10.12.2014
Сообщений: 4,247
14.03.2016, 11:57 8
Хм! Ошибку не выдаёт… PABC.NET собрал процедуру без операторных скобок…
Прикольно!
Можно пользоваться.

Добавлено через 2 минуты
P.S. Оказывается и в хэлпе это описано как «Упрощенный синтаксис описания подпрограмм»!
0
14.03.2016, 11:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.03.2016, 11:57

Описать процедуру Smooth1(A, N), выполняющую сглаживание вещественного массива
Описать процедуру Smooth1(A, N), выполняющую сглаживание вещественного массива...

Описать процедуру Smooth1(A, N), выполняющую сглаживание вещественного массива
4. Описать процедуру Smooth1(A, N), выполняющую сглаживание вещественного...

Описать процедуру NMinmax(A, N, N Minn, N Max) находящую номера минимального и максимального элемента массива
Описать процедуру NMinmax(A, N, N Minn, N Max) находящую номера минимального и...


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

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

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