2.2 Приклади розробки програм лінійного алгоритму

1. Скласти програму обчислення значення многочлена прямим алгоритмом і за схемою Горнера при х=0,25

y₁=3x⁴+2x²+x+7

y₂=(((3x+0)x+2)x+1)x+7

PROGRAM L1;

CONST

X=0.25;

VAR

Y1,Y2:REAL;

BEGIN

Y1:=3*EXP(4*LN(X))+2*SQR(X)+X+7;

Y2:=(((3*X+0)*X+2)*X+1)*X+7;

WRITELN ( ‘значение Y1=’,Y1:6:3, ‘значение Y2=’,Y2:6:3)

END.

2. Скласти програму обчислення значення функції:

, де х – дійсне число, а,с – цілі числа.

PROGRAM L2;

VAR

A,C:INTEGER; X,Y:REAL;

BEGIN

READLN (X,A,C);

Y:=SQRT(ABS(X-A*SQR(X)+C))/LN(ABS(X+EXP(4*LN(X))))–EXP(X-1);

WRITELN (‘значение функции Y=’,Y:10:4)

END.

3. Скласти програму обчислення періоду коливання маятника за формулою:

T=2 ,

Де: g = 9,81м/с² e = 0,21м

PROGRAM 1;

CONST

PI=3.14; G=9.81; L=0.21;

VAR

T:REAL;

BEGIN

T:=2*PI*SQRT(L/G);

WRITELN (‘период колебания маятника Т=’,T:10:4)

END.

4. Скласти програму обчислення об’єму циліндра, площі його бокової та повної поверховості за формулами:

V = R²H; S_бок = 2RH; S_n = 2RH+2R, якщо задані R тa H.

PROGRAM P1;

CONST

PI=3.14;

VAR

R,H,V,SB,SP:REAL;

BEGIN

V:=PI*SQR(R)*H;

SB:=2*PI*R*H;

SP:=2*PI*R*H+2*PI*R;

WRITELN (‘объём цилиндра V=’,V:8:3);

WRITELN (‘площадь боковой поверхности S1=’,S1:8:3)

WRITELN (‘площадь полной поверхности S2=’,S2:8:3)

END.

3. Програмування розгалуженого алгоритму

3.1 Основні оператори

Оператор безумовного переходу GOTO

GOTO (мітка);

GOTO – йти до. Оператор безумовного переходу виконує передачу управління програмою до оператора, який помічений вказаною міткою. Мітка оператора обов’язково повинна бути описана в розділі опису міток.

Використання оператора безумовного переходу в Паскалі необов’язково й небажано, так як може бути порушена структурна цілісність програми.

Умовний оператор IF…THEN…ELSE

IF (логічна умова)

THEN (оператор-1)

ELSE (оператор-2);

IF – якщо, THEN – то, ELSE – інакше.

Умовний оператор дозволяє виконати один із двох операторів, які входять до нього, після перевірки деякої логічної умови. Якщо значення логічного виразу істинно, то виконується оператор-1, хибно – оператор-2. Далі в кожному випадку виконується оператор, який слідує за умовним оператором.

Існує скорочена форма умовного оператору:

IF (логічна умова)

THEN (оператор);

В цьому випадку, після перевірки логічної умови, якщо значення логічного виразу істинно, то виконується деякий оператор, хибно – даний оператор не виконується. Далі в кожному випадку виконується оператор, який слідує за умовним оператором.

Умовний оператор може мати вкладену конструкцію, коли після умовного оператору використовуються інші умовні оператори.

IF (логічна умова-1)

THEN (оператор-1)

ELSE IF ( логічна умова-1)

THEN (оператор-2)

ELSE (ОПЕРАТОР-3);

До складу умовного оператору в кожному з напрямків (істинно, хибно) можна використовувати тільки один оператор. Існує багато задач, в яких у випадку істинності (хибності) логічної умови необхідно виконати групу операторів. Якщо в якомусь з напрямків необхідно виконати декілька операторів, то їх об’єднують в один складовий оператор і заключають в операторні дужки BEGIN-END.

IF (логічна умова)

THEN (оператор-1)

ELSE BEGIN

(оператор-2);

(оператор-3);

. . .

(оператор-n)

END;

Розглянуті оператори дозволяють програмувати розгалужений алгоритм.

Оператор варіанту CASE…OF…END

Оператор варіанту являється узагальненням умовного оператору та дає змогу виконати один з кількох операторів у залежності від значення деякого виразу, що називається селектором.

CASE (селектор) OF (мітка-1):(оператор-1); (мітка-2):(оператор-2); . . . (мітка-n):(оператор-n) END;

CASE – вибір, OF – із, END – кінець;

селектор – вираз цілого, логічного або символьного типу (не дійсного);

(мітка-1) – (мітка-n) – список значень виразу селектор, того ж типу, що і селектор. Оператор варіанту вибирає для виконання той оператор, мітка якого дорівнює поточному значенню селектора.