ТРИ РЕШЕНИЯ ОДНОЙ ЗАДАЧИ: Программа «Чемпион»
Turbo Pascal, Delphi, Action Script

Данный урок рассчитан на тех, кто уже знаком с азами программирования и имеет элементарные навыки работы в программной среде Turbo Pascal 7.1., Delphi 7.0. и Flash MX. Урок будет сопровождаться лирическими отступлениями в виде справочного материала по программированию. Я очень надеюсь, что этот урок, позволит Вам в последующем самостоятельно решать задачи, в которых требуется организовать ветвящуюся структуру.

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

Для практического исследования организации разветвлений возьмём очень простую с точки зрения физики задачу:

Условие задачи:
Развивая предельно возможную скорость своего движения, жираф пробегает за 23 с 335,8 м. Заяц пробегает за 55 с 918,5 м. Кому из этих животных вы присвоите звание чемпиона, сопоставляя их скорости?

Решение задачи сводится к расчёту скорости животных и их последующему сравнению. Представим алгоритм решения задачи в виде блок-схемы.

Обратите внимание, что в ходе реализации решения задачи в Delphi и Flash мы сделаем ветвящуюся структуру более сложной, а именно будем анализировать содержимое полей ввода. Может быть, пользователь не заполнил какое-то поле и тщетно нажимает кнопочку расчётов? Может быть, введённые им данные не являются числами?

Обратите внимание на вложенную структуру оператора. Справочный материал по программированию в Turbo Pascal позволит Вам разобраться с текстом программы самостоятельно.

program champion;
 uses crt;
 var s1,s2,t1,t2,v1,v2:real;
begin
 clrscr;
 writeln ('Введите показатели жирафа s1, t1');
 readln (s1,t1);
 writeln ('Введите показатели зайца s2, t2');
 readln (s2,t2);
 v1:=s1/t1; v2:=s2/t2;
 if v1=v2 then
    begin
     textcolor (10);
     writeln ('Победила дружба');
    end
 else if v1>v2 then
         begin
          textcolor (14);
          writeln ('Жираф чемпион');
         end
      else
         begin
          textcolor (9);
          writeln ('Заяц чемпион');
         end;
repeat until keypressed;
end.

Справка по программированию. Turbo Pascal 7.1.

Общий формат оператора:
       if <условие> then <оператор> [else <оператор>]
Квадратные скобки говорят нам о том, что служебное слово else может быть упущено. Различают полную и неполную форму оператора.

Общий формат оператора (полная форма):
       if <условие> then <оператор> else <оператор>
Как работает эта конструкция? Выполняется оператор if, т. е. проверяется условие. Условие может быть истинным (true) или ложным (false). Если условие истинно (true) то выполняется оператор, следующий за служебным словом then. Если условие ложно (false) то оператор, следующий за then, игнорируется и программа переходит к выполнению оператора следующего за служебным словом else. Для того чтобы записать группу действий после служебных слов then или else необходимо использовать составной оператор — begin end (операторные скобки).

if <условие> then
begin
<оператор 1>;
<оператор 2>;
...
<оператор n>;
end
else
begin
<оператор 1>;
<оператор 2>;
...
<оператор n>;
end;

Внимание! Перед словом else нельзя ставить точку с запятой. Обратите внимание на запись служебных слов и операторов. Каждое слово else под своим, словом if. Для большей наглядности и «читаемости» текста программы операторы, следующие за словами then и else можно писать на следующей строке.

Общий формат оператора (краткая форма):
Упущено служебное слово else.
       if <условие> then <оператор>

Как работает эта конструкция? Выполняется оператор if, проверяется условие. Если условие истинно (true) то выполняется оператор, следующий за служебным словом then, а затем продолжается выполнение программы. Если условие ложно (false) то оператор, следующий за then, игнорируется и программа продолжает свою работу.

Общий формат оператора (вложенная форма):

if <условие> then
begin
<оператор 1>;
<оператор 2>;
…
<оператор n>;
end
else if <условие> then <оператор>

Как работает эта конструкция? Выполняется оператор if, проверяется условие. Если условие истинно (true) то выполняется операторы, следующие за служебным словом then, и заключённые в операторные скобки begin и end. Если условие ложно (false) то блок операторов, следующий за then, игнорируется и программа переходит к следующему оператору if расположенному за служебным словом else. Если это условие оказывается истинным (true), то выполняется оператор, следующий за служебным словом then… Вложенность операторов неограниченна!

Обратите внимание, что после «закрывающей скобки» end точки с запятой нет!

procedure TForm1.Button1Click(Sender: TObject);
  var s1,t1,s2,t2,v1,v2:real;
  code: integer;
  S,v1S,v2S: string;
begin
  if (Form1.s1.Text='') or (Form1.t1.Text='')
  or (Form1.s2.Text='') or (Form1.t2.Text='')
  then Form1.zvan.Caption:='Не все поля ввода заполнены!'
  else
  begin
     Val (Form1.s1.Text, s1, code);
     Val (Form1.t1.Text, t1, code);
     Val (Form1.s2.Text, s2, code);
     Val (Form1.t2.Text, t2, code);
          v1:=s1/t1; v2:=s2/t2;
     Str (v1:9:3, v1S);
     Str (v2:9:3, v2S);
     Form1.v1.Caption:=v1S;
     Form1.v2.Caption:=v2S;
     if v1=v2 then S:='Победила дружба!!!'
     else if v1>v2 then S:='Жираф чемпион!'
          else S:='Заяц чемпион!';
     Form1.zvan.Caption:=S;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.s1.Text:='';
   Form1.t1.Text:='';
   Form1.s2.Text:='';
   Form1.t2.Text:='';
   Form1.v1.Caption:='';
   Form1.v2.Caption:='';
   Form1.zvan.Caption:='';
end;

unit sorevn1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    s1: TEdit;
    t1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    s2: TEdit;
    t2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    v1: TPanel;
    Label6: TLabel;
    Label7: TLabel;
    v2: TPanel;
    Button1: TButton;
    Label8: TLabel;
    Label9: TLabel;
    zvan: TPanel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
  var s1,t1,s2,t2,v1,v2:real;
  code: integer;
  S,v1S,v2S: string;
begin
  if (Form1.s1.Text='') or (Form1.t1.Text='')
  or (Form1.s2.Text='') or (Form1.t2.Text='')
  then Form1.zvan.Caption:='Не все поля ввода заполнены!'
  else
  begin
     Val (Form1.s1.Text, s1, code);
     Val (Form1.t1.Text, t1, code);
     Val (Form1.s2.Text, s2, code);
     Val (Form1.t2.Text, t2, code);
          v1:=s1/t1; v2:=s2/t2;
     Str (v1:9:3, v1S);
     Str (v2:9:3, v2S);
     Form1.v1.Caption:=v1S;
     Form1.v2.Caption:=v2S;
     if v1=v2 then S:='Победила дружба!!!'
     else if v1>v2 then S:='Жираф чемпион!'
          else S:='Заяц чемпион!';
     Form1.zvan.Caption:=S;
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.s1.Text:='';
   Form1.t1.Text:='';
   Form1.s2.Text:='';
   Form1.t2.Text:='';
   Form1.v1.Caption:='';
   Form1.v2.Caption:='';
   Form1.zvan.Caption:='';
end;
end.

Справка по программированию. Delphi 7.0.

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.v1.Caption:='';
end;

on (release) {
	if ((s1=="") || (t1=="") || (s2=="") || (t2=="")
	|| (Number(s1)!=s1) || (Number(t1)!=t1)
	|| (Number(s2)!=s2) || (Number(t2)!=t2)) {
		zvan = "Нет данных!";
		v1 = "";
		v2 = "";
	} else if ((Number(t1)<=0) || (Number (t2)<=0)
	|| (Number(s1)<=0) || (Number(s2)<=0)) {
	zvan = "Среди данных есть нули или отрицательные числа!";
	v1 = "";
	v2 = "";
	} else {
		v1 = Number(s1)/Number(t1);
		v2 = Number(s2)/Number(t2);
		if (v1==v2) {
			zvan = "Победила дружба!";
		} else if (v1>v2) {
			zvan = "Жираф чемпион!";
		} else {
			zvan = "Заяц чемпион!";
		}
	}
}

Обратите внимание, что разветвление программы начинается с того момента, когда мы с Вами начинаем анализировать содержимое полей ввода. Например, в том случае если хотя бы одно из полей ввода осталось незаполненным программа в разделе Результат соревнований, в динамическом поле c именем zvan выдаст сообщение: «Недостаточно данных», ну а два других динамических поля (v1 и v2), судя по тексу программы, будут в этой ситуации просто скромненько помалкивать. Впрочем, Вы можете позволить себе смелый эксперимент и организовать работу программы таким образом, чтобы эти поля не «молчали», а работали при условии, конечно, что нужные им данные будут всё-таки введены пользователем. Например, показатели жирафа были введены, и в поле v1 программа вывела рассчитанную скорость, а вот зайца «обидели», и поле с именем v2 не просто промолчало, а ещё и «обиделось», эту обиду можно представить в виде вопросительного знака.

Если пользователь правильно заполнил поля ввода, то программа попадает на 11 строку акции, где скорости рассчитываются, а затем анализируются. Обратите внимание на вложенность оператора if. Проведите эксперимент, для того чтобы убедиться в том, что созданная Вами структура представляет собой единое целое. Для этого встаньте на 2 строку и щёлкните по кнопочке со знаком минус. В акции останутся целыми и невредимыми только первые две строки!

Кнопочке для очистки полей ввода и вывода пропишем акцию:

on (release) {
    s1 = "";
    s2 = "";
    t1 = "";
    t2 = "";
    v1 = "";
    v2 = "";
    zvan = "";
}

Эти строки без комментариев.

Теперь остаётся обсчитать ролик и полюбоваться полученным результатом.

Справка по программированию. Action Script (Macromedia Flash MX)

Общий формат оператора (краткая форма):

if (condition) {
statement(s);
}

Как работает эта конструкция? Условие (condition) — логическое высказывание, которое может быть истинным (true) или ложным (false). Например, if (name == "Best"), этот оператор просматривает содержимое переменной с именем name и сравнивает её значение со строкой "Best". В том случае если содержимое переменной соответствует содержимому строки, то есть высказывание истинно (true), программа переходит к выполнению инструкции или серии инструкций (statement(s)) записанных в фигурных скобках. Инструкции разделяются точкой с запятой. Впрочем, если Вы работаете в Нормальном режиме (Normal Mode) то Flash обо всём этом позаботится сам.

Как работает эта конструкция? Условие (condition) — логическое высказывание, которое может быть истинным (true) или ложным (false). Например, if (name == "Best"), этот оператор просматривает содержимое переменной с именем name и сравнивает её значение со строкой "Best". В том случае если содержимое переменной соответствует содержимому строки, то есть высказывание истинно (true), программа переходит к выполнению инструкции или серии инструкций (statement(s)) записанных в фигурных скобках. Инструкции разделяются точкой с запятой. Впрочем, если Вы работаете в Нормальном режиме (Normal Mode) то Flash обо всём этом позаботится сам.

Общий формат оператора (полная форма):

if (condition) {
statement(s);
}
else {
statement(s);
}

Как работает эта конструкция? В том случае если высказывание, указанное в if оказывается ложным (false), то управление переходит к пятой строке — это альтернативная инструкция или серия инструкций.

Общий формат оператора (вложенная форма):

if (condition) {
statement(s);
} else if (condition) {
statement(s);
}

Как работает эта конструкция? В том случае если высказывание, указанное в if оказывается истинным (true), то управление переходит ко второй строке — выполняются инструкции, заключённые во внутренние фигурные скобки. В том случае если высказывание, указанное в if оказывается ложным (false), то программа пропускает инструкции, записанные во внутренних фигурных скобках, и передаёт управление третьей строке, в которой мы видим ещё одно логическое высказывание. Если это высказывание оказывается истинным (true), то программа переходит к выполнению инструкций, записанных на пятой строке… Вложенность операторов неограниченна!

Обратите внимание, что рабочую версию программы выполненной в редакторе Flash вы можете разместить на своей web-страничке, как это сделано в этом уроке. Размер файла тоже впечатляет всего 15 KB, а если поскромничать и убрать кнопочки в виде капелек, не превращать текст в графику, уменьшить размер сцены то файл «похудеет» до 4 KB. Это ещё одно неоспоримое преимущество Flash-технологий. Времена статического Интернета отошли в прошлое, будущее за динамическим интерактивным Интернетом!

_statistics

---