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

Материал из НГПУ им. К.Минина
Перейти к: навигация, поиск
Программирование на Delphi разветвляющихся алгоритмов

Оператор If

Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи.

Пример 1

  • Условие

Найти максимальную из двух величин а и в

  • Использованные компоненты

Edit1 – ввод

Edit 2 – ввод

Label3 - вывод результирующего сопротивления

  • Программный код
 var a,b,m:real;
procedure TForm1.BitBtn2Click(Sender: TObject);
 begin
 Close;
 end;                                                     
procedure TForm1.BitBtn1Click(Sender: TObject);
 begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
if a>=b then m:=a else m:=b;
 label3.caption:='Первое число= '+floattostr(a)+#13+'Второе число= '
+floattostr(b)+#13+'Максимальное= '+floattostr(m);
 end;
 

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


-2-1.JPG

Задание

Таблица 9


Литература

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