Найти значение максимальной цены в гривнах - 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.

Объяснение кода листинга программы

В данном коде происходит чтение данных из файла до конца файла (пока не будет достигнут конец файла). Затем данные обрабатываются следующим образом:

  1. Переменная i инициализируется как целое число.
  2. Цикл while not SeekEoF do begin выполняется до тех пор, пока не будет достигнут конец файла.
  3. Внутри цикла for i:=1 to 2 do repeat Read(c) until c=' '; происходит чтение символа из файла и его сохранение в переменной c. Цикл повторяется до тех пор, пока символ не станет пробелом.
  4. Далее, внутри того же цикла, происходит чтение трех чисел из файла и их сохранение в переменных t, m и n.
  5. Затем, сравниваются числа m и t, и если m меньше t, то значение t присваивается переменной m.
  6. После завершения внутреннего цикла, значение переменной m записывается в файл с помощью функции WriteLn.
  7. Конец программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы