Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Laba1_1;
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils;
- var
- AvGar, AvGeo, FirstNum, SecondNum: Double;
- IsCorrect: Boolean;
- begin
- IsCorrect := False;
- Writeln('Тема: Сравнение среднего геометрического и среднего гармонического');
- repeat
- try
- Writeln('Введите первое число');
- Read(FirstNum);
- Writeln('Введите второе число');
- Read(SecondNum);
- IsCorrect := True;
- except
- Writeln('Введённое значение должно быть положительным числом!')
- end;
- if (FirstNum < 1) or (SecondNum < 1) then
- Writeln('Оба числа должны быть положительными!');
- until (IsCorrect and (FirstNum > 0) and (SecondNum > 0));
- AvGar := (2 / ((1 / FirstNum) + (1 / SecondNum)));
- AvGeo := ((FirstNum * SecondNum) / 2);
- Writeln('Среднее гармоническое равно ', AvGar:6:3);
- Writeln('Среднее геометрическое равно ', AvGeo:6:3);
- if AvGeo > AvGar then
- Writeln('Среднее геометрическое не меньше среднего гармонического')
- else
- Writeln('Среднее геометрическое меньше среднего гармонического');
- Readln;
- Readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement