Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Составить задачу в object pascal (http://www.tehnari.ru/f41/t92864/)

Квитокс 05.12.2013 18:13

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

AlexZir 05.12.2013 19:12

Открою вам один страшный секрет, только вы его никому не рассказывайте. Объектно-ориентированный 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 на экран либо на форму.


Часовой пояс GMT +4, время: 08:22.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.