0 / 0 / 0
Регистрация: 03.12.2013
Сообщений: 54
1

Процедуры и функции

07.12.2013, 15:47. Показов 977. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
решить как с помощью процедуры, так и с пошью функции.
Даны две тройки чисел a,b,c, a1,b1,c1.вычислить выражение d=√(min(a,b,c)+min(a1,b1,c1)).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2013, 15:47
Ответы с готовыми решениями:

Функции и процедуры. При помощи процедуры записать слова задом наперед
Дана строка S, состоящая из не менее 5 слов. При помощи процедуры записать слова задом наперед....

Задачник Абрамян. Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS(x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника...

Какие процедуры и функции вызываются из заданной процедуры
Подскажите, каким образом, используя сведения из представлений словаря данных, получить информацию...

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

1
Супер-модератор
6194 / 2941 / 1300
Регистрация: 04.03.2013
Сообщений: 5,785
Записей в блоге: 1
07.12.2013, 17:17 2
Лучший ответ Сообщение было отмечено Саша2012 как решение

Решение

С помощью функции:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a, b, c, a1, b1, c1, d : real;
 
function min(n1, n2 : real) : real;
begin
  if n1 <= n2 then min := n1 else min := n2 
end;
 
begin
  write('введите a, b, c: ');
  readln(a, b, c);
  write('введите a1, b1, c1: ');
  readln(a1, b1, c1);
  d := sqrt(min(a, min(b, c)) + min(a1, min(b1, c1)));
  writeln('d = ', d:6:2);
  readln
end.
Добавлено через 6 минут
С процедурой:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  a, b, c, a1, b1, c1, d, t1, t2, t3 : real;
 
procedure min(n1, n2 : real; var res : real);
begin
  if n1 <= n2 then res := n1 else res := n2
end;
 
begin
  write('введите a, b, c: ');
  readln(a, b, c);
  write('введите a1, b1, c1: ');
  readln(a1, b1, c1);
  min(a, b, t1);
  min(c, t1, t2); {в t2 у нас стал минимум 3 чисел}
  min(a1, b1, t1);
  min(c1, t1, t3); {в t3 у нас стал минимум 3 чисел}  
  d := sqrt(t2 + t3);  
  writeln('d = ', d:6:2);
  readln
end.
1
07.12.2013, 17:17
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2013, 17:17
Помогаю со студенческими работами здесь

Процедуры и функции. Процедуры с числовыми параметрами
Процедуры и функции. Процедуры с числовыми параметрами Всем привет, помогите пожалуйста сделать...

Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и площадь S прямоугольника...

Подпрограммы-процедуры и процедуры-функции
Мне надо вычислить приближенное значение интеграла с помощью подпрограммы-процедуры и...

Процедуры и функции: вычислить значения функции на заданном отрезке с заданным шагом
ребята, помогите, пожалуйста! Срочно нужна такая программка по выделенному варианту... у самой...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru