Программа на нахождение верности условия без опереатора IF (Pascal)

[xRJ10]

Сразу предупрежу что я чайник на Pascal ибо учил только php и ac 2.0. Поэтому надеюсь, на помощь, а самое главное чтобы объяснили как это работает, чтобы больше не возникало вопросов...

Задача: Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае.(Оператор IF не использовать).

Условие: введенные символы C1, C2образуют число кратное 3, но не кратное 9.

Это лабораторная работа в универе. Просто я не понимаю...

[Пепел Феникса]

по первому пункту.

var b,a:integer;
begin
 readln(a,b);
 if b>=a then writeln('b>=a') else writeln('b<a');
 readln;
end.

а теперь без if

var b,a:integer;
     t:boolean;
label Quit;
begin
 readln(b,a);
 t:=(b>=a);
 while t do begin
                writeln('b>=a');
                goto Quit;
               end;
 writeln('b<a');
 Quit:readln;
end.

вроде так.

[xRJ10]

Хмм... Ответ с намеком на "думай сам". В принципе все понятно, как обойти использование IF, но все же программу дописать я не могу((.
Во-первых: В начале программы вводится 2 числа, как объединить их в одно двузначное число?
Во-вторых: как понять когда остается остаток (т.е. не кратно);
И последнее: Как понять все же когда число образованное из двух кратно 3 и не кратно 9.

Напишите пожалуйста готовый код, мне проще в нем разобраться...

[Alex_FF]

Для вычисления остатка от деления существует функция mod.
Если у тебя есть две цифры, то чтобы составить из них двузначное число нужно первую цифру умножить на 10 и к получившемуся прибавить вторую цифру (как число к числу прибавить).
А это число потом уже и проверять на делимость.

var
   C1, C2: Char;
   R: Integer;
   t: Boolean;
begin
    ReadLn(C1, C2);
    R := 10 * (Ord(C1) - Ord('0')) + Ord(C2) - Ord('0');
    t := (R mod 3 = 0) and (R mod 9 <> 0);
    WriteLn(t);
    ReadLn;
end.

[psycho-coder]

Сообщение от Пепел Феникса

вроде так.

А может через Case лучше?

var b,a:integer;
begin
 readln(b,a);
 Case (b>=a) of
   true: writeln('b>=a');
   false: writeln('b<a');
 end
end.

[Alex_FF]

а может не надо мудрить? зачем всякие там Case, if, goto и тем более циклы?

var t: Boolean;
.......
t := a < b;

это чем не нравится?

[Alex_FF]

Сообщение от psycho-coder

А может через Case лучше?

var b,a:integer;
begin
 readln(b,a);
 Case (b>=a) of
   true: writeln('b>=a');
   false: writeln('b<a');
 end
end.

не лучше
это в одну строчку из 7 символов записывается

[Пепел Феникса]

это чем не нравится?

у меня это и написано.
только у меня написана полностью программа. ввод и вывод.

[Alex_FF]

Сообщение от Пепел Феникса

у меня это и написано.
только у меня написана полностью программа. ввод и вывод.

по условию задачи нужно только вывести значение переменной t.

[Serge_Bliznykov]

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

по условию задачи нужно только вывести значение переменной t.

Alex_FF, ошибаетесь...

введенные символы C1, C2образуют

Alex_FF, а что я Вам собственно объясняю, когда Вы в пост #4 полностью написали программу! Что тут уже дальше обсуждать то?!!


p.s. а ещё посмотрите в теме http://www.programmersforum.ru/showthread.php?t=77877
мои ответы... особенно последний, который пост #4
похоже?