генерация чисел в delphi

[Deman1986]

Уважаемы программисты помогите с решением задачи
генерацию набора цифр от нуля до девяти (количество объектов в наборе должно изменяться от одного до девяти, одинаковые цифры в наборе не допускаются);
вывод набора цифр пользователю в одной из определённых в индивидуальном задании графических форм в течение фиксированного промежутка времени;
вывод пользователю всех цифр (в заданной графической форме) для того, чтобы он мог указать, какие из них входили в набор;
индикация ошибок пользователя (при их наличии).
Графическая форма:
Римские цифры, словесная форма, цвет шрифта.
Подскажите пожалуйста с чего начать. Спасибо.
На форуме покурил темы подходящего не нашел.

[Stilet]

Например начни отсюда: http://delphiworld.narod.ru/base/dec_to_roman.html
А дальше, если я правильно понял задачу, в цикле генерировать цифры и выводить их.

[Deman1986]

Спасибо вам большое за подсказку. Я просто не пойму структуру программы. Что куда писать.

[Utkin]

Что куда писать.

Значит до этого еще очень далеко. Сначала продумайте общий принцип работы. Затем определитесь со структурами данных и только потом уже стоит браться за реализацию на конкретном языке.

[Deman1986]

вот набросал

unit main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.dfm}
function DecToRoman(Decimal: LongInt): string;
const
Romans: array[1..9] of string =
('I', 'II', 'III', 'IV', 'V', 'VI', 'VII', 'VIII', 'IX');
  Arabics: array[1..9] of Integer =
  (1, 2, 3, 4, 5, 6, 7, 8, 9);
var
  i: Integer;
  scratch: string;
begin
  scratch := '';
  for i := 9 downto 1 do
    while (Decimal >= Arabics[i]) do
    begin
      Decimal := Decimal - Arabics[i];
      scratch := scratch + Romans[i];
    end;
  Result := scratch;
end;
 
 
 
end.

только я немного не пойму как реализовать генерируем случайное число по количеству элементов. (поскольку элементов 9 то генерируем число от 1 до
9, в вашем случае.)
2 значинеие текущей позиции и позиции сгенерированной, меняем местами.
Делаем так для каждого элемента массива. То есть 9 шагов цикла

Ну например исходное положение
1 2 3 4 5 6 7 8 9

сгенерированно число 6
После первого шага массив примет вид
6 2 3 4 5 1 7 8 9

и так далее.
В словестном виде?
Значит нужен массив слов
{'Один','Два','Три','Четыре','Пять' ,'Шесть','Семь','Восемь','Девять'}
человек подсказал, я вот думаю сижу

[Deman1986]

По принципу работы
1. Будет поле вывода данных, кнопка сгенерировать. на кнопку будет прописан код генерации.
2. будет таймер для отведения времени вывода информации на экран пользователю
3. Поле вывода данных и кнопка для отображения всех выводимых элементов.
4. Поле вывода и кнопка для вывода словестной формы.
Так я представлю себе программу.

[Serge_Bliznykov]

Deman1986, Вы не расстраивайтесь, что не совсем понимаете задание.
Дело в том, что по моему мнению, задание у Вас немножко дебильное..
Тот, кто придумывал универсальные задания (общий текст задания общий для всех, а отличаются в задании детали - какие цифры и как их выводить). Но составитель не учёл, что бывают позиционные системы счисления (наша десятичная запись арабскими цифрами - как раз такая) и НЕ ПОЗИЦИОННЫЕ (пример - римская система записи чисел)!

И ключевое отличие здесь в том, что для
римской записи чисел это

генерацию набора цифр от нуля до девяти (количество объектов в наборе должно изменяться от одного до девяти, одинаковые цифры в наборе не допускаются)

БЕССМЫСЛЕНО!
во-первых, римских ЦИФР нет от нуля до девяти! Если кто-то забыл, то римские цифры - это I V X L C D M

во-вторых, нельзя составить "НАБОР" цифр (содержащий более 1-й цифры) так, чтобы получить корректную запись ЧИСЛА. да и девять НЕПОВТОРЯЮЩИХСЯ цифр нельзя взять из набора, в котором всего 7 знаков присутствует!

в третьих, что есть "словесная форма" - это лучше уточнять у преподавателя.

Поэтому, подводя итог всему вышесказанному, по моему мнению, Вам лучше уточнить все эти нюансы у вашего преподавателя.


p.s. можно на все эти вопросы придумать свои варианты решения и всё равно написать программу. В общем-то, Вы именно по этому пути и пошли. Можно и так. Но тогда будьте готовы к тому, что есть вероятность того, что преподаватель забракует ваше решение - если он ожидает увидеть то, что он там сам себе напридумывал...

ДОБАВЛЕНО через пару минут..

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

По принципу работы

принцип работы, нормальный. Только Вы забыли, что пользователю программы надо дать возможность "указать, какие цифры входили в набор"

[Utkin]

function DecToRoman(Decimal: LongInt): string;

И при этом нет проверки ввода. Здесь требуется уточнение Вам нужны настоящие римские цифры? Просто 50 по Вашему алгоритму будет... будет ли? Римскими цифрами это будет L.
Опять же

генерацию набора цифр от нуля до девяти (количество объектов в наборе должно изменяться от одного до девяти, одинаковые цифры в наборе не допускаются);

При том римляне насколько мне известно нуля не придумали (их цифры были отражением вещественных показателей реальных объектов мира, а не абстрактная категория). В общем над этим нужно думать .

[Deman1986]

переделал

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

function DecToRoman(Decimal: LongInt): string;
const
Romans: array[1..9] of string =
('I', 'II', 'III', 'IV', 'V', 'VI', 'VII', 'VIII', 'IX');
  Arabics: array[1..9] of Integer =
  (1, 2, 3, 4, 5, 6, 7, 8, 9);
var
  i: Integer;
  scratch: string;
begin
  scratch := '';
  for i := 9 downto 1 do
    while (Decimal >= Arabics[i]) do
    begin
      Decimal := Decimal - Arabics[i];
      scratch := scratch + Romans[i];
    end;
  Result := scratch;
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// ÷èñëà îò 1 äî 9 âêëþ÷èòåëüíî áóäóò îòîáðàæàòüñÿ ïîñëåäîâàòåëüíî
Label1.Caption:=Label1.Caption +' ' + IntToStr(Random(8)+1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//íàäî îáÿçàòåëüíî èíèöèëèçèðîâàòü ãåíåðàòîð
Randomize;
  Timer1.Interval := 5000; // 5 ñåêóíä
    Timer1.Enabled := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled := false;
end;

end.

но как сделать вывод цифр не повторяющимися и с римским обозначением. Спасибо за помощь

[Utkin]

но как сделать вывод цифр

Начните с этого. У Вас на это есть замечательный компонент - TEdit. Его свойство Text (можно исследовать например по нажатию на кнопку) содержит те данные которые ввел пользователь.