Предмет: Информатика,
автор: Dima457
Написать программу определения знака результата деления двух чисел в зависимости от знаков этих чисел.
Написать в паскале.
Ответы
Автор ответа:
0
var s1,s2:string;
begin;
writeln('Введите исходные знаки');
readln(s1);
readln(s2);
if ((s1<>'-') and (s1<>'+')) or ((s2<>'-') and (s2<>'+')) then
begin;
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 then
begin;
writeln('Нельзя делить на ноль. Если это, конечно, не JavaScript.');
exit;
end;
if a=0 then
begin;
writeln('0');
exit;
end;
if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('+') else writeln('-');
end.
begin;
writeln('Введите исходные знаки');
readln(s1);
readln(s2);
if ((s1<>'-') and (s1<>'+')) or ((s2<>'-') and (s2<>'+')) then
begin;
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 then
begin;
writeln('Нельзя делить на ноль. Если это, конечно, не JavaScript.');
exit;
end;
if a=0 then
begin;
writeln('0');
exit;
end;
if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('+') else writeln('-');
end.
Автор ответа:
0
Т.е при делении +0 на -0 получится результат с отрицательным знаком? )))
Автор ответа:
0
Тут же сказано работать именно со знаками, а не с числами. Потому и string.
Автор ответа:
0
Не согласен. "В зависимости от знака" вовсе не означает, что надо вводить именно знаки.
Автор ответа:
0
Можете со знаками, можете с числами.
Автор ответа:
0
Хорошо, прикреплю оба варианта.
Автор ответа:
0
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 имеет отрицательный знак
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 имеет отрицательный знак
Похожие вопросы
Предмет: Английский язык,
автор: 12345678799
Предмет: Русский язык,
автор: popovaarina914
Предмет: Математика,
автор: mamilovaluiza28
Предмет: История,
автор: 291860
Предмет: Математика,
автор: vikakww