Найти значение Y

@Acute97 · Регистрация: 24.11.2014

Студворк — интернет-сервис помощи студентам

Найти значение: Y=MAX(a*b,c)+MAX(a,b,c,a+c)+MAX(a,b,c). Для нахождения MAX использовать процедуру.

@Puporev · 05.12.2014, 13:15

С функцией было бы проще.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
procedure max(a,b:real;var c:real);
begin
if a>b then c:=a else c:=b
end;
var a,b,c,m1,m2,m3,m4,m5,y:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
max(a*b,c,m1);
max(a,b,m2);
max(c,a+c,m3);
max(m2,m3,m4);
max(m2,c,m5);
y:=m1+m4+m5;
write('y=',y:0:2)
end.

@vint-81 · 05.12.2014, 13:25

такой вариант

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var a,b,c,
    x1,x2,x3:integer;
procedure max2(x,y:integer;var z:integer);
begin
 if x>y then z:=x
        else z:=y
end;
procedure max3(x,y,v:integer;var z:integer);
var k:integer;
begin
 max2(x,y,k);
 max2(k,v,z)
end;
procedure max4(x,y,v,w:integer;var z:integer);
var k:integer;
begin
 max3(x,y,v,k);
 max2(k,w,z)
end;
begin
 writeln('a,b,c=?');
 readln(a,b,c);
 max2(a*b,c,x1);
 max4(a,b,c,a+c,x2);
 max3(a,b,c,x3);
 writeln('MAX(',a*b,',',c,')+MAX(',a,',',b,',',c,',',a+c,')+MAX(',a,',',b,',',c,') = ',x1+x2+x3)
end.

@Puporev · 05.12.2014, 13:33

В строке 17

Pascal
1
max3(x,y,v,k);

не лишка параметров?

@vint-81 · 05.12.2014, 13:43

Сообщение от Puporev

max3(x,y,v,k);
не лишка параметров?

3 числа - x,y,v, результат в k

@Puporev · 05.12.2014, 14:39

Пардон...

@Acute97 · 05.12.2014, 19:30 **[ТС]**

Спасибо вам.

@Acute97 · 13.12.2014, 17:46 **[ТС]**

Блин, не могли вы написать программу через массив, а то препод говорит что не правильно, а зачет уже в среду(

@Puporev · 13.12.2014, 18:04

Сообщение от Acute97

написать программу через массив

Массив чего? По условию даны 3 числа a,b,c...

@Acute97 · 13.12.2014, 18:10 **[ТС]**

Сообщение от Puporev

Массив чего? По условию даны 3 числа a,b,c...

Цитата из письма: "Третья дом работа на массив. Зачем вводить a,b,c?"

@Puporev · 13.12.2014, 18:11

Тогда и напишите полное условие задачи а не одну строчку из него.

@Acute97 · 13.12.2014, 18:19 **[ТС]**

Это было полное условие, но преподаватель решил что нужно решать через массив.

@Puporev · 13.12.2014, 18:21

Ну и разбирайтесь там сами, а читать твой бред надоело.

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@Acute97 0 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 52

	Найти значение Y 05.12.2014, 12:42. Показов 670. Ответов 12 Метки нет (Все метки) Найти значение: Y=MAX(a*b,c)+MAX(a,b,c,a+c)+MAX(a,b,c). Для нахождения MAX использовать процедуру. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	05.12.2014, 14:39
	Пардон... 0

@Acute97 0 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 52
	05.12.2014, 19:30 [ТС]
	Спасибо вам. 0

@Acute97 0 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 52
	13.12.2014, 17:46 [ТС]
	Блин, не могли вы написать программу через массив, а то препод говорит что не правильно, а зачет уже в среду( 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.12.2014, 18:11
	Тогда и напишите полное условие задачи а не одну строчку из него. 0

@Acute97 0 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 52
	13.12.2014, 18:19 [ТС]
	Это было полное условие, но преподаватель решил что нужно решать через массив. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.12.2014, 18:21
	Ну и разбирайтесь там сами, а читать твой бред надоело. 0