• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Лаба №6

procedure TForm1.Button1Click(Sender: TObject);

var

b,x,y,z:Real;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

z:=StrToFloat(Edit3.Text);

b:=sqr(cos(z))+2*sin(x)/cos(x)+abs(y);

Label4.Caption:='Результат: '+FloatToStr(b);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

b,x,y,z:Real;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

z:=StrToFloat(Edit3.Text);

b:=exp(abs(x-y))* exp(x*ln(sqr(sin(z)/cos(z))+1));

Label4.Caption:='Результат: '+FloatToStr(b);

end;

Переглядів: 309

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

© studopedia.com.ua При використанні або копіюванні матеріалів пряме посилання на сайт обов'язкове.