Вопрос по информатике:
Напишите программу, пожалуйста.
Даны два числа, не равные друг другу. Замените большее из них молулем суммы, а меньшее-разностью квадратов этих чисел.
Пожаловаться
- 18.01.2018 00:48
- Информатика
- remove_red_eye 17069
- thumb_up 24
Ответы и объяснения 1
Пусть X - первое число, а Y - второе.
var Z,C: Integer;
Z:= Abs(X+Y);
C:= sqr(X) - 2*X*Y + Sqr(Y);
If (X>Y) then
X := Z;
Y := C;
Else
X:=C;
Y:= Z;
End;
Или, чтобы совсем круто с функциями:
function MinusSqr(X, Y: Integer) : Integer
begin
MinusSqr = sqr(X) - 2*X*Y + Sqr(Y);
End;
if X> Y then
X := MinusSqr(X,Y)
Y := Abs(X + Y)
Else
Y := MinusSqr(X,Y)
X := Abs(X+Y)
End;
var Z,C: Integer;
Z:= Abs(X+Y);
C:= sqr(X) - 2*X*Y + Sqr(Y);
If (X>Y) then
X := Z;
Y := C;
Else
X:=C;
Y:= Z;
End;
Или, чтобы совсем круто с функциями:
function MinusSqr(X, Y: Integer) : Integer
begin
MinusSqr = sqr(X) - 2*X*Y + Sqr(Y);
End;
if X> Y then
X := MinusSqr(X,Y)
Y := Abs(X + Y)
Else
Y := MinusSqr(X,Y)
X := Abs(X+Y)
End;
Пожаловаться
- 19.01.2018 00:43
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы