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

Нахождение максимального из двух

04.05.2016, 20:38. Показов 2642. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Составить процедуру нахождения максимального из двух действительных чисел, вводимых с клавиатуры.
Выдаёт ошибку.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure max(l: real; c: real);
 
begin
  var max: real;
  max := l;
  if c > max then max := c;
end;
 
 
 var q, b: real;
  begin
    writeln('');
    write('Введите первое число для нахождения максимального из двух: '); readln(q);
    write('Введите второе число для нахождения максимального из двух: '); readln(b);
    writeln('Максимальное число из двух равно: ' + max(q, b));
  end;
0
Лучшие ответы (1)
04.05.2016, 20:38
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.05.2016, 20:38
Ответы с готовыми решениями:

Нахождение максимального растояния
Подскажите, почему программа то работает, то нет? Что не так? И если 0 вводить, то всё завершается. *9) Во множестве точек найти две ...

Нахождение максимального элемента массива
Добрый день. Нужно найти макс число в массиве program z1; // тут должен быть массив begin writeln('Введите 5 чисел'); read(); //...

Нахождение максимального элемента массива
Задача:Найти в массивах Х и Y максимальные элементы и их порядковые номера Х, Y1..8] Код в паскаль:uses crt; var arr:array of...

5
0 / 0 / 0
Регистрация: 04.05.2016
Сообщений: 5
04.05.2016, 20:47 2
Вы объявили локальную переменную в функции max с тем же именем, что и у функции. Насколько я помню, в паскале возвращаемое значение присваивается имени функции, думаю, что в этом и кроется ошибка.

Pascal
1
2
3
4
5
procedure max(l: real; c: real);
 
begin
  if l > c then max := l else max := c; 
end;
Попробуйте так.
0
0 / 0 / 1
Регистрация: 28.02.2016
Сообщений: 74
04.05.2016, 20:49  [ТС] 3
Pixelen, Нет, не работает.
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
04.05.2016, 20:49 4
Лучший ответ Сообщение было отмечено Ascendary как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
procedure max(l,c: real;var m:real);
begin
if l>c then m:=l else m:=c;
end;
 
var q, b, t: real;
begin
write('Введите первое число для нахождения максимального из двух q='); readln(q);
write('Введите второе число для нахождения максимального из двух b='); readln(b);
max(q,b,t);
writeln('Максимальное число из двух равно: ',t:0:2);
end.
0
44 / 44 / 66
Регистрация: 22.07.2015
Сообщений: 191
04.05.2016, 20:51 5
Процедура не возвращает значение, поэтому нужно поменять procedure на function
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function max(l: real; c: real): real;
begin
  max := l;
  {Result - Значение функции, то есть max}
  if c > Result then max := c;
end;
 
 
 var q, b: real;
  begin
    writeln('');
    write('Введите первое число для нахождения максимального из двух: '); readln(q);
    write('Введите второе число для нахождения максимального из двух: '); readln(b);
    writeln('Максимальное число из двух равно: ' + max(q, b));
  end.
А можно еще проще:
Pascal
1
2
3
begin
  writeln('Максимальное число из двух равно:', max(ReadReal('Введите первое число:'), ReadReal('Введите второе число:')))
end.
0
0 / 0 / 1
Регистрация: 28.02.2016
Сообщений: 74
04.05.2016, 20:53  [ТС] 6
a1d4r, Задание читай
0
04.05.2016, 20:53
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.05.2016, 20:53
Помогаю со студенческими работами здесь

Нахождение максимального числа
помогите решить задачку пожалуйста Определить максимальный элемент среди чисел, значения которых находятся в пределах от 5.5 до 18.8 и...

Нахождение максимального элемента в массиве.
Решите задачку пожалуйста. Найдите максимальный элемент в массиве.

Нахождение максимального элемента массива
создать программу с прoцедyрой для ввoдa мaccивa из N вещеcтвенныx чиcел. Ввеcти двa мaccивa: из 5 и 8 чиcел. Для кaждoгo мaccивa...

Нахождение максимального числа в строке
здравствуйте! подскажите как дальше решить Задача С помощью текстового редактора создать файл, содержащий текст, длина которого не...

Рекурсия: нахождение максимального элемента последовательности
Дана последовательность, состоящая из n действительных чисел, найти максимальное по величине число.


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Обработка массивов с помощью циклов в JavaScript
hw_wired 12.02.2025
Массивы в JavaScript - это упорядоченные наборы элементов, где каждый элемент имеет свой индекс, начиная с нуля. Они невероятно гибки в использовании, позволяя хранить данные любых типов - числа,. . .
Создание каталога и всех родительских каталогов с помощью Python
hw_wired 12.02.2025
Работа с файловой системой - одна из ключевых задач при разработке программного обеспечения. Особенно часто возникает потребность создавать каталоги для хранения файлов, логов, временных данных и. . .
Возврат файла к состоянию указанного коммита Git
hw_wired 12.02.2025
Git - распределенная система контроля версий, без которой сложно представить современную разработку программного обеспечения. Когда речь заходит о восстановлении файлов, Git предоставляет целый. . .
Сброс локальной ветки Git до состояния HEAD удаленного репозитория
hw_wired 12.02.2025
Работая в команде разработчиков, часто сталкиваешься с ситуацией, когда локальная версия кода существенно отличается от той, что находится в центральном репозитории. Такое расхождение может. . .
Запрет подсветки выделения текста с помощью CSS
hw_wired 12.02.2025
Выделение текста - одна из базовых возможностей взаимодействия пользователя с контентом на веб-странице. Однако в некоторых случаях стандартное поведение выделения может нарушать задуманный дизайн. . .
Выполнение другой программы из приложения Python
hw_wired 12.02.2025
При разработке современных приложений часто возникает потребность в запуске и взаимодействии с другими программами прямо из кода. Python предоставляет множество эффективных средств для выполнения. . .
Отличия между let и var в JavaScript
hw_wired 12.02.2025
Работа с переменными - один из основных моментов при написании программ на JavaScript. От правильного объявления и использования переменных зависит не только читаемость кода, но и его надежность, а. . .
Подключение файла JavaScript в других файлах JavaScript
hw_wired 12.02.2025
Самый современный и рекомендуемый способ подключения JavaScript-файлов - использование системы модулей ES6 с ключевыми словами 'import' и 'export'. Этот подход позволяет явно указывать зависимости. . .
Отмена изменений, не внесенных в индекс Git
hw_wired 12.02.2025
Управление изменениями в Git - одна из важнейших задач при разработке программного обеспечения. В процессе работы часто возникают ситуации, когда нужно отменить внесенные изменения, которые еще не. . .
Что такое px, dip, dp, and sp в Android
hw_wired 12.02.2025
При разработке мобильных приложений для Android одним из ключевых вызовов становится адаптация интерфейса под различные устройства. А ведь их действительно немало - от компактных смартфонов до. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru