Нарисовать блок-схемы для задач: Задача №3. Циклический вычислительный процесс, циклы с
параметром.
Program PR3;
Var n, k: integer; a, b, S: real;
Begin
WRITELN (‘Введите количество слагаемых’);
READLN (n);
If n<=0 then
Begin
WRITELN(‘Ошибка во входных данных’);
Halt;
End;
a:=1; b:=1;
S:=0;
For k:=1 to n do
Begin
a:=(SQRT (b) + SQRT (a/2))/2; b:=2 * a * a + b;
S:=S + a * b;
End;
WRITELN (‘S=’,S:10:3);
READLN;
End.
Задача №4. Циклические процессы.
Программа на языке Паскаль (цикл с предусловием).
Program PR4;
Const a=0.5; b=5; h=0.25;
Var x, y: real;
Begin
WRITELN(‘’);
WRITELN(‘:---x---:---y---:’);
WRITELN(‘’);
x:=a;
While x <= b + 0.001 do
Begin
y:=3/(x*x) + Ln (x);
WRITELN(‘:’,x:7:3,’:’,y:7:3,’:’);
x:=x + h;
End;
WRITELN(‘’);
READLN;
End.
5 Программирование обработки одномерных массивов
Program PR5;
Const M=20;
Var N, k: integer; C, D, P: real; l: Boolean; B: Array [1..M] of real;
Begin
WRITELN (‘Введите границы отрезка’);
READLN (C,D);
WRITELN (‘Введите размерность массива’);
READLN (N);
If (N<=0) OR (N>M) or (C>=D) then
Begin
WRITELN(‘Ошибка во входных данных’);
Halt;
End;
WRITELN (‘Введите массив’);
For k:=1 to N do
READ (B[k]);
READLN;
l:=False;
P:=1;
For k:=1 to N do
If (B[k] >= C) AND (B[k] <= D) then
Begin
l:=True;
P:=P * B[k];
End;
If l then
WRITELN (‘Произведение элементов массива, попавших в отрезок
[‘,C:5:2,’,’,D:5:2,’], = ‘,P:10:4)
else
WRITELN (‘Элементов, попавших в отрезок [‘,C:5:2,’,’,D:5:2,’], в массиве
нет’);
READLN;
End.