Расчет по двум формулам. Линейные программы - Free Pascal

Узнай цену своей работы

Решение задачи: «Расчет по двум формулам. Линейные программы»

textual
Листинг программы
uses crt;
var m,n,z1,z2:real;
begin
clrscr;
repeat
writeln('Введите 2 числа >=0, первое >0');
readln(m,n);
until (m>0)and(n>=0);
z1:=((m-1)*sqrt(m)-(n-1)*sqrt(n))/(sqrt(m*m*m*n)+n*m+m*m-m);
z2:=(sqrt(m)-sqrt(n))/m;
write('Z1=',z1:0:4,'  Z2=',z2:0:4);
readln
end.

Объяснение кода листинга программы

  1. Используется библиотека CRT для работы с консолью.
  2. Введены переменные m, n, z1, z2 типа real.
  3. Переменная m инициализируется значением 0, переменные n, z1, z2 - неопределенными значениями.
  4. Пока пользователь не введет два неотрицательных числа (первое из которых больше нуля), повторяется блок кода.
  5. Введенные числа сохраняются в переменных m и n.
  6. Вычисляются значения переменных z1 и z2 по формулам из постановки задачи.
  7. Выводятся значения переменных z1 и z2 с точностью до 4 знаков после запятой.
  8. Программа ожидает нажатия клавиши для перехода к следующему циклу.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы