Составить задачу в object pascal
Здравствуйте. Нужно Cоставить, используя оператор цикла с параметром.
Задана последовательность из n вещественных чисел. Определить кол-во элементов последовательности, попадающих в заданный интервал [a,b] Нужна помощь. Только object pascal |
Открою вам один страшный секрет, только вы его никому не рассказывайте. Объектно-ориентированный 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.