Нарисуйте пожалуйста две блок схемы:
№1
| Pascal |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| Program ArcSin;
const MaxIter=100;
var n,iter_count:integer; x, dx, S, E:real;
begin
iter_count:=0;
n:=1;
S:=0;
writeln ('Vvedite x');
writeln ('Vvedite dx');
writeln ('Vvedite eps');
readln(x,dx,E);
Writeln ('----------------------------------------------------' );
Writeln ('|N | x | y |' );
Writeln ('----------------------------------------------------' );
while (abs(x)<E) do begin
S:=S+ ( (2*n-1)*exp((2*n+1)*ln(x)) )/ (2*n*(2*n+1)) ;
x:=x+dx;
n:=n+1;
iter_count:=iter_count+1;
writeln ('|',n-1,' |', x , '|', S,'|' );
end;
writeln ('Znachenie summy ',S,' pri x=',x,' bylo opredeleno za ', iter_count, ' iteraciy');
readln;
end. |
|
№2
В одномерном массиве, состоящем из n вещественных элементов, вычис-
лить:
1) произведение отрицательных элементов массива;
2) сумму положительных элементов массива, расположенных до макси-
мального элемента.
Изменить порядок следования элементов в массиве на обратный.
| Pascal |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
| program Lab5;
Uses crt;
Var x:array [1..100] of real;
i,j,n:integer;
max,s,p:real;
begin
clrscr;
writeln ('================================================================');
Writeln (' Vvedite kolichestvo elementov ');
writeln ('================================================================');
Readln (n);
for i:=1 to n do begin
write ('Vvedite ',i, ' element= ');
Readln (x[i]);
end;
p:=1;
for i:=1 to n do
if x[i]<0 then p:=p*x[i];
writeln ('================================================================');
writeln (' Proizvedenie otricatelnyx elementov = ',p);
writeln ('================================================================');
Max:=x[1];
for i:=1 to n do
if x[i]>=max then begin
max:=x[i];
j:=i;
end;
writeln ('================================================================');
Writeln (' Maxim element = ',max);
writeln ('================================================================');
s:=0;
for i:=1 to j-1 do
if x[i]>=0 then s:=s+x[i];
Writeln (' ');
Writeln (' ');
writeln ('================================================================');
writeln (' Summa polozhitelnyx elementov =',s);
writeln ('================================================================');
Writeln (' ');
Writeln (' ');
writeln ('================================================================');
write('Vivod massiva v obratnom poriadke:');
for i:=0 to n-1 do
write(round(x[n-i]),' ');
writeln(' ');
writeln ('================================================================');
Readln;
end. |
|
(
