• Написать программу определения знака результата деления двух чисел в зависимости от знаков этих чисел.

    Написать в паскале.

Ответы 7

  • Т.е при делении +0 на -0 получится результат с отрицательным знаком? )))
    • Автор:

      lydiawbpr
    • 6 лет назад
    • 0
  • Тут же сказано работать именно со знаками, а не с числами. Потому и string.
  • Не согласен. "В зависимости от знака" вовсе не означает, что надо вводить именно знаки.
    • Автор:

      dollawty
    • 6 лет назад
    • 0
  • Можете со знаками, можете с числами.
    • Автор:

      josésoto
    • 6 лет назад
    • 0
  • Хорошо, прикреплю оба варианта.
    • Автор:

      jamie87
    • 6 лет назад
    • 0
  • var s1,s2:string;begin;writeln('Введите исходные знаки');readln(s1);readln(s2);if ((s1<>'-') and (s1<>'+')) or ((s2<>'-') and (s2<>'+')) thenbegin;writeln('Ошибка');exit;end;if ((s1='+') and (s2='+')) or ((s1='-') and (s2='-')) then writeln('+') else writeln('-');end.С числами:var a,b:integer;begin;writeln('Делимое:');readln(a);writeln('Делитель');readln(b);if b=0 thenbegin;writeln('Нельзя делить на ноль. Если это, конечно, не JavaScript.');exit;end;if a=0 thenbegin;writeln('0');exit;end;if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('+') else writeln('-');end.
  • var  a,b:real;begin  Write('Введите через пробел два числа: '); Read(a,b);  if b=0 then Writeln('Результат деления не определен')  else    if a*b>0 then Writeln('Частное a/b имеет положительный знак')    else      if a=0 then Writeln('Частное a/b равно нулю')      else Writeln('Частное a/b имеет отрицательный знак')end.Тестовое решение:Введите через пробел два числа: 8 -4Частное a/b имеет отрицательный знак
    • Автор:

      oto50k4
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years