![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
WHILE | FOR |
Параметр: = Начальное значение; While Параметр < = Конечное значение do begin тело цикла Параметр:= Параметр + Шаг; end; | For Параметр: = Нач. знач. to Конеч.знач. do begin тело цикла end; |
Тип параметра | |
Любой тип | Только перечисляемый (Integer, Char) |
Величина шага | |
Любое значение | Всегда 1 |
Изменение величины параметра цикла | |
Вычисляется по заданной формуле | Автоматическое на +1 или -1 |
28. Дайте определение вложенных циклов. Приведите примеры.
возможность организовать цикл внутри тела другого цикла. Что такое вложенные циклы, понятно из названия - это циклы, которые вложены в другие циклы. К примеру, если один цикл позволяет вывести лишь ряд чисел, то 2 цикла, один из которых вложен в другой, позволят вывести целую таблицу значений.
Никаких специальных конструкций для вложенных циклов нет. Всё работает точно также. Переменные-счётчики циклов, как правило, называют буквами I, J, K, хотя название, конечно, может быть любое.
Пример
Простейший пример применения вложенного цикла - вывод таблицы умножения. Для начала продумаем алгоритм: для вывода таблицы для одного конкретного числа (например, для 5), нужно создать цикл, который пройдёт значения от 1 до 9 и выведет произведение числа 5 на каждое из этих чисел. А чтобы вывести таблицу для самих чисел от 1 до 9, нужен ещё один такой же цикл.
![]() | procedure TForm1.Button1Click(Sender: TObject); var i,j: Integer; begin Memo1.Lines.Clear; for i:= 1 to 9 do for j:= 1 to 9 do Memo1.Lines.Add(IntToStr(i)+' x '+IntToStr(j)+' = '+IntToStr(i*j)) end; |
Совершенное число — это число, равное сумме всех своих делителей, исключая себя самого, например 6=1+2+3. К настоящему времени найдено 24 совершенных числа (6, 28, 496, 8128...). Все они четные. Существуют ли нечетные совершенные числа и конечно ли их множество — неизвестно.
Пример. Определение всех совершенных числ, меньших заданного n
Пример Вычисление суммы степеней
Дата публикования: 2015-02-03; Прочитано: 576 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!