Генерация задачек вида 3*5-7

Posted by Chas under Delphi

Вобщем стоит задача генерировать задачки вида 3*5-7 , как это реализовать чтобы минимум кода? Можно конечно сделать через Random для каждой цифры, но вот как быть с знаками «*», «-«, «+», «/»?

цифры в задачках от 1 до 9

Poma][a

const s := '*-+/';

ch := s[Random(4)+1];

Аватар

s:=Format('%d%s%d%s%d',[Random(9)+1,'*-+/'[Random(4)+1],Random(9)+1,'*-+/'[Random(4)+1],Random(9)+1]);

тема на форуме

Последние записи

Генерация задачек вида 3*5-7

Похожие статьи