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

Кирилл Николоев ср, 29.03.2017 10:17

Задание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

Скачать файлы

Похожие документы