Текст программы

PROGRAM laborator_N_3;

{ Программа Лабораторной работы N 3

Вариант N 31.

гр. Я-007, ст. Умненькая И.Я. }

VAR N,Num,i :integer;

A :real;

LABEL vvod;

BEGIN { Выполняемый блок.

Первый раздел - ввод данных }

vvod: writeln('Сколько будет чисел?');

readln(N);

if N < 1 then

begin

writeln('Нельзя рассматривать меньше 1 числа');

goto vvod;

end;

{ Основной раздел - поиск номера }

Num:= -1; {задание признака отсутствия подходящих чисел}

for i:=1 to N do

begin

writeln('Введите очередное число');

readln(A);

if A > 10.5 then { если число удовлетворяет

условию задачи }

Num:=i; { запоминаем его номер }

end;

{ Раздел вывода результатов поиска }

if Num=-1 then writeln('Подходящих чисел не было')

else

writeln('Номер последнего числа,>10.5 равен ',

Num);

END.


Варианты заданий

Таблица 15. Варианты заданий лабораторной работы № 3

№ вар. Задание Остановить обработку при… Тип обраб. данных
Вычисление произведения последовательно вводимых чисел …превышении абсолютной величины произведения 1000.0, или при вводе числа 0 Веществ.
Вычисление суммы только четных чисел из последовательно вводимых чисел …вводе заказанного количества чисел Целые
Нахождение номера минимального значения в последовательности вводимых чисел …вводе признака конца – предварительно введенного пользователем числа Целые
Вычисление суммы только положительных чисел изпоследовательно вводимых чисел …превышениисуммы 100.0 Веществ.
Нахождение максимального значения в последовательности вводимых чисел. При поиске пропускать числа из диапазона от 10.1 до 50.1. …вводе заказанного количества чисел Веществ.
Вычисление суммы последовательно вводимых чисел …вводе признака конца – значения из заранее выбранного пользователем диапазона Веществ.
Нахождение минимального значения среди последовательности вводимых чисел. Сам признак конца при определении минимума не учитывать. …вводе признака конца – предварительно введенного пользователем числа из диапазона -10..5 Целые
Вычисление произведения последовательно вводимых чисел заданного количества …вводе заказанного количества чисел – не меньше 5 но и не более 10 Веществ.
Нахождение минимального значения из чисел, кратных трем, среди последовательности вводимых чисел. …вводе заказанного количества чисел Целые
Вычисление суммы последовательно вводимых чисел …превышении абсолютной величины суммы 100.1 Веществ.
Нахождение максимального из последовательно вводимых чисел …вводе признака конца – предварительно выбранного пользователем числа Целые беззнаковые
Вычисление произведения последовательно вводимых чисел …вводе признака конца – числа из диапазона от -5 до 5 (включительно) Целые
Нахождение номера максимального значения, кратного пяти, в последовательности вводимых чисел …вводе признака конца – предварительно выбранного пользователем числа Целые
Вычисление факториала вводимого числа. Если результат не помещается в 4 байта, программа должна сообщать об этом Факториалом целого числа N (обозначается N!) называется произведение всех целых чисел от 1 до N. По определению, 0!=1 Длинные целые (4 байта)
Вычисление среднеарифметического тех из последовательно вводимых чисел, которые попадают в диапазон от 2.0 до 5.0 включительно. …вводе заказанного количества чисел Веществ.
Нахождение номера максимального отрицательного значения в последовательности произвольных вводимых чисел …вводе признака конца – предварительно выбранного пользователем числа Веществ.
Вычисление произведения только отрицательных из последовательно вводимых произвольных чисел …вводе заказанного количества чисел Веществ.
Нахождение номера наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры …вводе заказанного количества чисел Веществ.
Вычисление среднеарифметического последовательно вводимых чисел …вводе третьего отрицательного значения, которое рассматривать как признака конца, а не число. Веществ.
Нахождение максимального отрицательного значения в последовательности вводимых произвольных (как положительных, так и отрицательных) чисел …вводе заказанного количества чисел Целые
Вычисление среднего значения только положительных элементов среди вводимых произвольных чисел …вводе заказанного количества чисел Веществ.
Нахождение разности номеров первого и последнего отрицательных чисел в последовательности водимых чисел …вводе заказанного количества чисел Целые
Вычисление среднеарифметического только отрицательных чисел среди произвольных вводимых чисел …вводе признака конца (выбранного пользователем произвольного числа). Веществ.
Нахождение разности максимального и минимального значений в последовательности вводимых чисел …вводе заказанного количества чисел Целые
Вычисление суммы только отрицательных чисел, абсолютная величина которых превышает 8.5, из последовательно вводимых произвольных чисел …вводе заказанного количества чисел Веществ.
Нахождение минимального значения среди последовательности вводимых чисел, из которых рассматриваются только четные …вводе заказанного количества чисел Целые
Вычисление отношения суммы всех положительных чисел к сумме всех отрицательных в последовательности вводимых чисел …вводе заказанного количества чисел Веществ.
Нахождение разности номеров максимального и минимального значений в последовательности вводимых чисел …вводе заказанного количества чисел Веществ.
Вычисление среднеарифметического значения только отрицательных элементов после первого 0 среди вводимых произвольных вещественных чисел …вводе заказанного количества чисел Веществ
Вычисление отношения суммы всех положительных чисел к сумме всех чисел в последовательности вводимых чисел …вводе признака конца – числа 0 Веществ.
Нахождение номера последнего числа, превышающего значение 10.5 в последовательности вводимых произвольных чисел …вводе заказанного количества чисел Веществ.