Разработка контрольной работы по языку программирования ПАСКАЛЬ

Контрольная работа по теме

«Язык программирования Паскаль».

Вариант 1.

1. Даны а, в,с. Вычислить z и  k, если

      ,              

 2. Чему будет равно значение переменной  х  после выполне­ния последовательностей операторов?

а)    a: = 1;                                                                             б)     a: = 2;

       b: = 3 * a                                                                                 x: = a  *  a ;

       x: = (a + b) / a * b – a;                                                       x: = x  *  x ;

                                                                                                           x: = x  *  a .

          3.  Написать программу по заданной блок-схеме.

                                                                                         

Значение К не определено

 

4.    Построить блок-схему по заданной программе.

              Program Urok;

                    Var

  К, Р : Integer;

Begin

   Write(‘Введите целые числа К и Р ^f);

   ReadLn (К,Р);                            

   If Р = 0

      Then

        begin

          F := 0;

          WriteLn('Значение P равно 0^f)

      end                                           

Else                                          

   begin

      F := К * P;

      If К / P > 1

         Then WriteLn (^fK больше Р¹)

         Else WriteLn (^fP больше К¹)

    end

WriteLn (^fF=^f, F) ;

           End.

5.           Даны значения действительных величин a, b, c. Удвойте эти значения,

если a>=b>=c  и замените их абсолютными значениями, если это не так.

Дополнительное задание:

    Какое значение будет иметь переменная d после выполне­ния операторов при а) а = 3, b= 1, d = 0;   б) а = 1, b = 3, d =0?

1) If  a > b Then d := a  Else d := b;  d := d * 10; 

2) If  a > b Then d := b;  d := d * 10;   

3) If  a > b Then  Else begin  d := b; d := d + a end; d := d*10;

4)   If  a > 2 Then d := 2  Else  If  b > 2 Then d := 1; d := d* 10.

Контрольная работа по теме

«Язык программирования Паскаль».

Вариант 2.

1. Даны x, y, z. Вычислить a и  b, если

  ,       .

2.  Чему будет равно значение переменной  y  после выполне­ния  последовательностей операторов?

а)    c: = 1;                                                                     б)     x: = 2;

       f: = 3 * c                                                                          y: = x  *  x ;

       y: = (c + f) / c * f  + c;                                                    y: = y  *  x ;

                                                                                                y: = y  *  y .

3.  Написать программу по заданной блок-схеме.

                                                                                                                                         

                                                                                               

                                            К, Р                        

«Результат не определен»

                                                           да  

                                               нет

                                                           да

                                                        

                                                        нет

4. Построить блок-схему по заданной программе.

            Program Urok;

                      Var

  К, Р : Integer;

Begin

   Write(*Введите целые числа К и Р ^f);

   ReadLn (К,Р);                            

   If Р = 0

      Then

        begin

          F := 0;

          WriteLn('Значение P равно 0^f)

      end                                           

Else                                          

   begin

      F := К * P;

      If К / P > 1

         Then WriteLn (^fK больше Р¹)

         Else WriteLn (^fP больше К¹)

    end

WriteLn (^fF=^f, F)

           End.

5.  Найти корни квадратного уравнения ах²+bx+c=0.

Дополнительное задание.

          Какое значение будет иметь переменная d после выполнения операторов при а) а = 3, b = 1, d = 0;     б) а = 1, b = 3, d =0?

l) If a > b Then d := a  Else d := b;  d := d * 10;

 2) If a > b Then     Else d := b;  d  := d * 10;

3) If a > b Then  begin d := b;  d := d + a  end  Else ;  d := d * 10;

 4) If a > 2 Then  If  b > 2 Then d  := 1  Else d  := 2;  d  := d *  10;