[Kosten]

Поиск не принёс результатов. Помогите пожалуйста составить прогу.
К:=от 0 до 15
Если К:=2, то х^2
Если К:=5, то х-2
Если К:=Иное, то х=без изменений.
Очень плохо объяснили на ленте, не могу справиться сам.
Сделать 2 едита - в первый вводишь число - во 2ое выводится результат.
ну и кнопка "Вычислить"

[AND_REY]

Вот пример:

procedure TForm1.Button1Click(Sender: TObject);
Var
K,X: Integer;
begin
K:= StrToInt(Edit1.Text);
X:= StrToInt(Edit2.Text);
Case K of
2: Edit2.Text:= IntToStr(X*X);
5: Edit2.Text:= IntToStr(X-2);
end;
end;

[Kosten]

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

Вот пример:

вааааа =) спасибо! Это оказалось на столько просто