Квитокс

Здравствуйте. Нужно Cоставить, используя оператор цикла с параметром.
Задана последовательность из n вещественных чисел. Определить кол-во элементов последовательности, попадающих
в заданный интервал [a,b]
Нужна помощь. Только object pascal

AlexZir

Открою вам один страшный секрет, только вы его никому не рассказывайте. Объектно-ориентированный Pascal основан на синтаксисе академического Pascal, с многочисленными расширениями.
Для решения поставленной задачи вам достаточно возможностей академического Pascal, а уж с окнами можете заморачиваться сами .

Алгоритм решения следующий:
1) Определяете переменные для хранения значений a (начальное значение интервала), b (конечное значение интервала), n (количество чисел в последовательности), x (число из последовательности), k (количество чисел, попадающих в диапазон), i (параметр цикла). Если работаете с формами - можно организовать ввод значений переменных a, b, n в Edit.Text с преобразованием из текста в число, также последовательность чисел можно ввести в Memo, а значение n будет равно количеству строк из Memo. Но это зависит от того, как вы оформите графический интерфейс программы.
2) Заводите цикл for i:=1 to n do и организуете в нем ввод и анализ последовательности чисел
2.1) считываете текущее число х
2.2) проверяете число на попадание в интервал if (x>=a) and (x<=b) then inc(k);
3) Выводите значение переменной k на экран либо на форму.

__________________
Убить всех человеков!