Другие языки программирования и технологии

Помогите сделать программу на паскале

Сергей Жигачёв
Сергей Жигачёв
2 
 var x, y, z: real;

begin

  write('x y: ');

  readln(x, y);

  if x < y then

    begin

      z := x;

      x := x * y;

      y := z / y

    end;

  writeln('x = ', x, ', y = ', y)

end.
Рафаэль Вафин
Рафаэль Вафин
66 572
Лучший ответ
Максим Южаков Хах не удивлён быдлокоду с кучей лишних переменных...
Максим Южаков И впредь проверяй, а не тупо копирой за нейросетью.
Рафаэль Вафин Вот так правильно:
 var x, y, z: real; 

begin 

  write('x y: '); readln(x, y); 

  if x < y then 

    begin z := x; x := x * y; y := z / y end 

  else if y < x then 

    begin z := y; y := x * y; x := x / z end; 

  writeln('x = ', x, ', y = ', y) 

end.
Понятно, что бредить зловредной нейросетью и "кучей переменных", когда их всего три и все они нужные, могут только психически больные шизофреники. Бред шизофреника про нейросеть в этом отношении очень показателен и приводит к кверулянтскому поведению - злопыхательству и совершенно идиотскому доносительству.
В моей исправленной программе если первое число меньше второго или второе меньше первого, происходит требуемая замена, а если числа равны, тогда ничего не происходит, как и должно быть!
Рафаэль Вафин Интересно отметить, что у этого психически неадекватного его так называемая "программа" вообще не выполняет требуемой замены, невзирая на весь тот идиотский бред, который он здесь в ответах на достаточно простой заданный вопрос написал. А ведь это было самое главное! Такое поведение объясняется просто: самое главное главное для шизофреника - его шизофренические психозы, а вовсе даже никакая не программа - своя или чужая!
if a<b then a:=a*b else if b<a then b:=a*b ;
начало и конец программы сама
3 Бародарони Точик
3 Бародарони Точик
95 955
3 Бародарони Точик if a<b then begin a:=a*b ; b:=b/a end else
if b<a then begin b:=a*b ;a:=a/b end;
Выше пользователь с ником Ксения Райт скопировала (да - именно скопировала программу), написанную нейросетью. Но программа эта мало того, что написана топорно и с лишними переменными, так ещё и не соответсвует условию, да и в ней не предусмотрен вариант, если пользователь вводит одинаковые числа. У Вас в задании как написано: составить программу, которая заменяет меньшее число и большее число. А в той программе, написанной нейросетью, предусмотрен лишь 1 вариант, когда 1-ое число меньше. Но ведь в задании не сказано, что меньше должно быть именно 1-ое число.

Так что вот Вам правильная программа:
 Program P1; 

uses crt; 

var a, b: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры 2 числа (по 1). После ввода каждого из чисел нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите 1-ое число: '); 

readln (a); 

write ('Введите 2-ое число: '); 

readln (b); 

if ab then writeln ('Результат: ', a/b :0:2, '; ', a*b :0:2) else writeln ('Введенные числа совпадают.'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
Тихомиров Андрей
Тихомиров Андрей
43 559

Похожие вопросы