DA
Diana Adamiya

срочно помогите исправить ошибки в программе DElphi

procedure TForm1.btn1Click(Sender: TObject);
x:integer;
y:real;
begin
x:=StrToInt(edt1.Text);
y:=Sin(x)/cos(x)+abs(x*x*x)/(x-1); {âûâîä ÷èñëà çàìåí}
edt2.Text := IntToStr(y) ;

[Error] Unit1.pas(31): Unknown directive: 'x'
[Error] Unit1.pas(34): Undeclared identifier: 'x'
[Error] Unit1.pas(35): Undeclared identifier: 'y'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Илья Кипер
Илья Кипер

Var перед объявлением переменных забыли

var
x:integer;
y:real;
....
edt2.Text := FloatToStr(y) ; //

Дмитрий Алябьев
Дмитрий Алябьев

На рыбалке только и философствовать. . ну можно еще и книги читать когда клева нету. . А обычно бывает, что не успеваешь удочки освежать

Похожие вопросы
помогите исправить ошибки в программе DElphi
помогите исправит ошибку в программе паскаль
Помогите исправить ошибки в программе.
Где ошибка? Программа в delphi.
Помогите исправить ошибку в программе. С++ Builder
ошибки в коде программы помогите исправить
помогите исправить ошибки в Delphi
Помогите исправить ошибки в коде программы!
Срочно нужны программы в Delphi!
Помогите исправить ошибку в программе (C++).