Вот эта задач: "Каждое из чисел A, B отлично от нуля. Если они одинаковых знаков, то заменить меньшее из них большим, если же числа имеют разные знаки, то присвоить каждому из них знак числа, меньшего по абсолютной величине."
renesko1
22.06.2008 17:55
Пишеш проверку if (a > 0) and (b>0) or (a<0) and (b<0) then ... else .... . если не ошибся, то все так. Вместо .... тогадайся сам, что надо сделать
Till
22.06.2008 17:56
помогите кто может решить эту задач
renesko1
22.06.2008 17:59
В чем проблема ? сначало запрашиваешь a и b ; потом подставляешь в мою запись вместо ... то, что надо сделать, если знаки одного знака. else ветка если не одного знака вней действия тоже по условию. Потом пишешь writeln(a,b) ;
Till
22.06.2008 18:00
а ты можешь зделать эту задачу и скинут в 2-файлах .pas и .exe
renesko1
22.06.2008 18:04
Задача элементарная из школьного курса (у нас) . Спрашивай по ходу решения, не стесняйся : не знаешь, как описать переменные или как запросить у пользователя... здесь тебе всегда ответят(наверное).
Till
22.06.2008 18:12
что, никто неможет мне помоч, мне срочно нужно, помогите плиз
Sozialist
22.06.2008 18:28
Пиши, что уже готово, будем добавлять.
Till
22.06.2008 19:59
ну вот задача:"Каждое из чисел A, B отлично от нуля. Если они одинаковых знаков, то заменить меньшее из них большим, если же числа имеют разные знаки, то присвоить каждому из них знак числа, меньшего по абсолютной величине." а вот что я делал но тут чтото неправельно и помогите мне зделать трасировку Нажмите для просмотра прикрепленного файла
Sozialist
22.06.2008 20:08
Следи за тем, что вводишь и что выводишь.
Till
22.06.2008 20:22
так помоги мне, исправь пожалуйста
Sozialist
22.06.2008 20:34
Спойлер(Показать/Скрыть)
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
22.06.2008 21:00
спасибо чувак, я просто щас очень занят, к экзамину готовлюсь, а мне эту задачу нужно показать
Sozialist
22.06.2008 21:04
Цитата
спасибо чувак, я просто щас очень занят, к экзамину готовлюсь, а мне эту задачу нужно показать
;) Ток я не "чувак".
Till
22.06.2008 21:10
ну ладно, сори
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.