Дана последовательность из 70 целых чисел. Определить, с какого количества отрицательных чисел она начинается. Выполнить в среде delphi.
- ID: 22780
- 10 страниц
Содержание:
Задание
Дана последовательность из 70 целых чисел. Определить, с какого количества отрицательных чисел она начинается. Выполнить в среде Delphi.
Программа выполнена на Delphi 2005 (версия 9).
Алгоритм
Для отображения чисел на экране использован компонент типа TStringGrid (7 рядов по 10 колонок. Ряды нумеруются с нуля, колонки с 1).
Для выбора варианта заполнения последовательности использован компонент типа TComboBox.
Для вывода пояснений и ответа использованы компоненты TLabel. Кроме того, использованы компоненты TButton и для вывода пояснений и предупреждений дважды использован TForm.
Блок-схема основной процедуры программы:
начало
Ввод последовательности Queue[1..70]
i