Программирование ветвления на языке Паскаль
методическая разработка по информатике и икт (9 класс) по теме

Самостоятельная работа Ф.И_______________________________________________________________

1 Определите значение переменной a после выполнения алгоритма:

а := 3

b := 5

a := 6 + a*b

b := b + a/3

a := 7*3 - 4;  {    }                                       a := a * 2;    {    }                                         b := a div 10; {   }                                                     a := a mod 10; {   }

2. Найти ошибки в программе и выделите конструкцию «если»

Program Zadacha1;                                                                                                                                                                             var   x integer;                                                                                                                                                                              y:  real;                                                                                                                                                                                         begin                                                                                                                                                             writeln(‘Vvedite x );                                                                                                                                                                   read ( x );                                                                                                                                                                                              if x=1 then writeln(‘Net )                                                                                                                                                     else begin                                                                                                                                                                   y:=(x*x*1)/(x+1);                                                                                                                                                                            writeln (‘y=   y:4:2);                                                                                                                                                                 end;                                                                                                                                                                                                    readln                                                                                                                                                                                        End

Самостоятельная работа Ф.И_______________________________________________________________

1. Определите значение переменной a после выполнения алгоритма:

а := 0

b := 2

b := 2 + a + 4*b

a := b/2*a

a := 9*3 - 5;  {    }                                     a := a * 3;    {    }                                      b := a div 10; {   }                                     a := a mod 10; {   }

2. Найти ошибки в программе и выделите конструкцию «если»

Program Zadacha1;                                                                                                         var  x  integer;                                                                                                                     y:real                                                                                                                            begin                                                                                                                      writeln(‘Vvedite x  );                                                                                                                                         read ( x );                                                                                                                              if x=2 then writeln(‘Net  )                                                                                                else begin                                                                                                                      y:=(x+x-1)/(x+2);                                                                                                               writeln (‘y=   y:5:1);                                                                                                       end;                                                                                                                                   readln                                                                                                                                End.