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

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И  НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

государственное образовательное  учреждение высшего профессионального  образования

“Читинский государственный университет “

(ЧитГУ)

Заочный факультет 

Кафедра информатики, вычислительной техники и прикладной математики

 

 

 

 

 

 

 

 

 

 

 

 

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

 

по  дисциплине “Информатика “

вариант № 2

 

 

 

 

 

 

 

                                                                                                                       Выполнил: ст.гр.ГМу

                                                                                    

                                                                                    Проверил:

                                                                                                         

 

 

 

 

 

 

Чита 2011

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Содержание

Задача № 1 …………………………………………………………..…………….3

Задача № 2…………………………………………………………………………4

Задача № 3…………………………………………………………………………5

Задача № 4…………………………………………………………………………6

Задача № 5.1……………………………………………………………………….8

Задача № 5.2 …………………………………………………..…………………10

Список использованной литературы …………………………………..………12

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача № 1

 Составить программу вычисления  следующих функций:

_{Решение:}

program zad1;

var x, a, b, z, t, y : real;

begin

     write('vvedite x  ');

     readln(x);

     write('vvedite a  ');

     readln(y);

     write('vvedite b  ');

     readln(z);

     t:=7*ln(abs(x*x*x+a*a*a));

     y:=exp(x-b);

     z:=sin(y)/cos(y)-7.8*t;

     writeln('Z = ', z:3:4);

     readln;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача № 2

 Составить программу вычисления  следующих функций :

_{Решение:}

program zad2;

var x, a, y: real;

begin

     write('vvedite x ');

     readln(x);

     write('vvedite a ');

     readln(a);

     if x>=0.3 then

        y:=sin(x)/cos(x);

     if (x<0.3) and (a>1) then

        y:=sin(a*x)

     else

         y:=cos(sin(a/x));

     writeln(y:4:3);

     readln;

end.

 

 

 

 

 

 

 

нет да

 

 

 

 

нет да

 

 

 

 

 

 

 

 

 

 

Задача № 3

Найти  минимальное число из a и b.

_{Решение:}

program zad3;

var a, b, min: real;

    i,k: integer;

begin

     a:=0;

     b:=1;

     for i:=1 to 8 do

         a:=a+i;

     for k:=1 to 3 do

         b:=b*((k+1)/(sqr(k)+2));

     if a<=b then

        writeln('min = ', a:3:4)

     else

         writeln('min = ', b:3:4);

     readln;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 Задача № 4

Составить таблицу значений функции  Y = f ( x ) , xÎ [a,b]    с    шагом h.

Функция   f ( x )-    

[ a , b ] - [ 1 , 3 ]

                  h = 0.2

_{Решение:}

program zad4;

var y, a, b, h, x : real;

    i, j: integer;

begin

     h:=0.2;

     a:=1;

     b:=3;

     x:=a;

     j:=0;

     repeat

           y:=0;

           for i:=1 to 5 do

               y:=y+0.3*sqr(x)/(i+5);

           writeln('y( ',x:1:1,' ) = ',y:3:4);

           x:=x+0.2;

     until (x>=b+0.2);

     readln;

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

нет

да

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача № 5.1

Дан вектор А ( 7 ) . Получить вектор В  по правилу :

_{Решение:}

program zad5;

var a, b: array [1..7] of real;

    i: integer;

    p, sum : real;

begin

     p:=1;

     sum:=0;

     for i:=1 to 7 do

     begin

          write('a[',i,'] = ');

          readln(a[i]);

          sum:=sum+a[i];

          p:=p*a[i];

     end;

     if p>=sum then

        for i:=1 to 7 do

        begin

            b[i]:=a[i]/2;

            writeln('b[',i,'] = ',b[i]:2:2);

        end

     else

        for i:=1 to 7 do

        begin

            b[i]:=2*a[i];

            writeln('b[',i,'] = ',b[i]:2:2);

        end;

     readln;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

нет да

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача № 5.2

 

В матрице  А ( 3 х 3 ) сложить элементы главной  диагонали . Во 2-ой строке найти минимальный  элемент . Найти разность между суммой и минимальным элементом .

_{Решение:}

program zad6;

var a: array [1..3,1..3] of real;

    sum, min: real;

    i, j: integer;

begin

     sum:=0;

     for i:=1 to 3 do

         for j:=1 to 3 do

         begin

              write('a[',i,',',j,'] = ');

              readln(a[i,j]);

         end;

     min:=a[2,1];

     for i:=1 to 3 do

     begin

         sum:=sum+a[i,i];

         if min>a[2,i] then

            min:=a[2,i];

     end;

     writeln('sum = ', sum:3:2);

     writeln('min = ', min:3:2);

     writeln('sum-min = ', sum-min:3:2);

     readln;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                Да

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список  использованной литературы:

 

1. Дюк, В. Обработка данных на ПК в примерах./ В. Дюк .- СПб.: Питер.- 1997.- 243 с.
2. Евдокимов, В.В.  Экономическая информатика. Учебник для вузов /  В.В. Евдокимов. СПб.: Питер паблишинг, 2002.-432 с.
3. Острейковский, В.А. Информатика./ В.А. Острейковский - М.: Высшая школа, 1999.- 318 с.
4. Поспелов, Д.А. Информатика: Энциклопедический словарь для начинающих./ Д.А. Поспелов – М.: Педагогика-Пресс, 1994. – 352 с.
5. Симонович, С.В.Специальная информатика, Учебное пособие./ С.В. Симонович М.: АСТпресс, 1999.- 213 с.