25.01.2020, 01:15 [+3 UTC]
в нашей команде: 4 166 чел. | участники онлайн: 2 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.80 (15.01.2020)
JS-v.1.35 | CSS-v.3.36

Общие новости:
06.01.2020, 22:45

Форум:
13.01.2020, 16:40

Последний вопрос:
24.01.2020, 12:36
Всего: 151479

Последний ответ:
24.01.2020, 20:57
Всего: 259687

Последняя рассылка:
24.01.2020, 21:46

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

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

Наша кнопка:

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

Отзывы о нас:
09.11.2009, 17:41 »
Simplar
Lion, я безмерно рад Вашему ответу! Все коротко и ясно. Ответ просто идеальный: на 6 баллов из 5 возможных. Не думал, что ответ на свой вопрос я вообще найду. А с Вашей помощью нашел. Я обращался к адвокату, но он признался в своей некомпетентности по данному вопросу. А Вы вселили в меня новую надежду. Частная жалоба уже у судьи. Буду биться до конца. Спасибо Вам ещё раз! [вопрос № 174012, ответ № 256248]
18.09.2009, 10:32 »
Хиноцкий Ярослав Владимирович
Спасибо Большое за ответ! Тоже склонялся к этому. Проверю. Спасибо! [вопрос № 172292, ответ № 254331]

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

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

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

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

Gluck
Статус: Студент
Рейтинг: 489
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 207
puporev
Статус: Профессионал
Рейтинг: 115

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

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

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

Приложение:

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

Состояние: Консультация закрыта

Здравствуйте, 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

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

+2

[подробно]

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

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

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

ID: 403280

# 1

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

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

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

ID: 31795

# 2

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

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

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

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

Satana666
1-й класс

ID: 403280

# 3

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

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

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

ID: 31795

# 4

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

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


t=0.564849 <> t=0.564846

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

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

Satana666
1-й класс

ID: 403280

# 5

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

© Цитата: Зенченко Константин Николаевич
а можете код программы скинуть? Я попробую разобраться и убедиться!
только в паскале abc!
Vcl неработает!
Пожалуйста.

-----
Последнее редактирование 16.10.2019, 08:23 Satana666 (1-й класс)

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

ID: 31795

# 6

 +1 
 
= общий = | 16.10.2019, 12:35 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Satana666:

© Цитата: Satana666
а можете код программы скинуть? Я попробую разобраться и убедиться!
только в паскале abc! Vcl неработает!

Так это и есть АВС, код в ответе.

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

Satana666
1-й класс

ID: 403280

# 7

= общий = | 23.10.2019, 08:40 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Зенченко Константин Николаевич:

© Цитата: Зенченко Константин Николаевич
Константин, vcl у меня не работает в pascal, могли бы вы мне немного по другому помочь? Вот программа которая получилась у меня, могли бы вы исправить мои ошибки?

var
// t = 0.564849
x, y, z, t, vdrob, ndrob, vdrob2, ndrob2, drob1, drob2: real;
Begin
x:= 14.26; y:= -1.22; z:= 3.5e-2;
vdrob:= 2*cos(x-Pi/6);
ndrob:= 0.5 + sin(y) * sin(y);
vdrob2:= sqr(2);
ndrob2:=3 - exp((2/5) * ln(z));
drob1:= vdrob/ndrob;
drob2:=1 + (vdrob2/ndrob2);
t:= drob1 * drob2;
writeln(t);

end.


нужно что бы ответ получился t=0.564846, а у меня другой выводит, t=1.3893523713532

Заранее спасибо!

-----
Последнее редактирование 23.10.2019, 08:50 Satana666 (1-й класс)

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

ID: 31795

# 8

 +1 
 
= общий = | 23.10.2019, 12:19 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Satana666:

Код (Pascal) :: выделить код
var
// t = 0.564849
x, y, z, t, vdrob, ndrob, vdrob2, ndrob2, drob1, drob2: real;
Begin
x:= 14.26; y:= -1.22; z:= 3.5e-2;
vdrob:= 2*cos(x-Pi/6); //+
ndrob:= 0.5 + sin(y) * sin(y);//+
t:=vdrob/ndrob;

vdrob2:= z*z;
ndrob2:=3 - z*z/5;

drob2:=1 + (vdrob2/ndrob2);
t:= t * drob2;
writeln(t);

end.

У Вас ошибку вводит exp((2/5) * ln(z)) по формуле Вы считаете (zz/(zzzzz)) smile , и ещё один момент: z может быть и отрицательной, по этому использовать в формуле логарифм не допустимо, т.к. он определен только для положительных чисел.


© Цитата: Satana666
vcl у меня не работает в pascal,

Номер сборки, у меня 3.0.1.35(от 17.04.2007), у Вас какая?
Проверьте у Вас есть в меню сервис создать форму:

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

 

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

Яндекс Rambler's Top100

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

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

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.80 от 15.01.2020
Версия JS: 1.35 | Версия CSS: 3.36