Методические материалы для лабораторного занятия №14

Упражнение 1.

Задача. Найти факториал заданного числа (n! = 1  2  3  …  n).

PROGRAM fact_FOR;

uses crt;

var i,n: integer;

f: real;

begin

clrscr;

write('N=');

readln(N);

f:=1;

for i:=1 to N do

f:=f*i;

writeln(n,’!=’,f:5:2);

readln;

end.

Упражнение 2.

Задача. Найти сумму первых n обратных натуральных чисел S = 1 + 1/2 + 1/3 + … + 1/n.

PROGRAM sum_obr;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

write('N=');

readln(N);

s:=0;

for i:=1 to N do

s:=s+1/i;

writeln(’S=’,s:5:2);

readln;

end.

Упражнение 3.

Задача. Вычислить произведение первых n нечетных чисел (2n-1)!! и произведение первых n четных чисел (2n)!!

PROGRAM proizv_chet_nechet;

uses crt;

var i,n: integer;

p_chet,p_nechet: real;

begin

clrscr;

write('N=');

readln(N);

p_chet:=1;

p_nechet:=1;

for i:=1 to N do

begin

p_chet:=p_chet*2*i;

p_nechet:= p_nechet*(2*i-1);

end;

writeln(2*n,’!!=’,p_chet:5:2);

writeln(2*(n-1),’!!=’,p_nechet:5:2);

readln;

end.

Упражнение 4.

Задача. Вычислить

PROGRAM korni_while;

uses crt;

const n=33;

var i: integer;

s: real;

begin

clrscr;

S:=sqrt(3*n);

i:=n-1;

while i>=1 do

begin

S:=sqrt(3*i+s);

i:=i-1;

end;

writeln(’s=’,S:5:2);

readln;

end.