помогите решить, Алгоритмические структуры разветвления Опции

[Till]

Вот эта задач: "Каждое из чисел A, B отлично от нуля. Если они одинаковых знаков, то заменить меньшее из них большим, если же числа имеют разные знаки, то присвоить каждому из них знак числа, меньшего по абсолютной величине."

[renesko1]

Пишеш проверку
if (a > 0) and (b>0) or (a<0) and (b<0) then ... else .... .
если не ошибся, то все так.
Вместо .... тогадайся сам, что надо сделать

Сообщение отредактировано: renesko1 - 22.06.2008 13:56

[Till]

помогите кто может решить эту задач

[renesko1]

В чем проблема ?
сначало запрашиваешь a и b ;
потом подставляешь в мою запись вместо ... то, что надо сделать, если знаки одного знака.
else ветка если не одного знака вней действия тоже по условию.
Потом пишешь writeln(a,b) ;

[Till]

а ты можешь зделать эту задачу и скинут в 2-файлах .pas и .exe

[renesko1]

Задача элементарная из школьного курса (у нас) .
Спрашивай по ходу решения, не стесняйся : не знаешь, как описать переменные или как запросить у пользователя... здесь тебе всегда ответят(наверное).

[Till]

что, никто неможет мне помоч, мне срочно нужно, помогите плиз

[Sozialist]

Пиши, что уже готово, будем добавлять.

[Till]

ну вот задача:"Каждое из чисел A, B отлично от нуля. Если они одинаковых знаков, то заменить меньшее из них большим, если же числа имеют разные знаки, то присвоить каждому из них знак числа, меньшего по абсолютной величине." а вот что я делал но тут чтото неправельно и помогите мне зделать трасировку
 4.PAS ( 365 байт ) Кол-во скачиваний: 444



Сообщение отредактировано: Till - 22.06.2008 16:01

[Sozialist]

Следи за тем, что вводишь и что выводишь.

[Till]

так помоги мне, исправь пожалуйста

[Sozialist]

Спойлер (Показать/Скрыть)

var
a,b:real;
flag:boolean;

begin
writeln('BBEDUTE a');
readln(a);
writeln('BBEDUTE b');
readln(b);

if abs(a)>abs(b) then flag:=true else flag:=false;

{writeln('PE3YJIbTAT =',a:3:3);
writeln('PE3YJIbTAT =',b:3:3); }
if ((a<0) and (b>0)) or ((a>0) and (b<0)) then

    if flag then if b>0 then a:=abs(a)
                 else a:=-1*abs(a)
    else if a>0 then b:=abs(b)
         else b:=-1*abs(b)

else if flag then b:=a else a:=b;
Writeln('A=',A:3:3);
Writeln('B=',B:3:3);
readln
end.

Такое ощущение, что ты даже не знаешь, о чем речь, ибо логическая часть совершенно не соответствует задаче. Очень советую читать учебник.

[Till]

спасибо чувак, я просто щас очень занят, к экзамину готовлюсь, а мне эту задачу нужно показать

[Sozialist]

спасибо чувак, я просто щас очень занят, к экзамину готовлюсь, а мне эту задачу нужно показать

;) Ток я не "чувак".

[Till]

ну ладно, сори