Министерство образования Российской Федерации

Томский государственный университет Систем управления и радиоэлектроники (ТУСУР)

Контрольная работа № 1

по Алгоритмическому языку

Вариант № 9

Выполнил:

Студент ТМЦ ДО

Ф.И.О.

Код доступа: *********

Пароль: **********

Норильск – 2002г.

1. Дано: натуральное n, действительное число a. Вычислить: a*(a-n)*(a-2n)*….*(a-n²).

program k1z1;Uses crt;

var

n,i:integer;

a,s:real;

begin

clrscr;

s:=1;

Write(''введи действительное a - ');

readln(a);

Write(' введи натуральное n - ');

readln(n);

n:=sqr(n);

for i:=1 to n do

s:=s*(a-i);

s:=s*a;

writeln;

if s<>0 then

write('S = ',s:6:2);

if s=0 then

write('S = ',s:1:0);

read;

readln;

End.

2. Пусть х₁ = у₁ = 1; х_i = 0.3*x_{i – 1}; у_i = х_{i – 1} + у_{i –1}; I = 2,3, … Дано натуральное n. Найти:

Program summa;

var

x,y,sum:real;

n,i:integer;

begin

x:=1;y:=1;

sum:=0;

repeat

write('input n =1');

readln(n);

until n>0;

for i:=1 to n do

begin

y:=y+x;

x:=0.3*x;

sum:=sum+(x/(1+abs(y)));

end;

writeln('Сумма равна',sum);

readln;

end.

3. Даны натуральное n и вещественные числа x ₁, y ₁, x ₂, y ₂, …, x _n, y _n. Рассматривая пары x _i, y _i как координаты точек на плоскости, определить радиус наименьшего круга (с центром в начале координат), внутрь которого попадают все эти точки.

uses crt;

program k1z3;

var

x,y,r,min:real;{х – первый элемент пары, у – второй, r – текущий радиус, min – минимальный радиус}

i,n:integer;{n – количество пар, i – счётчик цикла}

{так как надо найти наименьший радиус окружности, то будем использовать абсолютное значение вектора с началом в центре окружности т.е. в точки с координатами (0,0)}

begin

clrscr;

repeat

write('Введите количество пар n=');

readln(n);

until n>0;

min:=0;

r:=0;

for i:=1 to n do

begin

writeln;

write('Введите х = ');

readln(x);

write('Введите у = ');

readln(y);

r:=abs(sqrt(sqr(y)+sqr(x)));

if r>min then min:=r;

end;

write('Длина минимального радиуса равна ');

writeln(min);

readln;

end.

4. Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего среди отрицательных чисел последовательности.

uses crt;

program k1z4;

var

n,i,j:integer;

x:array[1..100] of real;

max: real;

fl:boolean;

begin

clrscr;

fl:=false;

write('Введите вещественное число n = ');

read(n);

for i:=1 to n do

begin

write('x',i,' = ');

readln(x[i]);

end;

for i:=1 to n do

begin

if (x[i]>max)and(x[i]<0)and(fl=true) then

max:=x[i];

if (x[i]<0)and(fl=false) then

begin

max:=x[i]; fl:=true;

end;

end;

writeln('Максимальное отрицательное ’ - ,max:3:2);

readkey;

end.