SHARE
TWEET

Untitled

a guest Sep 12th, 2019 93 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Laba1_1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6. uses
  7.    System.SysUtils;
  8. var
  9.    AvGar, AvGeo, FirstNum, SecondNum: Double;
  10.    IsCorrect: Boolean;
  11. begin
  12.    IsCorrect := False;
  13.    Writeln('Тема: Сравнение среднего геометрического и среднего гармонического');
  14.    repeat
  15.       try
  16.          Writeln('Введите первое число');
  17.          Read(FirstNum);
  18.          Writeln('Введите второе число');
  19.          Read(SecondNum);
  20.          IsCorrect := True;
  21.       except
  22.          Writeln('Введённое значение должно быть положительным числом!')
  23.       end;
  24.       if (FirstNum < 1) or (SecondNum < 1) then
  25.          Writeln('Оба числа должны быть положительными!');
  26.    until (IsCorrect and (FirstNum > 0) and (SecondNum > 0));
  27.    AvGar := (2 / ((1 / FirstNum) + (1 / SecondNum)));
  28.    AvGeo := ((FirstNum * SecondNum) / 2);
  29.    Writeln('Среднее гармоническое равно ', AvGar:6:3);
  30.    Writeln('Среднее геометрическое равно ', AvGeo:6:3);
  31.    if AvGeo > AvGar then
  32.       Writeln('Среднее геометрическое не меньше среднего гармонического')
  33.    else
  34.       Writeln('Среднее геометрическое меньше среднего гармонического');
  35.    Readln;
  36.    Readln;
  37. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top