Оператор повторения (решебник)

tux 2013.03.01 Решебник https://tux.org.ua/?p=1813 3597 0

Решение типовых задач по теме «Циклы» (арифметические и итерационные). Решение производилось с использованием Free Pascal, в качестве IDE использовался Geany. Задачи из сборника Абрамова отмечены соответствующим номером.

77а Дано натуральное число n. Вычислить 2ⁿ.

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.

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.

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.

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.

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.

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!.

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.

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. Вычислить $\left ( 1+\frac{1}{1^{2}} \right )\left ( 1+\frac{1}{2^{2}} \right )\cdots \left ( 1+\frac{1}{n^{2}} \right )$ .

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.

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. Вычислить $\frac{1}{sin(1)}+\frac{1}{sin(1)+sin(2)}+\cdots +\frac{1}{sin (1)+\cdots+sin(n)}$ .

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.

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. Вычислить $\sqrt{2+\sqrt{2+\cdots+\sqrt{2}}}$ , всего n корней.

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.

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в Вычислить: $\sum_{i=1}^{128}\frac{1}{(2i)^{2}}$ .

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.

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г Вычислить: $\sum_{i=1}^{128}\frac{1}{(2i)^{2}}$ .

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.

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з Вычислить: $\prod_{i=2}^{10}\left ( 1-\frac{1}{i!} \right )^{2}$ .

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.

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. Вычислить: $\sum_{k=1}^{n}\left ( \frac{1}{(2k+1)^{2}} \right )$

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.

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.

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.

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.

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.

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.

pascal, программирование, решебник

Процедуры и функции (решебник)

Оператор выбора (решебник)

#:

Оператор повторения (решебник)

Похожие материалы:

Оставить комментарий