If Условие then Оператор_1 else Оператор_2;
Неполный формат:
If Условие then Оператор;
Условие может быть простым или сложным. Сложные условия образуются с помощью логических операций not, and, or, xor.
Оператор выбора case является обобщением условного оператора и позволяет сделать выбор из произвольного числа имеющихся вариантов. Он состоит из выражение-селектора и списка параметров, каждому из которых предшествует список констант выбора (список может состоять и из одной константы). Результатом выражения-селектора может быть только значение порядкового типа, общее количество элементов которого не превышает 65535.
case Селектор of
Список_1: Оператор_1;
Список_2: Оператор_2;
...
Список_N: Оператор_N
else Оператор_Е
end;
Операторы повторения используются для организации циклов. Цикл – это последовательность операторов, выполняемых более одного раза.
Оператор цикла с предусловием while имеет следующий формат:
while Условие do Тело_цикла;
Условие – булевское выражение, а тело цикла – простой или составной оператор.
Оператор цикла с постусловием состоит из заголовка repeat, тела цикла, замыкающего ключевого слова until, после которого указывается условие окончания цикла:
repeat
Оператор_1;
Оператор_2;
...
Оператор_N
until Условие;
Условие – выражение булевского типа. Вначале выполняются операторы тела цикла, затем проверяется Условие выхода из цикла. Если значением Условие является False, то тело цикла активизируется еще раз, а если значением Условие является True, то происходит выход из цикла.
Оператор цикла со счетчиком for подходит для программирования циклических фрагментов, в которых до выполнения цикла известны начальное и конечное значения счетчика повторений цикла. Он может быть представлен в двух форматах:
1) Если параметр цикла наращивает свое значение:
for Параметр_цикла:=S1 to S2 do Тело_цикла;
2) Если параметр цикла уменьшает свое значение:
for Параметр_цикла:=S1 downto S2 do Тело_цикла;
где S1 и S2 – выражения, определяющие соответственно начальное и конечное значения параметра цикла. Для первого варианта должно быть S1<=S2, а для второго S1>=S2.
Тело цикла может быть простым или составным оператором.
Оператор for обеспечивает выполнение тела цикла до тех пор, пока не будут перебраны все значения параметра цикла – от начального до конечного.
Параметр цикла, его начальное и конечное значения должны принадлежать к одному и тому же типу данных. При этом допустим любой простой тип, кроме вещественного. Если используются типы группы целые и интервальные, то значение параметра цикла последовательно увеличивается (при for .. to) или уменьшается (при for downto) на 1 при каждом повторе.
Задание № 3. Использование стандартных функций
Разработайте консольную программу вычисления значения функции
при х
= 2.346. Затем вычислить квадратный корень
из абсолютной величины полученного
значения, т.е. найти
.
Для этого:
Задайте значение х = 2.346 в виде константы.
Введите вещественные переменные y, z и объявите их Real.
Организуйте вывод на экран результатов вычисления заданных функций.
Листинг программы должен иметь примерно следующий вид:
program Standart_Function;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
x=2.346;
var
y,z: real;
begin
writeln('Raschet function Y=1+cos^2(x)+sin^3(x) for x=2.346');
y:=1+x*sqr(cos(x))+sqr(sin(x))*sin(x);
z:=sqrt(abs(x));
writeln('y=',y);
writeln('z=',z);
readln
end.
Откомпилируйте и выполните программу. При наличии ошибок, исправьте их.
П
ри
отсутствии ошибок вы должны получить
результат, представленный на рис. 2.Сохраните проект программы в папке \Мои документы\ЛЗ-21\Задание-03 под именем Standart_Function.