Учебный курс Программирование на Delphi. Модуль 6: различия между версиями
Строка 1: | Строка 1: | ||
Учебный курс Программирование на Delphi. Модуль 6 | Учебный курс Программирование на Delphi. Модуль 6 | ||
− | '''Программирование на Delphi циклов с параметром''' | + | <center>'''Программирование на Delphi циклов с параметром'''</center> |
==Оператор for == | ==Оператор for == | ||
Строка 29: | Строка 29: | ||
== Пример 1.== | == Пример 1.== | ||
*Условие | *Условие | ||
+ | Приписать к 523*** три такие цифры справа, чтобы полученное шестизначное число делилось на 7, на 8, на 9. | ||
*Использованные компоненты | *Использованные компоненты | ||
+ | BitBtn1,BitBtn2 - рабочие кнопки, | ||
+ | Label1 - вывод информации | ||
*Программный код | *Программный код | ||
+ | var | ||
+ | Form1: TForm1; | ||
+ | implementation | ||
+ | {$R *.dfm} | ||
+ | var s,a,b,c,n: integer; | ||
+ | procedure TForm1.BitBtn2Click(Sender: TObject); | ||
+ | begin | ||
+ | close; | ||
+ | end; | ||
+ | procedure TForm1.BitBtn1Click(Sender: TObject); | ||
+ | begin | ||
+ | for n:=0 to 999 do | ||
+ | begin | ||
+ | s:=523000+n; | ||
+ | a:=s mod 7; | ||
+ | b:=s mod 8; | ||
+ | c:=s mod 9; | ||
+ | if (a=0) and (b=0) and (c=0) then label1.Caption:='523..'+inttostr(n); | ||
+ | end; | ||
+ | end; | ||
+ | end. | ||
*Форма с результатом работы программы | *Форма с результатом работы программы | ||
− | + | [[Изображение:-3-1.JPG]] | |
==Задание== | ==Задание== | ||
Таблица 11 | Таблица 11 | ||
+ | <math>Вставляйте сюда формулу</math> | ||
Таблица 12 | Таблица 12 |
Версия 13:00, 26 февраля 2008
Учебный курс Программирование на Delphi. Модуль 6
Содержание
Оператор for
Алгоритм называется циклическим, если он содержит многократное выполнение одних и тех же ветвей при различных значениях промежуточных данных.
Различают циклы с параметрами и циклы с условием. Для программирования циклов с параметром в Delphi используют оператор for.
Формат оператора:
for v := а1 to а2 do оператор;
v – переменная цикла – переменная порядкового типа,
a1- выражение, задающее начальное значение переменной цикла,
a2 - выражение, задающее конечное значение переменной цикла.
Оператор – оператор, выполнение которого будет повторяться (оператор тела цикла).
Если нужно сделать цикл по убыванию, то оператор for записывается в виде
for v: =a1 downto a2 do оператор;
Оператор работает так же, но шаг переменной цикла –1.
Пример 1.
- Условие
Приписать к 523*** три такие цифры справа, чтобы полученное шестизначное число делилось на 7, на 8, на 9.
- Использованные компоненты
BitBtn1,BitBtn2 - рабочие кнопки, Label1 - вывод информации
- Программный код
var Form1: TForm1;
implementation {$R *.dfm}
var s,a,b,c,n: integer;
procedure TForm1.BitBtn2Click(Sender: TObject); begin close; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin
for n:=0 to 999 do begin s:=523000+n; a:=s mod 7; b:=s mod 8; c:=s mod 9; if (a=0) and (b=0) and (c=0) then label1.Caption:='523..'+inttostr(n); end;
end; end.
- Форма с результатом работы программы
Задание
Таблица 11 <math>Вставляйте сюда формулу</math>
Таблица 12
Литература
- Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
- Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
- Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.