ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
03.02.2010, 09:30
|
|
Новичок
Регистрация: 16.11.2008
Сообщений: 27
Провел на форуме:
104236
Репутация:
6
|
|
Сообщение от 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;
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Древовидный вид