[Gareth]

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

Здравствуйте, помогите пожалуйста с кодом. Есть один Label и один edit и одна кнопка. В Label1 буду записать небольшую задачу (например 3+3+3, таких задач 16), а пользователь должен написать ответ в Edit1 и нажат кнопку. Если ответ правильный тогда должен выходит сообщение что ответ правильный и в Label1 должен выходить следующая задача. Помогите пожалуйста

если задачи заранее известны и меняться не будут, создавай массивы с задачами и ответами.
задачи выводи в лейблы, а по кнопке поверяй, если ответ равен текущему вопросу, выводи сообщение ))

очень топорно...))

Код:

var
  Form1: TForm1;
  vopros: array [1 .. 5] of string; // задачи
  otvet: array [1 .. 5] of Integer; // ответы
  count: Integer = 1; // текущая задача

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = IntToStr(otvet[count]) then // если текс в edit  совпадает с ответом
  begin
    Edit1.Clear; // очищаем edit
    Inc(count); // увеличиваем переменую count на 1
    ShowMessage('Правильно'); // выводим сообщение
    if count <= 5 then // делаем проверку, если переменная count меньше или ровна количеству задачь
    begin
      Label1.Caption := vopros[count]; // то выводим в лейбл следующию задачу
    end;
  end
  else // если текст в edit не совпадает с ответом
  begin
    Edit1.Clear; // очищаем edit
    ShowMessage('НЕ правильно'); // выводим сообщение
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  { описываем задания }
  vopros[1] := '3+3+3'; // ответ 9
  vopros[2] := '6+3+2'; // ответ 11
  vopros[3] := '5-2+7'; // ответ 10
  vopros[4] := '8+3-9'; // ответ 2
  vopros[5] := '10-9+6'; // ответ 7
  { --------------------------------- }
  { описываем ответы }
  otvet[1] := 9;
  otvet[2] := 11;
  otvet[3] := 10;
  otvet[4] := 2;
  otvet[5] := 7;
  { --------------------------------- }
  { вбиваем первый вопрос в label }
  Label1.Caption := vopros[1];
end;