С условием

End.

Begin

С параметром

Оператор цикла

END.

BEGIN

Условный оператор

Case N of

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

END.

BEGIN

Writeln('Программу разработал Иванов');

Writeln('Возведение положительного числа x степень n');

Writeln(S, ' аргумента х>0'); Readln(x);

Write(S, ' показателя степени n='); Readln(n);

y:=exp(n*ln(x));

Writeln('результат y=', y:10:6); writeln('Нажмите Enter');

readln; {задержка экрана до нажатия Enter}

Case "параметр" Of

"список помеченных операторов"

Else "оператор" End;

Пример операторов для определения порядка целого числа N от 0 до 999:

0..9: writeln('однозначное');

10..99: writeln('двузначное');

100..999: writeln('трехзначное')

else writeln('Число "N" не входит в указанный диапазон') end;

IF "условие" Then "оператор1" Else "оператор2";

Например, вычисление квадратного корня из числа "a" проводится при условии a>=0,

IF a >= 0 Then b:= Sqrt(a) Else begin WriteLn ('a<0'); Readln; Halt end;

Оператор Halt прекращает выполнение программы.

Пример программы: Автобус движется по заданному маршруту с объявлением названий остановок. Зная остановку, на которой надо выходить, вы принимаете определенное решение: Выхожу, либо - Еду дальше, которое выводится на экран.

PROGRAM octanovka;

CONST A1= 'Бульвар Славы'; A2= 'Горсовет'; { A1, A2, A3, A4 - названия }

A3= 'Спортивная'; A4= 'УГАТУ'; { остановок }

Y= 'Выхожу'; N= 'Еду дальше';

var A, A0: String; { A0 - текущая остановка }

writeln('Ввести нужную остановку из списка:');

writeln(A1:15, A2:15, A3:15, A4:15);

Writeln; readln(A); Writeln; { A - нужная остановка }

IF (A<>A1) and (A<>A2) and (A<>A3) and (A<>A4)

then begin Writeln('Нет такой остановки'); readln; Halt end;

A0:= A1; {объявление остановки }

IF A = A0 then begin writeln(Y, A:15); readln; Halt end

else writeln(A0:-15, N:12);

A0:= A2; {объявление остановки }

IF A = A0 then begin writeln(Y, A:15); readln; Halt end

else writeln(A0:-15, N:12);

A0:= A3; {объявление остановки }

IF A = A0 then begin writeln(Y, A:15); readln; Halt end

else writeln(A0:-15, N:12);

A0:= A4; {объявление остановки }

writeln(Y, A:15); readln;

For i:= N1 To N2 Do "оператор";

For i:= N1 DownTo N2 Do "оператор";

Пример расчета конечной суммы последовательности:

1² + 3² + 5² +... + (2*N-1)²; S_N = N*(4*N²-1)/3;

PROGRAM SUM_K; { расчет конечной суммы }

var a, S, Sn, i, N: word;

write('Введите число членов суммы N='); readln(N);

S:= 0;

For i:= 1 to N do begin { цикл суммирования }

a:= Sqr(2 * i-1); S:= S+a end;

Sn:= N * (4 * N * N-1) div 3;

Writeln('Конечная сумма S=', S:-10:2);

Writeln('Расчет конечной суммы по формуле Sn=', Sn:-10:2);

Writeln('Нажми Enter'); readln

While "условие" DO "оператор";

Repeat "операторы" Until "условие";

"условие" - выражение логического типа (Boolean).

Расчет суммы членов бесконечного ряда с заданной погрешностью.

N:= 0; a:= 1; SN:= 1; e:= 2. 7182828; S:= (e2 + 1)/e;

repeat N:= N+1; k:= 1/((2 * N-1) * 2 * N); a:= a * k;

SN:= SN+a;

Writeln('Частичная сумма Sn=', Sn:-11:6, '_ _ n=', n:2);

until abs(S-Sn) < eps; { eps - допустимая погрешность расчетов}

Writeln('_ _ _ Сумма ряда S =', S:-11:6);

Операторы цикла с условием могут применяться для анализа правильности вводимых данных, например, необходимо ввести |X|<1 ("защита от дурака"):

Repeat Write('введите значение |х|<1;_ _x='); readln(x)

until abs(x)<1;

Дата добавления: 2014-01-06