Дано уравнение:
xt1-yt2-zt3=0
Условие:
x,y,z - вводит пользователь, причем x,y,z больше 0 (нуля);
t1,t2,t3 должны быть больше 0 (нуля).
Программа на Паскале решения данного уравнения.
Всю голову уже сломали..... Есть умные решения.
Дано уравнение:
xt1-yt2-zt3=0
Условие:
x,y,z - вводит пользователь, причем x,y,z больше 0 (нуля);
t1,t2,t3 должны быть больше 0 (нуля).
Программа на Паскале решения данного уравнения.
Всю голову уже сломали..... Есть умные решения.
xt1-yt2-zt3=0
Условие:
x,y,z - вводит пользователь, причем x,y,z больше 0 (нуля);
t1,t2,t3 должны быть больше 0 (нуля).
Программа на Паскале решения данного уравнения.
Всю голову уже сломали..... Есть умные решения.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program equationSolution;
var
x, y, z, t1, t2, t3: integer;
begin
repeat
write('Enter x (must be greater than 0): ');
readln(x);
until x > 0;
repeat
write('Enter y (must be greater than 0): ');
readln(y);
until y > 0;
repeat
write('Enter z (must be greater than 0): ');
readln(z);
until z > 0;
repeat
write('Enter t1 (must be greater than 0): ');
readln(t1);
until t1 > 0;
repeat
write('Enter t2 (must be greater than 0): ');
readln(t2);
until t2 > 0;
repeat
write('Enter t3 (must be greater than 0): ');
readln(t3);
until t3 > 0;
if (xt1 = yt2 + z*t3) then
writeln('The equation is satisfied.')
else
writeln('The equation is not satisfied.');
end.