Учебный курс Программирование на Delphi. Модуль 6: различия между версиями

Материал из Wiki Mininuniver
Перейти к навигацииПерейти к поиску
 
Строка 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

Программирование на Delphi циклов с параметром

Оператор 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.

  • Форма с результатом работы программы

-3-1.JPG

Задание

Таблица 11 <math>Вставляйте сюда формулу</math>

Таблица 12

Литература

  1. Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
  2. Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
  3. Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.


Ссылки

Учебный курс Программирование на Delphi

Учебный план курса Программирование на Delphi