Програмування циклічного алгоритму в Паскалі

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

PROGRAM SUM;

VAR

X,Y,S1,S2,S:INTEGER;

BEGIN

S1:=0; S2:=0;

FOR X:=10 TO 20 DO

S1:=S1+X;

FOR Y:=20 DOWNTO 10 DO

S1:=S1+Y;

S:=S1+S2;

WRITELN (‘значение суммы S = ’,S)

END.

2. Скласти програму табулювання функції у дійсного аргументу х на відрізки

(-20,20) з кроком 0,5, використовуючи оператор циклу з передумовою:

cos(xb)², якщо -20£x£0

y= , якщо 0<х£20

де: a,b – цілі числа.

PROGRAM TAB;

CONST

X0=-20; XN=20; HX=0,5;

VAR

X,Y:REAL;

A,B:INTEGER;

BEGIN

READLN (A,B);

X:=X0;

WHILE X<=XN DO

BEGIN

IF X<=0

THEN Y:=COS(SQR(X*B))

ELSE Y:=SQRT(A+B*EXP(3*LN(X)));

WRITELN (‘при x=’,X, ‘y=’Y);

X:=X+HX

END

END.

Поиск по сайту: