Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Составной оператор. Условные операторы.
|
|
4. Составной оператор представляет собой группу из произвольного числа операторов, отделенных друг от друга точкой с запятой и ограниченную операторными скобками begin и end. Составной оператор воспринимается как единое целое и может находиться в любом месте программы, где синтаксис языка допускает наличие оператора.
Формат оператора:
begin
Оператор 1;
…
Оператор N;
еnd;
5. Условные операторы обеспечивают выполнение или невыполнение некоторого оператора, группы операторов или блока в зависимости от заданных условий. В Паскале используются два условных оператор: If и Case.
Оператор условия If. Может принимать одну из форм:
If условие then оператор_1
else оператор_2; {полная условная конструкция}
If условие then оператор; {неполная условная конструкция}
В первом случае говорят о полном операторе If, а во втором – о неполном операторе If. Условие – это выражение булевского типа. Оно может быть простым или сложным. Сложные условия образуются с помощью логических операций. При записи условия могут использоваться все возможные операции отношения.
В первом случае если условие истинно, то выполняется оператор_1, если условие ложно – оператор_2. Во втором случае если условие истинно, выполняется оператор, если ложно – оператор, следующий за оператором If.
Оператор If может входить в состав другого оператора If. В этом случае говорят о вложенности операторов:
If условие then
If условие then оператор1
else оператор2;
При вложенности операторов каждое else соответствует тому then, которое непосредственно ему предшествует.
Пример:
If ((A> B) and (C< D)) then
If (Z> =X) then Writeln ('Норма')
else Writeln ('Превышение нормы')
else WriteLn ('Недобор');
Оператор выбора Case является обобщением оператора If и позволяет сделать выбор из произвольного числа имеющихся вариантов. Он состоит из выражения, называемого селектором, и списка параметров, каждому их которых предшествует список констант выбора (список может состоять и из одной константы). Как и в операторе If, здесь может присутствовать слово Else, имеющее тот же смысл. Формат оператора:
Сase выражение-селектор of
Список_1: оператор_1;
Список_2: оператор_2;
...
Список_N: оператор_N
else оператор
end;
Оператор Case передает управление тому оператору, с одним из значений списка которого совпало значение выражения-селектора. Если ни одно из значений списков не совпадает со значением селектора, то либо такой оператор Case эквивалентен пустому оператору и затем выполняется оператор, следующий за словом Еnd, либо выполняется оператор, следующий за словом Else.
Выражение-селектор может иметь любой скалярный тип. Список констант выбора состоит из произвольного числа значений или диапазонов, отделенных друг от друга запятыми.
Примеры:
Case X of {выражение-селектор целого типа}
1, 2, 3: A: =B+C;
4: A: =B-C;
5..9: A: =B*C
else A: =B/C
end;
Case CH of {выражение-селектор литерного типа}
'A'.. 'z': WriteLn ('Введена латинская буква');
'0'.. '9': WriteLn ('Введена цифра')
end;
Program example1;
{Программирование ветвящихся вычислительных процессов}
{использование вещественных значений }
Uses Crt;
Var
x, y, f, g: Real;
Begin
Clrscr; {Очистка экрана}
WriteLn('Введите значения x, y');
ReadLn (x, y);
WriteLn ('При x=', x: 5: 2, ' y=', y: 5: 2);
If x+y< 0 then
begin
WriteLn ('x+y=', x+y: 5: 2, '< 0');
f: =1/sqrt(x*x+y*y);
g: =x-y;
end
else
If x+y< =5 then
begin
WriteLn ('0< =x+y=', x+y: 5: 2, '< =5');
f: =2*x*y;
g: =2*x+3;
end
else
begin
WriteLn ('x+y=', x+y: 5: 2, '> 5');
f: =1/(x+y);
g: =1/sqrt(x*x+1);
end;
WriteLn ('f=', f: 6: 4);
WriteLn ('g=', g: 6: 4);
ReadLn; {Задержка экрана}
End.
Program example2;
{Программирование ветвящихся вычислительных процессов}
{использование целочисленной арифметики }
Uses Crt;
Var
x, y, f, g: Integer;
Begin
Clrscr; {Очистка экрана}
WriteLn('Введите значения x, y');
ReadLn (x, y);
WriteLn ('При x=', x, ' y=', y);
Case x+y of
-Maxint..-1: begin
WriteLn ('x+y=', x+y, '< 0');
f: =1 div round(sqrt(x*x+y*y));
g: =x-y;
end;
0..5: begin
WriteLn ('0< =x+y=', x+y, '< =5');
f: =2*x*y;
g: =2*x+3;
end;
6..Maxint: begin
WriteLn ('x+y=', x+y, '> 5');
f: =1 div (x+y);
g: =1 div round (sqrt(x*x+1));
end
end;
WriteLn ('f=', f);
WriteLn ('g=', g);
ReadLn; {Задержка экрана}
End.
|
|