Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Написать подпрограмму функцию

Автор: qtinux 14.2.2010, 12:37

Пожалуйста помогите с написанием программы.

Написать подпрограмму функцию вычисления y = f(x) = 2x, вызвать ее из основной программы, предусмотрев ввод аргумента x пользователем с клавиатуры. Распечатать значение y

Автор: bems 14.2.2010, 17:55

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: mr.Anderson 14.2.2010, 18:49

Куда уж проще. А подумать? Это же минимальный уровень.

Код


function Fx(X: Integer): Integer;
begin
  Result := 2 * X;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := Fx(StrToInt(Trim(Edit1.Text)));
end;

На форме при этом должно быть два компонента класса TEdit.

Добавлено через 33 секунды
А, ну и кнопка еще, конечно же (TButton).