Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!Извините,что в столь поздний час... Не могу разобраться с одной задачей...Даже алгоритм мне непотятен...Просто в тупике...Вот условие...
Ввести с клавиатуры 2 числа.Сгенерировать произвольно + или -.Вывести на экран a+-b в числовой форме.

Вопрос задал: Maverick (статус: Посетитель) Вопрос отправлен: 1 октября 2008, 23:39 Состояние вопроса: решён, ответов: 2.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Maverick!
ну так кода на пару строк.
например так

if random > 0.5 then
  writeln('a+b', a+b)
else
  writeln('a-b', a-b)

Ответ отправил: Вадим К (статус: Академик) Время отправки: 2 октября 2008, 00:07 Оценка за ответ: 5

Ответ #2. Отвечает эксперт: Николай Рубан

Здравствуйте, Maverick!

Вам достаточно использовать стандартную функцию random, а дальше дело техники:

var a,b:integer;
begin
  write('a='); readln(a);
  write('b='); readln(b);
  randomize;
  case random(2) of
  0: writeln('a+b=',a,'+',b,'=',a+b);
  1: writeln('a-b=',a,'-',b,'=',a-b);
  end;
  readln;
end.

Ответ отправил: Николай Рубан (статус: 10-ый класс) Время отправки: 2 октября 2008, 00:13 Оценка за ответ: 5

Мини-форум вопроса

Maverick (статус: Посетитель), 2 октября 2008, 00:16 [#1]: Спасибо!..Этот момент я как раз до конца и не понял...

31 января 2011, 19:31: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.