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

Используя процедуру поиска наибольшего из двух чисел, составить программу вычисления выражения

15.12.2014, 15:22. Показов 4287. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1) Используя процедуру поиска наибольшего (наименьшего) из двух чисел, составить программу вычисления выражения.
2) Используя функцию поиска наибольшего (наименьшего) из двух чисел, составить программу вычисления выражения.

max(x+y+z,xyz)+3
min(x,y+z,zвкв)
min(x,y в кв)/max(xвкв,y)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2014, 15:22
Ответы с готовыми решениями:

Используя процедуру поиска наибольшего ( наименьшего ) из двух чисел, составить программу вычисления выражения
используя процедуру поиска наибольшего ( наименьшего ) из двух чисел, составить программу...

Используя процедуру поиска наибольшего (наименьшего) из двух чисел, составить программу вычисления выражения
Используя процедуру поиска наибольшего(наименьшего) из 2-х чисел, составить программу вычисления...

Составить программу вычисления наибольшего общего делителя трех введенных чисел х , у, z , используя процедуру
Составить программу вычисления наибольшего общего делителя трех введенных чисел х , у, z ,...

Вычислить выражение, используя процедуру поиска наибольшего (наименьшего) из двух чисел
Тут нужно составить программу вычисления выражения используя: 1)процедуру поиска...

1
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
15.12.2014, 15:51 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

через функцию
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  x,y,z:real;
function max(i,j:real):real;
begin
  if i>j then max:=i else max:=j;
end;
function min(i,j:real):real;
begin
  if i<j then min:=i else min:=j;
end;
begin
  write('BBeguTe x,y,z:');readln(x,y,z);
  writeln('max(x+y+z,x*y*z)+3=',max(x+y+z,x*y*z)+3:0:2);
  writeln('min(x,y+z,z^2)=',min(x,min(x+z,z*z)):0:2);
  if max(x*x,y)<>0 then
    writeln('min(x,y^2)/max(x^2,y)=',min(x,y*y)/max(x*x,y):0:2) else
    writeln('min(x,y^2)/max(x^2,y)=NAN');
end.
Добавлено через 5 минут
через процедуры:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  x,y,z,t,t1:real;
procedure max(i,j:real;var k:real);
begin
  if i>j then k:=i else k:=j;
end;
procedure min(i,j:real;var k:real);
begin
  if i<j then k:=i else k:=j;
end;
begin
  write('BBeguTe x,y,z:');readln(x,y,z);
  max(x+y+z,x*y*z,t);
  writeln('max(x+y+z,x*y*z)+3=',t+3:0:2);
  min(x+z,z*z,t);min(x,t,t);
  writeln('min(x,y+z,z^2)=',t:0:2);
  max(x*x,y,t);min(x,y*y,t1);
  if t<>0 then
    writeln('min(x,y^2)/max(x^2,y)=',t1/t:0:2) else
    writeln('min(x,y^2)/max(x^2,y)=NAN');
end.
0
15.12.2014, 15:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2014, 15:51
Помогаю со студенческими работами здесь

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

Составить программу которая вычисляет значения выражения y=ax^4+bx^3+cx^2+dx+e используя процедуру вычисления n степени
Составить программу которая будет вычислять значения выражения y=ax4+bx3+cx2+dx+e используя...

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

Подпрограммы. Составить программу нахождения наибольшего общего делителя нескольких чисел, используя функцию нахождения НОД двух чисел
Задачи нужно решить с помощью процедур 1 Составить программу нахождения наибольшего общего...


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

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

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