1)Даны три вещественных числа.Не используя полный условный оператор,определить наибольшее из них.Так?program pr1;var a,b,c:real;beginwrite('введите а');read(a);write('введите b');read(b);write('введите с');read(c);if((b>a) and (a>c)) then write('true') else write('false');read;end.
1)Даны три вещественных числа.Не используя полный условный оператор,определить наибольшее из них.Так?program pr1;var a,b,c:real;beginwrite('введите а');read(a);write('введите b');read(b);write('введите с');read(c);if((b>a) and (a>c)) then write('true') else write('false');read;end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа не является правильным решением задачи. Для определения наибольшего из трех вещественных чисел нужно сравнить их все между собой. В вашем коде вы сравниваете только два числа (a и b), не учитывая третье число c.
Правильное решение без использования полного условного оператора будет выглядеть примерно так:
program pr1;var a,b,c,max:real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
max := a;
if b > max then max := b;
if c > max then max := c;
writeln('Наибольшее число: ', max);
end.
В этой программе мы сначала присваиваем переменной max значение первого числа a, а затем последовательно сравниваем его с числами b и c, чтобы найти наибольшее из трех чисел.