Программирование элементов разветвляющейся структуры

                   ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ


                              Кафедра МО и ПЭВМ



                           Лабораторная работа № 5


        Тема: «Программирование элементов разветвляющейся структуры»



                                          Выполнил: студент гр. 02ТП1
                                          Пахомов В. Е.



                                          Проверил: Ракова А. Н.



                                    2003
                                 Задание А.

     Если первое из трех веденных с клавиатуры чисел отрицательное, то
вычислить среднеарифметическое всех этих чисел. В противном случае
рассчитать произведение двух первых.


     Программа:

     uses crt;
     var
     a,b,c,e:real;
     begin
          clrscr;
          writeln('Введите первое число ');
          readln(a);
          writeln('Введите второе число ');
          readln(b);
          writeln('Введите третье число ');
          readln(c);
          if a<0 then
          begin
             e:=(a+b+c)/3
          end
          else
          e:=a*b;
          writeln ('Результаты вычилений ',e:3:3);
          readkey;
     end.

                                 Блок-схема



                                 Задание Б.

     Разработать алгоритм и составить программу вычисления значений функции,
заданной графиком


      4

      3

      2

      1



                       -1   1     2          3               4

      -2

      -3



Программа:

uses crt;
var
   y,x : real;

begin
writeln('Введите значение Х ');
readln(x);
if x<-1 then
   y := -1
else
if (X>=-1)and (X<0) then
   y := 2*x+1
else
if (x>=0) and (x<3) then
   y := -1/3*x+1
else
if (x>=3) and (x<4) then
   y := 2*x-6
else
y := 2;
writeln('Результат', y:2:3);
readkey;
end.
                                 Блок-схема


                           -----------------------
                                   result

                                    Конец

                              result := a * b;

                        result := (a + b + c) div 3;

                                    a < 0

                                   a, b, c

                                   Начало

                                      у

                                   y := 2;

                                 y := 2*x-6

(x>=3) and (x<4)

                                y := -1/3*x+1

(x>=0) and (x<3)

                                 y := 2*x+1

                              (X>=-1)and (X<0)

                                   y := -1

                                   X < -1

                                    Конец

       х

                                   Начало