Оператор повторения (решебник)
Решение типовых задач по теме «Циклы» (арифметические и итерационные). Решение производилось с использованием Free Pascal, в качестве IDE использовался Geany. Задачи из сборника Абрамова отмечены соответствующим номером.
77а Дано натуральное число n. Вычислить 2n.
1 2 3 4 5 6 7 8 9 |
var n,s,i:longint; BEGIN writeln('Введите число n'); readln(n); s:=1; for i:=1 to n do s:=s*2; writeln('2^',n,'=',s); END. |
1 2 3 4 5 6 7 8 9 10 11 12 |
var n,s,i:longint; BEGIN writeln('Введите число n'); readln(n); s:=1;i:=1; while i<=n do begin s:=s*2; i:=i+1; end; writeln('2^',n,'=',s); END. |
1 2 3 4 5 6 7 8 9 10 11 |
var n,s,i:longint; BEGIN writeln('Введите число n'); readln(n); s:=1;i:=1; repeat s:=s*2; i:=i+1; until i>n; writeln('2^',n,'=',s); END. |
77б Дано натуральное число n. Вычислить n!.
1 2 3 4 5 6 7 8 9 |
var n,f,i:longint; BEGIN writeln('Введите число n'); readln(n); f:=1; for i:=1 to n do f:=f*i; writeln(n,'!=',f); END. |
77в Дано натуральное число n. Вычислить .
1 2 3 4 5 6 7 8 9 10 |
var n,i:integer; s:real; BEGIN writeln('Введите число n'); readln(n); s:=1; for i:=1 to n do s:=s*(1+1/sqr(i)); writeln('s=',s:5:2); END. |
77г Дано натуральное число n. Вычислить .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
var n,i:integer; s,z:real; BEGIN writeln('Введите число n'); readln(n); z:=0; s:=0; for i:=1 to n do begin z:=z+sin(i); s:=s+(1/z); end; writeln('s=',s:5:2); END. |
77д Дано натуральное число n. Вычислить , всего n корней.
1 2 3 4 5 6 7 8 9 10 |
var n,i:integer; s:real; BEGIN writeln('Введите число n'); readln(n); s:=0; for i:=1 to n do s:=sqrt(2+s); writeln('s=',s:5:2); END. |
114в Вычислить: .
1 2 3 4 5 6 7 8 9 10 11 12 |
const n=10; var i,f: integer; s: real; BEGIN s:=0; f:=1; for i:=1 to n do begin f:=f*i; s:=s+(1/f); end; writeln ('s=',s:5:2); END. |
114г Вычислить: .
1 2 3 4 5 6 7 8 9 |
const n=128; var i:integer; s:real; BEGIN s:=0; for i:=1 to n do s:=s+(1/sqr(2*i)); writeln('s=',s:5:2); END. |
114з Вычислить: .
1 2 3 4 5 6 7 8 9 10 11 12 |
const n=10; var f,i:integer; p:real; BEGIN p:=1;f:=1; for i:=2 to n do begin f:=f*i; p:=p*sqr(1-1/f); end; writeln('p=',p:5:2); END. |
115в Дано натуральное число n. Вычислить:
1 2 3 4 5 6 7 8 9 10 |
var n,k:integer; s:real; BEGIN writeln('Введите число n'); readln(n); s:=0; for k:=1 to n do s:=s+1/sqr(2*k+1); writeln('s=',s:5:2); END. |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
var n,k:integer; s:real; BEGIN writeln('Введите число n'); readln(n); s:=0;k:=1; while k<=n do begin s:=s+1/sqr(2*k+1); k:=k+1; end; writeln('s=',s:5:2); END. |
1 2 3 4 5 6 7 8 9 10 11 12 |
var n,k:integer; s:real; BEGIN writeln('Введите число n'); readln(n); s:=0;k:=1; repeat s:=s+1/sqr(2*k+1); k:=k+1; until k>n; writeln('s=',s:5:2); END. |