Расчет по двум формулам. Линейные программы - 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.
Объяснение кода листинга программы
- Используется библиотека CRT для работы с консолью.
- Введены переменные m, n, z1, z2 типа real.
- Переменная m инициализируется значением 0, переменные n, z1, z2 - неопределенными значениями.
- Пока пользователь не введет два неотрицательных числа (первое из которых больше нуля), повторяется блок кода.
- Введенные числа сохраняются в переменных m и n.
- Вычисляются значения переменных z1 и z2 по формулам из постановки задачи.
- Выводятся значения переменных z1 и z2 с точностью до 4 знаков после запятой.
- Программа ожидает нажатия клавиши для перехода к следующему циклу.