Версия для печати темы

Автор: Psychologist 11.12.2007 20:40

Помогите, плз, переделать простенькую задачку:
Задаётся пример, пользователь должен решить его (ввести ответ). Программа сверяет ответ пользователя и результат собственных вычислений, и выводит ответ "Правильно" или "Неправильно".
Всё очень просто, если бы в условии задачи не было "действия производятся в 6' с/с."...
Даже не знаю, с какой стороны подойти...

Program OAIP_prakt_01;
Var
   raznost     : Integer; {rezultat vichisleniy}
   proverka    : Integer; {pravilniy otvet}

Begin

   writeln ('skolko budet 100-20 ?');
   writeln ('vvedite otvet i nazhmite ENTER');
   readln  (raznost);

   proverka:=100-20;

   if raznost=proverka then writeln (raznost, ' - pravilniy otvet')
                       else writeln (raznost, ' - nepravilniy otvet');

   readln;
End.

Автор: volvo 11.12.2007 21:46

Используя функции вот отсюда: http://forum.pascal.net.ru/index.php?s=&showtopic=4535&view=findpost&p=38226

Var
   raznost: string; {rezultat vichisleniy}
   proverka: string; {pravilniy otvet}

Begin

   writeln ('skolko budet 100-20 ?');
   writeln ('vvedite otvet i nazhmite ENTER');
   readln  (raznost);

   proverka:=fromdec(todec('100', 6) - todec('20', 6), 6);
   if raznost=proverka then writeln (raznost, ' - pravilniy otvet')
                       else writeln (raznost, ' - nepravilniy otvet');

   readln;
End.

Автор: Psychologist 11.12.2007 22:16

Ругается на "fromdec".
Пишет: "Error 3: Unknown identifier."...

Автор: volvo 11.12.2007 22:46

Я же дал ссылку, оттуда возьми обе функции и добавь перед программой...