03.02.2010, 20:08
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
Провел на форуме:
19460
Репутация:
0
|
|
Сообщение от DimkO
как я понял изменяется только значение переменной b:
добавь на форму компоненты Tlistbox,TEdit,TButton,ну и такую процедуру:
Код:
procedure TForm1.Button1Click(Sender: TObject);
const x=-11;
var b,a,c,y:real;
begin
listbox1.Clear;
b:=strtofloat(edit1.text);
if b<0 then
begin
MessageDlg('Значение b должно быть >=0',mtError,[mbOK],0);
exit;
end;
a:=sqrt(abs(x))+exp(sqrt(b));
c:=sqr(a)+sqr(b);
y:=sqr(c)*c/cos(c);
listbox1.Items.Add(floattostrf(y,ffgeneral,5,5));
end;
хуух....СПАСИБИЩЕ, ты спас мою грешную душу...=))
|
|
|