Составить программу обработки последовательно вводимых с клавиатуры чисел - Turbo Pascal
Формулировка задачи:
Задание-Нахождение номера минимального значения в последовательности вводимых чисел. Остановить обработку при вводе признака конца – предварительно введенного пользователем числа. Тип обраб. данных - Целые.
Решение задачи: «Составить программу обработки последовательно вводимых с клавиатуры чисел»
textual
Листинг программы
Var a,imin,i,kn,min:integer; Begin write('Признак конца ввода: ');readln(kn); Repeat write('Число: '); readln(a); if a=kn then break; inc(i); if i=1 then Begin imin:=i; min:=a; End; if a<min then Begin min:=a; imin:=i; End; Until a=kn; writeln('Min = ',min,' его индекс = ',imin); readln; End.
Объяснение кода листинга программы
- В начале объявляются переменные: a,imin,i,kn,min типа integer.
- Затем выводится сообщение «Признак конца ввода: », после чего считывается значение переменной kn с помощью функции readln().
- Далее в цикле Repeat выполняется следующая последовательность действий:
- выводится сообщение «Число: »,
- считывается значение переменной a с помощью функции readln(),
- сравнивается значение переменной a с константой kn. Если они равны, то цикл прерывается командой break.,
- увеличивается значение переменной i,
- проверяется условие i=1. Если оно выполняется, то присваиваются значения переменным min и i: min=i.
- Если значение переменной a меньше значения переменной min, то обновляется значение переменной min и i: min=a, i=imin.
- Цикл повторяется до тех пор, пока значение переменной a не станет равным значению переменной kn.
- По окончании цикла выводится сообщение «Min = », после чего выводятся значения переменных min и i с помощью команды writeln().
- Выводится символ новой строки с помощью функции readln().