Практикум по решению задач на ЭВМ. Тарова И.Н - 22 стр.

                                      Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  Лабораторная работа № 2
                Разветвление: выбор (if), отбор (case)
1) Даны действительные числа x,y. Вычислить
     ⎧          x − y , если    x> y
   z=⎨
     ⎩ y − x + 1, в     противном    случае.

2) Даны два действительных числа x,y (x≠y). Меньшее из чисел заменить
   их полусуммой, а большее – удвоенным произведением.

3) Написать программу, для решения квадратных уравнений. Программа
   должна проверять правильность исходных данных и в случае, когда ко-
   эффициент при второй степени неизвестного равен 0, выводить соот-
   ветствующее сообщение.

  {Решение квадратного уравнения}
  program sqroot;
  uses CRT;
  var
    a,b,c:real; {Коэффециенты уравнения}
    x1,x2:real; {Корни уравнения}
    d:real; {дискреминант}
  begin
    clrscr;
    writeln('* Решение квадратного уравнения *');
    writeln('Введите в одно строке значения коэффициентов');
    writeln('квадратного уравнения и нажмите ');
    write('->');
    readln(a,b,c); {ввод коэффециентов}
    d:=b*b-4*a*c; {вычисление дискреминанта }
    if d>=0
       then
         begin
           x1:=(-b+sqrt(d))/(2*a);
           x2:=(-b-sqrt(d))/(2*a);
           writeln ('Корни уравнения:');
           writeln ('x1=',x1:9:3);
           writeln ('x2=',x2:9:3);
        end
      else
        writeln ('Корней нет');
  end.




                                               22