VAR n: integer; |
|
BEGIN |
s: real; |
|
n := n – 1; |
BEGIN |
|
s := s + SQR(n) |
READ(n); |
|
END; |
s := 0; |
|
WRITELN(s) |
WHILE n > 0 DO |
|
END. |
Задание 5. Разработка программы с использованием оператора цикла
Составить подробную спецификацию программы с примерами входных и выходных данных. Разработать программу, используя таблицы разработки. Выполнить трассировку программы. Ввести программу в ЭВМ, сравнить результаты трассировки и работы программы.
Содержание отчета:
1.Задание
2.Спецификация
3.Таблица разработки
4.Текст программы
5.Таблица трассировки
Задания 1–8. Дано натуральное число n. Вычислить: |
|
|
|
|
||||||||||||||||||||||||
1. n! |
|
|
|
|
|
|
|
|
|
|
|
|
5. a·(a + 1) · ... · (a + n – 1) |
|||||||||||||||
|
|
|
1 |
|
|
|
1 |
|
|
1 |
|
|
|
6. |
1 |
+ |
1 |
|
|
+... + |
1 |
|||||||
2. |
1+ |
|
|
|
1 |
+ |
|
... 1 |
+ |
|
|
; |
|
|
|
|
|
|
|
|
|
|
||||||
|
|
|
|
|
|
a |
a(a + |
1) |
a(a +1)...(a +n) |
|||||||||||||||||||
12 |
|
22 |
n2 |
|||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||||
3. |
|
2 + |
2 +... + |
2 |
|
|
|
|
|
7. |
1 |
+ |
|
1 |
+ |
|
1 |
+ |
...+ |
1 |
; |
|||||||
|
|
|
|
|
a |
2 |
4 |
n |
||||||||||||||||||||
|
14424443 |
|
|
|
|
|
|
|
|
a |
|
a |
|
|
a2 |
|||||||||||||
|
|
|
|
|
n корней |
|
|
|
|
|
|
|
8. a(a – n)(a – 2n)...(a – n2) |
|||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||||
4. |
|
3 + |
6 +...+ |
3(n −1) + |
|
3n |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
9. Даны действительные числа x, a, натуральное число n. Вычислить
((...(( x +a)2 +a)2 +... +a)2 +a)2 +a
{
n скобок
10. Дано действительное число a. Найти среди чисел 1,1 + 1 ,1 + 1 + 1 ,...
2 2 3
первое, большее a;.
11. Дано действительное число a. Найти такое наименьшее n, что
1+ 12 +... + 1n > a
12.Дано натуральное n, действительное x. Вычислить: sinx + sin2x +
... + sinnx;
13.Дано натуральное n, действительное x. Вычислить: sinx + sinx2 +
... + sinxn;
14.Дано натуральное число n. Сколько цифр в числе n?
15.Дано натуральное число n. Чему равна сумма его цифр?
16.Дано натуральное число n. Найти первую цифру числа n.
17.Вычислить ∑n 1
i=1 i!
18.Вычислить ∑n 1
i=1 i2
|
n |
|
|
|
|
1 |
|
19. |
Вычислить ∏ 2 |
+ |
|
|
|
||
|
|
||||||
|
i=1 |
|
|
|
|
i! |
|
20. |
n |
|
− |
1 2 |
|||
Вычислить ∏ 1 |
|
|
|||||
|
i=2 |
|
|
|
i! |
||
Задание 6. Трассировка программы с вложенными циклами
Выполнить трассировку программы для заданных входных данных. Ввести программу в ЭВМ, сравнить результаты трассировки и работы программы. Записать математическое выражение выдаваемого программой результата для входных данных, заданных в виде переменных.
Содержание отчета:
1.Задание
2.Текст программы
3.Таблица трассировки
1. program Prim7(input, utput); var m, n, i, j, r: integer;
begin read(m, n); r := 0;
i := 1;
while i <= n do begin
j := 1;
while j <= m do begin
r := r + sqr(i + j); j := j + 1
end;
i := i + 1 end;
writeln(r)
end.
2. program Prim7(input, output); var m,n,i,j:integer;
r: real; begin read(m, n); r := 0;
i := 1;
while i <= n do begin
j := 1;
while j <= m do begin
r := r + 1/(2*i + j); j := j + 1
end;
i := i + 1 end; writeln(r) end.
3.program Prim7(input,output); var m, n, i, j: integer;
r: real; begin read(m, n); r := 0;
i := 1;
while i <= n do begin
j := 1;
while j <= m do begin
r := r + (j - i + 1)/(i + j); j := j + 1
end;
i := i + 1 end; writeln(r) end.
4.program Prim7(input, output); var n, i, j, p, r: integer;
begin read(n); r := 0; i := 1;
while i <= n do begin
p := i; j := 1;
while j <= i do begin
p := p*j; j := j + 1 end;
r := r + p; i := i + 1
end;
writeln(r)
end.
5.program Prim7(input, output); var n, i, j, p, r: integer;
begin read(n); r := 0; i := 1;
while i <= n do begin
p := 1; j := 1;
while j <= i do begin
p := p*i; j := j + 1 end;
r := r + p; i := i + 1 end; writeln(r) end.
6.program Prim7(input, output); var n, i, j: integer;
p, r: real; begin read(n); r := 0;
i := 1;
while i <= n do begin
p := 1; j := 1;
while j <= sqr(i) do begin
p := p*j; j := j + 1 end;
r := r + p; i := i + 1
end;
writeln(r)
end.
7.program Prim7(input, output); var n, i, j, z: integer;
p, r: real; begin read(n); r := 0;
i := 1; z := -1;
while i <= n do begin
p := 1; j := 1;
while j <= 2*i - 1 do begin
p := p*j; j := j + 1 end;
r := r + z * p; z := -z;
i := i + 1 end; writeln(r) end.
8.program Prim7(input, output); var n, i, j: integer;
p, p2, r, x: real; begin
read(n, x); r := 0.0;
i := 1; p2 := x;
while i <= n do begin
p := 1.0; j := 1;
while j <= 2*i - 1 do begin
p := p * j;
j := j + 1 end;
r := r + p2/p;
p2 := -p2*sqr(x) ; i := i + 1
end;
writeln(r)
end.
9.program Prim7(input, output); var n, i, j: integer;
p, p2, r, x: real; begin
read(n, x); r := 0.0;
i := 1; p2 := 1.0;
while i <= n do begin
p := 1.0; j := 1;
while j <= i do begin
p := p*j; j := j + 1 end;
r := r + p2/p;
p2 := -p2*sqr(x); i := i + 1
end;
writeln(r)
end.
10.program Prim7(input, output); var n, i, j: integer;
r, x: real; begin read(n, x); r := 0;
i := 1;
while i <= n do begin
j := i;
while j <= n do begin
r := r + (x + i)/j; j := j + 1
end;
i := i + 1 end; writeln(r) end.
11.program Prim7(input, output); var n, i, j, p, r: integer;
begin read(n); r := 0; i := 1;
while i <= n do begin
j := 1; p := 1;
while j < n do begin
p := p*j; j := j + 1 end;
r := r + p; i := i + 1 end; writeln(r) end.
12.program Prim7(input, output); var n, i, j, k, p, r: integer;
begin read(n, k); r := 0;
i := 1;
while i <= n do begin
j := 1; p := 1;
while j <= i + k do begin
p := p*j; j := j + 1 end;
r := r + p; i := i + 1 end; writeln(r) end.
13.program Prim7(input, output); var n, i, j: integer;
p, r: real; begin read(n); r := 1.0; i := 1;
while i <= n do begin
j := 1; p := 1.0;
while j <= n do begin
p := p*j; j := j +1 end;
r := r*p; i := i + 1 end; writeln(r) end.
14.program Prim7(input, output); var n, i, j, k, p, r: integer;
begin read(n, k); r := 0;
i := 1;
while i <= n do begin
j := 1; p := 1;
while j <= i do begin
p := p*(i + k); j := j + 1 end;
r := r + p; i := i + 1 end; writeln(r) end.
15.program Prim7(input, output); var n, i, j: integer;
p, r, x, z: real; begin
read(n, x); r := 0;
i := 1; z := 1.0;
while i <= n do begin
p := 1.0; j := 1;
while j <= i do begin
p := p*x; j := j + 1 end;
r := r + z*p; z := -z;
i := i + 1 end; writeln(r) end.
16.program Prim7(input, output); var n, i, j: integer;
p, r: real; begin read(n); r := 0.0; i := 1;
while i <= n do begin
j := 1;
p := 1.0;
while j <= n do begin
p := p/j; j := j +1 end;
r := r + p; i := i + 1 end; writeln(r) end.
17.program Prim7(input, output); var n, i, j: integer;
p, r, x, z: real; begin
read(n, x); r := 0;
i := 1; z := 1.0;
while i <= n do begin
p := 1.0; j := 1;
while j <= 2*i - 1 do begin
p := p*x; j := j + 1 end;
r := r + z*p; z := -z;
i := i + 1 end; writeln(r) end.
18.program Prim7(input, output); var n, i, j: integer;
p, r, x, z: real; begin
read(n, x); r := 0;
i := 1;