Контрольная работа по "Информатике"

ВОРОНЕЖСКИЙ ИНСТИТУТ МВД РОССИИ 

Кафедра автоматизированных информационных систем органов внутренних дел.

 

 

Домашняя контрольная  работа 
по учебной дисциплине «Информатика» 
 
Вариант № 13

 

 

 
 
                                       Выполнила 
                                                          курсант 14 взвода РТФ 
                                                  рядовой полиции 
                                                                                              Т.В.Каныгина 
 
                                      Проверил

                                                                        старший преподаватель

                                                                 кафедры АИС ОВД

                                                      к.т.н., доцент

                                                                 полковник полиции

                                                                                                   Б.И.Жилин

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Воронеж - 2013 

Задание №1

Напишите и отладьте программу, используя конструкцию if/else/if для оценки общефизического упражнения для рядового и начальствующего состава ОВД (упражнения стрельбы из пистолета, норматива по огневой подготовке), используя схему алгоритма с разветвляющейся структурой, составленную на ПЗ Т. 2.1. 
 
Текст исходной программы:

Program Z1;

Vark,o,p: Integer;

t: real;

begin

Write('Vveditevremyrazborki AK-47 t=');

ReadLn(t);

Write('Nalicienaruheniy k=');

ReadLn(k);

if k=1 then o:=2 else

if t<=15 then o:=5 else

if t<=17 then o:=4 else

if t<=19 then o:=3 else

o:=2;

WriteLn('Otcenkazauprognenie -',o);

ReadLn(p);

end.

 

Описание программы.

Название программы - Program Z1

Вводим переменные – o,t,p

Начало программы – begin

С клавиатуры вводим время, с помощью оператора if вводим условие на тело программы.

Выводим значение p – оценку за упражнение.

Конец программы.

 

Результат программы:

 

Рисунок 1.

 

 

 

 

 

 

 

 

 

 
 
 
Задание №2 
а) Перепишите программу из задания 3, используя для выбора оценки в последней ветви вычислений алгоритма оператор ? :.

b) Используя конструкцию switch/case, перепишите программу из задания 3 таким образом, чтобы полученная оценка выводилась на экран словами: неудовлетворительно, удовлетворительно, хорошо, отлично. 
 
Текст исходной программы: 
Program Z2;

Vark,o,p: Integer;

t: real;

begin

Write('Vveditevremyrazborki AK-47 t=');

ReadLn(t);

Write('Nalicienaruheniy k=');

ReadLn(k);

if k=1 then o:=2 else

if t<=15 then o:=5 else

if t<=17 then o:=4 else

if t<=19 then o:=3 else

o:=2;

Write('Otcenkazaupragnenie =');

case o of

3:

WriteLn('udovletvoritel');

2:

WriteLn('neudovletvoritel');

4:

WriteLn('horosho');

5:

WriteLn('otlichno');

end;

ReadLn(p);

end.

 

Описание программы 

Название программы - Program Z2

Вводим переменные – t- время,p

Начало программы – begin

С клавиатуры вводим время, с помощью оператора if вводим условие на тело программы.

Выводим значение оценку за упражнение «otlichno», «horosho» и т. д.

Конец программы.

 

 

 

Результат программы:

 

Рисунок 2.

 
 
 
Задание №3 
В соответствии с Вашим вариантом напишите и отладьте программу для вычисления суммы ряда из задания 7 (ЛЗ. Т. 1.2), приняв x=3, используя схемы алгоритма (ПЗ. Т. 5.1) с циклической (оператор for) и разветвляющейся структурой (оператор goto). 

 

Текст исходной программы: 
Program Z3;

Var i,x,t: longint;

sum: real;

label 1,2;

begin

x:=3;

sum:=0;

i:=0;

1:

sum:=sum+(i+1)*Exp(ln(x)*(3*i+3));

i:=i+1;

if i>20 then

begin

WriteLn('Summa S=', sum:3:2);

goto 2;

end;

goto 1;

2:

ReadLn(t);

end.

 

 

Описание программы

Название программы –  Z3

Вводим переменные t – время.

В теле программы создаем метки 1-вычисление суммы по формуле и 2-ввод времени.

с помощью команды if вызываем 2 метку , вводим переменную t , считаем сумму с помощью первой метки.

Конец программы.

 

 

Результат программы:

Рисунок 3.

 

 

 
 
 
 
 
Задание №4 
В соответствии с Вашим вариантом напишите алгоритм, со-ставьте и отладьте программу (a) - используя оператор цикла while; b) - используя оператор цикла do/while) для вычисления суммы ряда с точностью a, из задания 8 (ЛЗ. Т. 1.2). Значение суммы ряда выведите в трех форматах: стандартном, научном и фиксированном (количество знаков после запятой - 10). Выведите на экран количество членов бесконечного ряда, участвовавших в суммировании. 

 

Текст исходной программы: 
Program Z4;

