Составьте программу работы автомата, преобразовывающего числа

Некоторый автомат может запросить два числа и выполнить 3 команды. Команда а преобразует имеющуюся пару чисел (х,у) в пару (х-у,у) команда б преобразует пару чисел (х,у) в пару (х+у,у) команда с преобразует пару (ч,у) в (у,х) Составьте алгоритм и программу работы автомата

code: #pascal
uses crt;
var x,y,number:integer;
begin;
Clrscr;
writeln('Введите число (x)');
readln(x);
writeln('Введите число (y)');
readln(y);
writeln('Какое преобразование следует выполнить:1.(x-y,y), 2.(x+y,y), 3.(y,x)');
readln(number);
case number of
1: writeln(x - y,',',y);
2: writeln(x + y,',', y);
3: writeln(y,',', x);
end;
end.
Поделиться:

Похожие статьи: