Программирование в средах семейства Pascal и в среде Delphi (стр. 4 )

       begin

               Оператор1;

               Оператор2;

               …

               ОператорN;

       end

Составной оператор рассматривается компилятором как один оператор.

Логическое выражение – это способ записи на языке программирования условий для поиска необходимых данных. Логическое выражение может принимать значение true (истина) и false (ложь). Логические выражения бывают простые и сложные.

Просто логическое выражение – это два арифметических выражения, соединенные символом отношения, а сложное логическое выражение – это простые логические выражения, соединенные логическими операциями not, and и or. Приоритет выполнения соответствует обычному приоритету выполнения логических операций.

Ветвление

Оператор ветвления if

Второе название оператора ветвления – условный оператор. Существует две формы условного оператора:

1. Полная

if ЛогическоеВыражение then        Оператор1 else        Оператор2;

Действие: Если ЛогическоеВыражение истинно, то выполняется Оператор1, в противном случае Оператор2.

2. Краткая

if ЛогическоеВыражение then        Оператор1;

Действие: Оператор1 выполняется только в том случае, если ЛогическоеВыражение истинно.

В обеих формах условного оператора if исполняемые операторы могут быть как простыми, так и составными.

Пример.

Вычистить и вывести значение сложной функции в некоторой заданной пользователем точке х, если

y =	{	ln|x|, если x<-1
sin(x), если –1<=x<1
cos(x), если x>1

Блок-схема	Код программы в среде Pascal
	program MyFunction; uses Crt; var x, y: real; begin        clrscr;        writeln(‘введите x’);        readln(x);        if x<-1 then y:=ln(abs(x)) else                if (x<=-1) and (x<1) then y:=sin(x)                else y:=cos(x);        writeln(‘x=’, x:5:2, ‘y=’, y:5:2);        readln; end.

Внешний вид формы в среде Delphi

В конструкторе	При выполнении

Код программы в среде Delphi

procedure TForm1.Button1Click(Sender: TObject);

var x, y: double;

begin

x:= StrToFloat(Edit1.Text);

{перевод из строки в действительное число с плавающей точкой}

if x<-1 then y:=ln(abs(x))

else if (x<=-1) and (x<1) then y:=sin(x)

else y:=cos(x);

Edit2.Text:=FloatToStr(y);

{перевод действительного числа с плавающей точкой в строку}

end;

Оператор безусловного перехода goto

Оператор goto – оператор безусловного перехода, предназначен для изменений последовательности выполнения команд в программе путем передачи управления некоторому оператору с меткой. Следует отметить, что оператор безусловного перехода не принадлежит к операторам структурного программирования, поэтому в современных средах и языках программирования использование подобных оператор не приветствуется.

Оператор имеет следующий вид:

       goto: Метка1;

Метка может стоять перед любым оператором.

               Метка1: Оператор;

Метки нужно заранее объявлять в разделе label:

               label: СписокМеток;

Метка можно быть идентификатором или числом от 0 до 9999.

Пример.

Вывести значения коэффициентов квадратного уравнения ax2+bx+c=0, a<>0. Вывести сообщение о наличии действительных корней для каждого варианта.

Блок-схема

Код программы в Pascal

program Equation;

uses Crt;

label finish;

var a, b, c, d: real;

begin

       clrscr;

       readln(a, b,c);

       if a=0 then

               begin

                       writeln(‘старший коэффициент равен 0’);

                       goto finish;

               end;

       d:=b*b – 4*a*c;

       if d>=0 then

               begin

                       writeln(‘Данное уравнение имеет действительные корни’);

                       goto finish;

               end

       writeln(‘Уравнение действительных решений не имеет’);

       finish: readln;

end.

Внешний вид формы в Delphi

В конструкторе	При выполнении

Код программы в среде Delphi

procedure TForm1.Button1Click(Sender: TObject);

label finish;

var a, b, c, d : real;

       str: string;

begin

       a:=StrToInt(Edit1.Text);

       b:=StrToInt(Edit2.Text);

       c:=StrToInt(Edit3.Text);

       if a=0 then

               begin

                       str:='старший коэффициент равен 0';

                       goto finish;

               end;

       d:=b*b - 4*a*c;

       if d>=0 then

               begin

                       str:='Данное уравнение имеет действительные корни';

                       goto finish;

               end ;

       str:='Уравнение действительных решений не имеет';

       goto finish;

       finish: Label4.Caption:=str;

end;

Лабораторная работа № 2

Используя оператор ветвления if, вычислить и вывести значение сложной функции в некоторой заданной пользователем точке х, если:

y =	{	10 | fi (x) + i | , x < -10
15 | fi+1 (x) – i – 1 | , -10 <x < 10
20 | fi+2 (x) + i+2 | ,  x>10

Выполнить два варианта: один – в среде Pascal, другой – в среде Delphi.

Оператор выбора case

Оператор выбора Case используется для выбора одного из нескольких направлений дальнейшего хода программы (последовательности операторов, которые должны быть выполнены).

Case Выражение of        СписокЗначений1: Оператор1;        …        СписокЗначенийN: ОператорN;        else Оператор(N+1) end;

где Выражение – это простая переменная целого, символьного, перечисляемого или логического типа, списки значений – константы или диапазоны, тип которых должен совпадать с типом выражения. Составная часть else не является обязательной

Действие: Если значение Выражения совпадает с некоторыми значениями из i – ого списка, то выполняется Оператор с номер i, а другие операторы этой конструкции не выполняются. Если значения выражения не совпадает ни с одним значением из любого списка, то выполняется оператор n+1, а в случае его отсутствия – оператор, следующий за конструкцией Case.

Пример.

Пусть населенные пункты обозначены номерами от 1 до 8. Стоимость одного билета Cost к пункту k определяется следующим образом:

       22, k=1,

       25, k=2,3,4

       30, k=5,6

       35, k=7,8

Сколько стоит m билетов к населенному пункту, выбранному пользователем?