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

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

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 952

/ вопрос решён /

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

Maverick Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: 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.

Good Luck!

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


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

Всего сообщений: 1; последнее сообщение — 2 октября 2008, 00:16; участников в обсуждении: 1.
Maverick

Maverick (статус: Посетитель), 2 октября 2008, 00:16 [#1]:

Спасибо!..Этот момент я как раз до конца и не понял...

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

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 12 декабря 2017, 21:13
Выполнено за 0.04 сек.
Рейтинг@Mail.ru