Составить программу обработки последовательно вводимых с клавиатуры чисел - 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.

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

  1. В начале объявляются переменные: a,imin,i,kn,min типа integer.
  2. Затем выводится сообщение «Признак конца ввода: », после чего считывается значение переменной kn с помощью функции readln().
  3. Далее в цикле Repeat выполняется следующая последовательность действий:
    • выводится сообщение «Число: »,
    • считывается значение переменной a с помощью функции readln(),
    • сравнивается значение переменной a с константой kn. Если они равны, то цикл прерывается командой break.,
    • увеличивается значение переменной i,
    • проверяется условие i=1. Если оно выполняется, то присваиваются значения переменным min и i: min=i.
  4. Если значение переменной a меньше значения переменной min, то обновляется значение переменной min и i: min=a, i=imin.
  5. Цикл повторяется до тех пор, пока значение переменной a не станет равным значению переменной kn.
  6. По окончании цикла выводится сообщение «Min = », после чего выводятся значения переменных min и i с помощью команды writeln().
  7. Выводится символ новой строки с помощью функции readln().

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

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