deced

Untitled

Sep 6th, 2020
149
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.66 KB | None | 0 0
  1. program Lab1_1;
  2.  
  3. uses System.SysUtils;
  4.  
  5. var A,B : Double;
  6.  IsCorrect : Boolean;
  7.  AvgGeometrical, AvgHarmonical : Double;
  8.  
  9. begin
  10.       IsCorrect := False;
  11.       Repeat
  12.         Writeln('Введите значение A');
  13.         try
  14.           Readln(A);
  15.           if A > 0 then
  16.             IsCorrect := True
  17.           else
  18.            Writeln('Переменная А должна быть больше 0');
  19.         except
  20.           Writeln('Переменная A должна быть числом');
  21.         end;
  22.       until IsCorrect;
  23.       IsCorrect := False;
  24.       Repeat
  25.         Writeln('Введите значение В');
  26.         try
  27.           Readln(B);
  28.           if B > 0 then
  29.             IsCorrect := True
  30.           else
  31.             Writeln('Переменная B должна быть больше 0');
  32.         except
  33.           Writeln('Переменная B должна быть числом');
  34.         end;
  35.       until IsCorrect;
  36.       AvgGeometrical := Sqrt(A*B);
  37.       AvgHarmonical := 2/((A+B)/A*B);
  38.       Writeln('Среднее геометрическое введённых чисел = ', AvgGeometrical:6:2);
  39.       Writeln('Среднее гармоническое введённых чисел = ', AvgHarmonical:9:6);
  40.       if AvgGeometrical > AvgHarmonical then
  41.           Writeln('Среднее геометрическое введённых чисел больше их среднего гармонического')
  42.       else
  43.           Writeln('Среднее геометрическое введённых чисел меньше или равно их среднему гармоническому');
  44.       Readln;
  45. end.
Add Comment
Please, Sign In to add comment