TURBO PASCAL:Учебное пособие. Терёхин В.В. - 43 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

43
m:= a;
end
else
begin
writeln('l= ', l);
r := l;
m: = t ;
n: = у;
end;
Задача. С клавиатуры вводятся три числа, вывести их
на экран в порядке возрастания.
program р6;
var
xl, х2, хЗ: Real;
begin
WriteLn('Введите три числа');
Read{xl, x2, хЗ);
Writeln('Числа в порядке возрастания: ');
if (xl <= x2) and (xl <= хЗ) then
if x2 < хЗ then Writeln(xl, x2, x3)
else Writeln(xl, x3, x2);
if (x2 < xl) and (x2 < x3) then
if xl < x3 then Writeln(x2, xl, x3)
else Writeln(x2', x3, xl) ;
if (x3 < xl) and (x3 < x2) then
if xl < x2 then Writeln(x3, xl, x2)
else Writeln{x3, x2, xl);
end.
Задача. Написать программу для решения квадратного
уравнения вида: а-х
2
+b х + с = 0 .
program p7;
var a, b, с, d, xl, x2: Real; 
       m:= a;
    end
 else
    begin
       writeln('l= ', l);
       r := l;
       m: = t ;
       n: = у;
     end;

       Задача. С клавиатуры вводятся три числа, вывести их
на экран в порядке возрастания.

program р6;
var
  xl, х2, хЗ: Real;
begin
  WriteLn('Введите три числа');
   Read{xl, x2, хЗ);
   Writeln('Числа в порядке возрастания: ');
   if (xl <= x2) and (xl <= хЗ) then
       if x2 < хЗ then Writeln(xl, x2, x3)
       else Writeln(xl, x3, x2);
    if (x2 < xl) and (x2 < x3) then
        if xl < x3 then Writeln(x2, xl, x3)
        else Writeln(x2', x3, xl) ;
    if (x3 < xl) and (x3 < x2) then
          if xl < x2 then Writeln(x3, xl, x2)
          else Writeln{x3, x2, xl);
end.

       Задача. Написать программу для решения квадратного
уравнения вида: а-х2 +b х + с = 0 .
program p7;
var a, b, с, d, xl, x2: Real;
                                                             43

Страницы