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