15.10.2019, 05:35 [+3 UTC]
в нашей команде: 3 883 чел. | участники онлайн: 1 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
11.10.2019, 14:47

Последний вопрос:
14.10.2019, 21:36
Всего: 150595

Последний ответ:
15.10.2019, 02:42
Всего: 259215

Последняя рассылка:
14.10.2019, 18:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
02.03.2010, 20:58 »
JayK
Еще раз спасибо за полный и точный ответ, сколько уже страдаю от необходимости вбивать в t9 медтерминологию после каждого ХР... [вопрос № 176959, ответ № 259837]
10.04.2010, 22:15 »
lamed
Спасибо! Впервые услышал от Вас. Буду пробовать. [вопрос № 177799, ответ № 260749]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

zdwork
Статус: 6-й класс
Рейтинг: 736
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 202
puporev
Статус: Профессионал
Рейтинг: 56

Перейти к консультации №:
 

Консультация онлайн # 196633
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Satana666 (1-й класс)
Отправлена: 10.10.2019, 10:52
Поступило ответов: 1

Здравствуйте, уважаемые эксперты!
Помогите пожалуйста:
[img]https://a.radikal.ru/a23/1910/7a/57fc240d2eae.jpg[/img]

Приложение:

-----
 Прикрепленный файл (кликните по картинке для увеличения):

Состояние: Консультация активна (до закрытия: 05 час. 17 мин.)

Здравствуйте, Satana666!

Смотрите приложение:

Код (Pascal) :: выделить код
uses vcl;
//$VCLDESIGN+
var
  Form1: Form;
  TextLabel1: TextLabel;
  TextLabel2: TextLabel;
  TextLabel3: TextLabel;
  TextLabel4: TextLabel;
  Edit1: Edit;
  Edit2: Edit;
  Edit3: Edit;
  Button1: Button;
//$VCLDESIGN-
procedure CalcForm;
  var
    t,x,y,z:real;
  begin
    Button1.visible:=false;
    x:=StrToFloat(Edit1.Text);
    y:=StrToFloat(Edit2.Text);
    z:=StrToFloat(Edit3.Text);
    TextLabel4.Caption:='T:=  '+FloatToStr((2*cos(x-pi/6)*(1+z*z/(3-z*z/5)))/(0.5+sin(y)*sin(y)));
  end;
procedure InitControls;
begin
  Form1:= Form.Create(0,0,200,181);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Enter value','');
  TextLabel1:= TextLabel.Create(Form1,10,15,150,30);
  TextLabel1.InitControl(True,True,alNone,crDefault,clBtnFace,'X:=','');
  TextLabel2:= TextLabel.Create(Form1,10,45,150,30);
  TextLabel2.InitControl(True,True,alNone,crDefault,clBtnFace,'Y:=','');
  TextLabel3:= TextLabel.Create(Form1,10,75,150,30);
  TextLabel3.InitControl(True,True,alNone,crDefault,clBtnFace,'Z:=','');
  TextLabel4:= TextLabel.Create(Form1,10,105,150,30);
  TextLabel4.InitControl(True,True,alNone,crDefault,clBtnFace,'T:=','');
  Edit1:= Edit.Create(Form1,30,10,150,30);
  Edit1.InitControl(True,True,alNone,crDefault,clWindow,'','');
  Edit2:= Edit.Create(Form1,30,40,150,30);
  Edit2.InitControl(True,True,alNone,crDefault,clWindow,'','');
  Edit3:= Edit.Create(Form1,30,70,150,30);
  Edit3.InitControl(True,True,alNone,crDefault,clWindow,'','');
  Button1:= Button.Create(Form1,30,100,150,30);
  Button1.InitControl(True,True,alNone,crDefault,0,'Calc?','');
  Button1.OnClick:=CalcForm;
  Form1.Position:= poScreenCenter;
  Form1.Show;
end;
begin
  InitControls;
end.


Получается так:

Но это не совпадает с:
© Цитата: Satana666
Нужно чтобы в ответе получилось t=0.564849

Удачи!


Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 12.10.2019, 19:19

Рейтинг ответа:

+1

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 196633
Satana666
1-й класс

ID: 403280

# 1

= общий = | 10.10.2019, 10:54 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

Нужно чтобы в ответе получилось t=0.564849

Зенченко Константин Николаевич
Старший модератор

ID: 31795

# 2

= общий = | 11.10.2019, 17:26 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Satana666:

задание проверьте smile

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

-----
 Прикрепленный файл (кликните по картинке для увеличения):

Satana666
1-й класс

ID: 403280

# 3

= общий = | 12.10.2019, 11:17 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

© Цитата: Зенченко Константин Николаевич
а что не так?

Зенченко Константин Николаевич
Старший модератор

ID: 31795

# 4

= общий = | 12.10.2019, 15:59 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Satana666:

© Цитата: Satana666
а что не так?


t=0.564849 <> t=0.564846

формула дает второй результат.
smile

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.13585 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.77 от 31.05.2019
Версия JS: 1.34 | Версия CSS: 3.35