Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Задача №2 - сравниваем числа
Даны два числа, например a и b. Требуется вывести на печать большее из них. Вообще говоря задача простая, но есть ограничение. В программе запрещено использовать условные операторы (if, case и прочее) и сравнение чисел. Можно использовать только арифметические выражения и операции сложения, вычитания, деления и умножения, а также математические функции.
1 | Автор: admin | 2014-09-08, 19:00   |  Репутация: [ + 22 ]

Код
program BF_exprog1;

uses printer;
var a,b,c:real;

begin
   writeln('Введите числа a и b: ');
   readln(a,b);
   c:=(a+b+abs(a-b))/2;
   writeln(lst, c)
end.
Числа вводятся через пробел, после чего программа определяет большее из них и выводит на печать

Если вылазит ошибка 3 строки "Модуль не найден" то у вас не включен модуль, тогда нужно запустить программу через TurboPascal(модуль printer стандартный, поэтому подключать не придется) если вы работаете в PascalABC
2 | Автор: Bun_Frith | 2014-09-08, 20:11   |  Репутация: [ + 4 ]

Код
Program ELMpr_comparing;
Uses Printer;
var a,b,c,d,x:word;
begin
  writeln('Write a,b');
  readln(a,b);
    c:=a div b;
    c:=((c+2) div (c+1)) mod 2;
    d:=(c+1) mod 2;
    x:=a*c+b*d;
  writeln(lst, x);
  readln;
end.


El_Magnifico with <3
3 | Автор: El_MAgnifico | 2014-09-08, 20:19 | Изменено: El_MAgnifico - Пн, 2014-09-08, 20:19   |  Репутация: [ + 8 ]
  • Страница 1 из 1
  • 1
Поиск: