Вычислить формулу

04.03.2011, 17:04. **Показов** 5223. **Ответов** 4

Author24 — интернет-сервис помощи студентам

Мы в школе месяц назад начали проходить Delphi.
Подскажите пожалуйста как решить вот это: "Дано действительное число Х.Найти
2*Х(в четвертой степени)-3*Х(в третьей степени)+4*Х(во второй степени)-5*Х+6

подключил модуль Math

присылаю не весь код а основную часть

Delphi

procedure TForm1.Button1Click(Sender: TObject);
Function Power(X:Integer):Integer;
var F:Integer;
begin
X:=StrToInt(Edit1.Text);
F:=2*Power(4)-3*Power(3)+4*Power(2)-5*X+6;
Edit2.Text:=IntToStr(F);
end;
end.

Красным цветом выделяется последняя строчка end(((

@sunbeam · 04.03.2011, 17:16

чушь потому что написали

Delphi

uses Math

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x:Integer;
    f:real;
begin
  x := StrToInt(Edit1.Text);
  F := 2*Power(x,4)-3*Power(x,3)+4*Power(x,2)-5*X+6;
  Edit2.Text:=FloatToStr(F);
end;
end.

04.03.2011, 17:23

Спасибо большое! Самое главное понял как оформлять такие примеры)

@Arcor · 05.03.2011, 01:43

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

Мы в школе месяц назад начали проходить Delphi.
Подскажите пожалуйста как решить вот это: "Дано действительное число Х.Найти
2*Х(в четвертой степени)-3*Х(в третьей степени)+4*Х(во второй степени)-5*Х+6

подключил модуль Math

присылаю не весь код а основную часть

Delphi

procedure TForm1.Button1Click(Sender: TObject);
Function Power(X:Integer):Integer;
var F:Integer;
begin
X:=StrToInt(Edit1.Text);
F:=2*Power(4)-3*Power(3)+4*Power(2)-5*X+6;
Edit2.Text:=IntToStr(F);
end;
end.

Красным цветом выделяется последняя строчка end(((

оформить можно было бы и так

Delphi

procedure TForm1.Button1Click(Sender: TObject);
Function Power(X:Integer):Integer;
var F:Integer;
begin
X:=StrToInt(Edit1.Text);
F:=2*Power(4)-3*Power(3)+4*Power(2)-5*X+6;
Edit2.Text:=IntToStr(F);
end;
begin
//И тут используем функцию Power, хотя это стандартная функция...
// и имеет 2 входных значения Power(Что будем возводить, в какую степень)
//например Power(2,3), получить должны 8 на выходе, так как три раза по 2 будет 8 :)
end;
end.

P.S. что написано в теле процедуры на нажатие на кнопку это могло бы так выглядеть, а показан вообще принцип процедуры в процедуре, ну или тут сказать функции в процедуре

@Puporev · 05.03.2011, 09:58

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

Edit2.Text:=IntToStr(F);

Собственно об этой ошибке и шла речь по сути, и какой смысл ее переписывать...

thearti777
	04.03.2011, 17:23	3
	Спасибо большое! Самое главное понял как оформлять такие примеры)

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.03.2011, 09:58	5
	Сообщение от Arcor Edit2.Text:=IntToStr(F); Собственно об этой ошибке и шла речь по сути, и какой смысл ее переписывать... 0