оператор выбора

[malova]

Даны три числа n,m,p. Вывести на печать только те из них которые являются положительными. но надо решить с помощью оператора выбора Case... подскажите как, пожалуйста....

[Сергей089]

Сообщение от malova

с помощью оператора выбора

Это как? Так что ли?

case n>=0 of true:writeln(n);
end;

Выбирать не из чего, только true или false.

[malova]

Сообщение от Сергей089

Это как? Так что ли?

case n>=0 of true:writeln(n);
end;

дано 3 числа....

[IT-man]

ну дык оберни вышеприведенное в процедуру и вызывай для каждого

[malova]

Сообщение от IT-man

ну дык оберни вышеприведенное в процедуру и вызывай для каждого

Да уж..... еслиб знала как...... может подскажете? ))

[Сергей089]

Я видел, что 3 числа. Просто в Case можно проверять 1 выражение. Это получается нужно три таких оператора:

case n>=0 of true:writeln(n);
end;
case m>=0 of true:writeln(m);
end;
case p>=0 of true:writeln(p);
end;

Либо поизвращаться и составить одно выражение проверки для всех трех переменных , например, так

s:=(trunc(n/abs(n))+1)+2*(trunc(m/abs(m))+1)+4*(trunc(p/abs(p))+1);
case s of 2:writeln(n);
          4:writeln(m);
          8:writeln(p);
          6:writeln(n,' ',m);
          10:writeln(n,' ',p);
          12:writeln(m,' ',p);
          14:writeln(n,' ',m,' ',p);
end;

Правда тогда нули нельзя вводить.