Всё для Учёбы — студенческий файлообменник
1 монета
doc

Лабораторная № 4 «Работа с натуральными числами» по Программированию (Попов Д. И.)

Задание1.

Ввести с клавиатуры натуральное число N. И с помощью цикла вычислить:

1) 2N 2) N! 3)

4) (N-корней)

1) program Project1;

{$APPTYPE CONSOLE}

uses SysUtils;

Var a,k,i,n:integer;

begin

writeln ('BBeDuTe 3Ha4eHue N');

readln(n); k:=1; //k присваиваем значение "1"

for i:=1 to n do

begin //начало цикла

K:=2*k; // k присваиваем значение "2*k"

end; //конец цикла

writeln(k); readln;

end.

Тестирование:

BBeDuTe 3Ha4eHue N

7 128 2) program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

var k,n,a:integer;

begin //начало

Writeln('BBeDuTe 3Ha4eHue a');

readln(a); n:=1; //n присваиваем значение 1

for k:=2 to a do

begin //начало цикла

n:=n*k; //n присваиваем значение "n*k"

end; //конец цикла

writeln(n); readln;

end. //конец

Тестирование

BBeDuTe 3Ha4eHue a

3 6

3) program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

var n,i :integer;

var pr:double; begin

writeln('BBeDuTe n');

readln(n);

Pr:=1; // присваивание Pr значение 1

for i:=1 to n do begin // начало цикла

pr:=pr*(1+(1/i*i)); // pr присваиваем значение "pr*(1+(1/i*i))"

writeln('npou3BeDeHue = ',pr:0:1);

end; //конец цикла

readln; end. Тестирование

BBeDuTe n 5 npou3BeDeHue = 2.0

npou3BeDeHue = 4.0

npou3BeDeHue = 8.0

npou3BeDeHue = 16.0

npou3BeDeHue = 32.0

4) program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

var n,i :integer;

var sum:double;

begin writeln('BBeDuTe n');

readln(n); sum:=0; //Присваиваем sum значение 0

for i:=1 to n do begin

sum:=sqrt(2+sum); // sum присваиваем значение "sqrt(2+sum)"

end; //крнец цикла

writeln('CyMMa = ',sum:0:2);

readln; end.

Тестирование

BBeDuTe n 4 CyMMa = 1.99

Задание2.

Ввести с клавиатуры действительное число A и натуральное число N. Вычислить с помощью цикла:

1) AN

2) 1) program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

var k,a,n,i:integer;

begin Writeln('BBeDuTe 3Ha4eHue a');

readln(a); Writeln('BBeDuTe 3Ha4eHue n');

readln(n); k:=1; //k присваиваем значение 1

for i:= 1 to n do

begin //начало цикла

k:=a*k; //k присваиваем значение "a*k"

end; //конец цикла

writeln(k);

readln; end. Тестирование

BBeDuTe 3Ha4eHue a

3 BBeDuTe 3Ha4eHue b

4 81

2)program Project2;

uses SysUtils;

var n,i:integer;

var a,k,s:real;

begin writeln('BBeDuTe n');

readln(n); writeln('BBeDuTe a');

readln(a); k:=1/(A*A); //k присваиваем значение «1/(A*A)»

s:=k; //s присваиваем значение k

for i:= 2 to n do begin //начало цикла

k:=k*k; //k присваиваем значение «k*k»

s:=s+k; //s присваиваем значение «s+k»

end; //конец цикла

writeln(S:0:2);

readln; end.

Тестирование

BBeDuTe n

5 BBeDuTe a 2 0.32

Задание3.

Получить целочисленную квадратную матрицу размерностью 7х7, элементами которой являются числа 1, 2, … 49, расположенные в матрице по спирали.

program Project2;

{$APPTYPE CONSOLE}

const n = 7; var

matrix: array[1..n, 1..n] of integer;

value,i,j,k: integer;

begin i:=0; k:=0;

value:=1; { генерация спирали }

while i

Показать полностью…
Похожие документы в приложении