05.12.2013, 18:13 | #1 (permalink) |
Новичок
Регистрация: 05.12.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Составить задачу в object pascal
Задана последовательность из n вещественных чисел. Определить кол-во элементов последовательности, попадающих в заданный интервал [a,b] Нужна помощь. Только object pascal |
05.12.2013, 18:13 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Похожие темы уже создавались другими участниками форума, вот их список Составить программу в Pascal Помогите составить программу в Object Pascal Помогите решить задачу в Pascal ABC Помогите решить задачу в Pascal Помогите решить задачу Pascal |
05.12.2013, 19:12 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Открою вам один страшный секрет, только вы его никому не рассказывайте. Объектно-ориентированный 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 на экран либо на форму.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|