Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 05.12.2013, 18:13   #1 (permalink)
Квитокс
Новичок
 
Регистрация: 05.12.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Составить задачу в object pascal

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

Старый 05.12.2013, 18:13
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Похожие темы уже создавались другими участниками форума, вот их список

Составить программу в Pascal
Помогите составить программу в Object Pascal
Помогите решить задачу в Pascal ABC
Помогите решить задачу в Pascal
Помогите решить задачу Pascal

Старый 05.12.2013, 19:12   #2 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,514
Записей в дневнике: 57
Сказал(а) спасибо: 125
Поблагодарили 152 раз(а) в 63 сообщениях
Репутация: 59794
По умолчанию

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.