Var i,n,t: Integer;

sum,an,e,s: real;

begin

e:=0.0001;

sum:=0;

an:=1;

i:=1;

while an>=e do

begin

an:=(-Exp(ln(1)*(i)))*i/exp(ln(7)*n);

sum:=sum+an;

i:=i+1;

end;

WriteLn('Summa v standartnom vide S=',sum);

WriteLn('Summa v naucnom vide S=',exp(sum));

WriteLn('Summa v fiksirovannom vide S=',sum:3:10);

WriteLn('Summa clenov beskonecnogo ryda=',i-1);

ReadLn(t);

end.

 

Описание программы

Название программы –  Program Z4

В теле программы считаем сумму в разном виде пока an больше или равно e

Выводим сумму в разном виде на экран.

Конец программы.

 

 

 

 

Результат программы:

Рисунок 4.

 
 
 
 
 
 
Задание №5 
Отладить программы задания 1 и 2 (ПЗ. Т. № 3.1). Результаты работы программ запишите в отчёт по работе.

 
Текст исходной программы: 
Program Z5;

Var s,i,n,t,s1: Integer;

Procedure Sum(n:integer; var s:integer);

begin

s:=1;

i:=0;

while n>0 do

begin

s1:=n mod 10;

s:=s*10+s1;

n:=n div 10;

i:=i+1;

end;

end;

begin

Write('Vveditecislo n=');

ReadLn(n);

Sum(n,s);

WriteLn('cislo v obratnoiposledovannisti S=',s);

ReadLn(t);

end.

 

 

 

Описание программы

Название программы –Program Z5

Вводим число n, создаем процедуру sum, которая зеркально отображает число.

В теле программы вызывает процедуру sum и выводим число n  на экран.

Конец программы.

 

Результат программы

 
Рисунок 5.

 

 

 

 

 

 

 

 

 

 

 

 
Задание №6 

Задан двумерный массив целых чисел. Напишите программу, которая определяет месторасположения последнего минимального значения.

 

 
Текст исходной программы: 
 
Program Z6;

type

matrix= array[1..10, 1..10] of integer;

Var i,j,m,min,x,y,t: Integer;

A: matrix;

begin

Write('Vvedite razmernost massiva m=');

ReadLn(m);

min:=1000;

for i:=1 to m do

 for j:=1 to m do

 begin

Write('Vvedite A[',i,'][',j,']=');

ReadLn(A[i,j]);

if min>=A[i,j] then

begin

min:=A[i,j];

    x:=i;

    y:=j;

    end;

end;

    WriteLn('mesto raspologeniy poslednego min znaceniy A[',x,'][',y,']=',min);

ReadLn(t);

end.

 

 
Описание программы 

Название программы –  Program Z6

Вводим с клавиатуры размер двумерного массива.

Сравниваем числа в  массиве с минимумом, присваиваем  x и y место расположения минимального значения переменной min.

Выводим на экран значение min.

Конец программы.

 

Результат программы:

Рисунок 6.

 

 

 

 

 
 
Задание №7 
Дана целочисленная матрица С размером mxn; упорядочить строки матрицы по неубыванию значений наименьших элементов строк матрицы. Разрешается использовать дополнительный массив. 
 
Текст исходной программы: 
Program Z7;

type

matrix= array[1..10,1..10] of integer;

Vari,j,n,m,max,x,t,y,k: Integer;

A,B: matrix;

begin

Write('Vvediterazmernostmassiva m=');

ReadLn(m);

Write('Vvediterazmernostmassiva n=');

ReadLn(n);

for i:=1 to n do

for j:=1 to m do

begin

Write('Vvedite A[',i,'][',j,']=');

ReadLn(A[i,j]);

if max<A[i,j] then

max:=A[i,j];

B[i,j]:=100;

end;

for i:=1 to n do

for j:=1 to m do

for k:=1 to n do

begin

if B[i,j]>A[i,k] then

begin;

B[i,j]:=A[i,k];

x:=i;

y:=k;

end;

if n=k then

   A[x,y]:=max;

end;

for i:=1 to n do

begin

for j:=1 to m do

Write('B[',i,'][',j,']=',B[i,j],' ');

WriteLn('');

end;

ReadLn(t);

end.

 

 

Описание программы

Название программы –  Program Z7

Вводим с клавиатуры количество строк и столбцов массива А,

Вводим массив А с клавиатуры,

Сравниваем между собой  члены массива с максимумом, присваиваем  переменной max максимальное значение в матрице.

Берем член массива В равный 100, сравниваем члены массива А с массивом В. Если член массива А равняется члену массива В, тогда переменным х присваиваем значение строки , а y значение столбца матрицы А. Если количество строк массива А соответствует количеству столбцов матрицы А, тогда массиву А[x,y] присваиваем значение max.

Выводим массив В на экран.

Конец программы.

 

Результат программы

 

                                              Рисунок 7.