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

@Кита · Регистрация: 15.06.2017

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

@Puporev · 17.06.2017, 16:57

Pascal

function max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
вывод после ввода a,b,c
write('Максимальное=',max(max(a,b),c):0:2);

@volvo · 17.06.2017, 17:04

Ну, если процедуру:

Pascal

procedure max(a, b : integer; var mx : integer);
begin
  if a > b then mx := a else mx := b;
end;
 
var 
  a, b, c : integer;
  t : integer;
begin
  a := 3; b := 5; c := 12; { заменить на ввод пользователем }
  max(a, b, t);
  max(t, c, t);
  writeln('max = ', t);
end.

@KaterinaPro · 25.04.2021, 23:42

Доброго времени суток!

Не можем с ребенком решить тесты по информатики за 8-ой класс. Может быть кто-то сможет помочь) ПОЖААААЛУЙСТА!

Вопрос №1

Определить, что пропущено в программе поиска максимального числа среди двух заданных чисел?
(перечислить эти пропуски через пробел в одной строке)

program z3;
var x, y: real; {числа}
max: real; {максимальное число}
begin
writeln ('Введите два числа:');
readln (____);
if ______ then max:=___else max:=___;
writeln ('max=', max:4:3);
end.

И Вопрос №2

Заполнить пропуски в программе возведения четного числа в квадрат,
а нечетного числа - в куб.

program z4;
var x: integer; {чиcло}
begin
writeln('Введите число: ');
readln(x);
_________________________
writeln ('x=', x);
end.

@Puporev · 26.04.2021, 05:39

1.
x,y,x>y,x,y
2.
if x mod 2=0 then x:=x*x

@KaterinaPro · 26.04.2021, 07:54

Спасибо огромное!!!!
Нет предела моей благодарности!!!!

@Кита 0 / 0 / 0 Регистрация: 15.06.2017 Сообщений: 63
		1
	Написать программу поиска максимума из трех заданных чисел, используя процедуру поиска максимума из двух чисел 17.06.2017, 15:02. Показов 17840. Ответов 5 Метки нет (Все метки) Написать программу поиска максимума из трех заданных чисел, используя процедуру поиска максимума из двух чисел 0

@KaterinaPro 0 / 0 / 0 Регистрация: 21.04.2021 Сообщений: 13
	25.04.2021, 23:42	4
	Доброго времени суток! Не можем с ребенком решить тесты по информатики за 8-ой класс. Может быть кто-то сможет помочь) ПОЖААААЛУЙСТА! Вопрос №1 Определить, что пропущено в программе поиска максимального числа среди двух заданных чисел? (перечислить эти пропуски через пробел в одной строке) program z3; var x, y: real; {числа} max: real; {максимальное число} begin writeln ('Введите два числа:'); readln (____); if ______ then max:=___else max:=___; writeln ('max=', max:4:3); end. И Вопрос №2 Заполнить пропуски в программе возведения четного числа в квадрат, а нечетного числа - в куб. program z4; var x: integer; {чиcло} begin writeln('Введите число: '); readln(x); _________________________ writeln ('x=', x); end. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.04.2021, 05:39	5
	1. x,y,x>y,x,y 2. if x mod 2=0 then x:=x*x 1

@KaterinaPro 0 / 0 / 0 Регистрация: 21.04.2021 Сообщений: 13
	26.04.2021, 07:54	6
	Спасибо огромное!!!! Нет предела моей благодарности!!!! 0

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

Решение