Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

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

Ребята, вот меня озадачили...помогите, пожалуйста...

Сложить схему алгоритма и проект программы алгоритмическим языком Паскаль в среде Delphi вычисления функции y = f (x) в соответствии с вариантами, отмеченными в таблице. Первое из значений, приведенных в таблице, задать как константу, второе - ввести с помощью компонента Edit.
Вариант 7, вот сама функция

http://upload.com.ua/get/901356404/

как я понял изменяется только значение переменной 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;