Найти значение максимальной цены в гривнах - Turbo Pascal
Формулировка задачи:
Помогите пожалуйста найти ошибку в коде.
За даними, що містяться в таблиці Олімпіада, створіть програму для визначення максимального бала, одержаного учнями за виконання Завдання 3 олімпіади. Вхідні дані — значення балів, одержаних кожним учасником за виконання Завдання 3. Вихідні дані — значення максимального бала.
Прізвище Ім'я Завдання 1 Завдання 2 Завдання 3
Бочаров Ігорь 11 15 9
Клуглий Тарас 3 17 10
Пісков Василь 9 4 5
Солок Інна 5 8 6
Іваницька Світлана 1 4 5
Приходько Станислав 5 8 5
Сохацьа Валерія 9 7 3
Малич Лідія 8 8 6
Решение задачи: «Найти значение максимальной цены в гривнах»
textual
Листинг программы
var i, t: Integer; c: Char; begin while not SeekEoF do begin for i:=1 to 2 do repeat Read(c) until c=' '; for i:=1 to 3 do Read(t); ReadLn; if m<t then t:=m; end; WriteLn(m); end.
Объяснение кода листинга программы
В данном коде происходит чтение данных из файла до конца файла (пока не будет достигнут конец файла). Затем данные обрабатываются следующим образом:
- Переменная
i
инициализируется как целое число. - Цикл
while not SeekEoF do begin
выполняется до тех пор, пока не будет достигнут конец файла. - Внутри цикла
for i:=1 to 2 do repeat Read(c) until c=' ';
происходит чтение символа из файла и его сохранение в переменнойc
. Цикл повторяется до тех пор, пока символ не станет пробелом. - Далее, внутри того же цикла, происходит чтение трех чисел из файла и их сохранение в переменных
t
,m
иn
. - Затем, сравниваются числа
m
иt
, и еслиm
меньшеt
, то значениеt
присваивается переменнойm
. - После завершения внутреннего цикла, значение переменной
m
записывается в файл с помощью функцииWriteLn
. - Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д