Траектория снаряда

@Vedma · Регистрация: 26.11.2011

Author24 — интернет-сервис помощи студентам

Привет

Решила определить траекторию снаряда. Определяется по формуле:
S=V₀²*Sin/g
где V₀ - начальная скорость
Sin - угол
g - ускорение свободного падения(равна 9.8)
В Edit1 вводим Sin. И нажимаем кнопку "Определить синус":

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
float : single;
begin
float := Sin(PI/Edit1.Text);
Edit2.Text:= FloatToStr(float));
end;

далее, в Edit3 вводим начальную скорость и нажимаем на кнопку "Решить":

Delphi

 
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit4.Text := IntToStr(StrToInt(Edit3.Text) * StrToInt(Edit3.Text)* StrToInt(Edit2.Text)/9.8;
end;

Почему то не выводит

Не по теме:

Задача для самоконтроля: снаряд со скоростью 30 м/с пущен под углом 45. Ответ: 90

@Санек25 · 01.10.2012, 11:13

если не ошибаюсь угол надо вводить в радианах а не в градусах...

@Vedma · 01.10.2012, 11:31 **[ТС]**

Но в условии задачи в Синусах

@Санек25 · 01.10.2012, 11:42

прчем здесь синус. Переведи градусы в радианы и попробуй с радианами...

Добавлено через 47 секунд
http://planetcalc.ru/71/

@volvo · 01.10.2012, 11:43

Модуль Math содержит функцию DegToRad. Используй её: Sin(DegToRad(value)), или переводи вручную градусы в радианы правильно: rad = degrees * Pi / 180, у тебя вычисляется совсем не то, что нужно.

@Санек25 · 01.10.2012, 11:43

1 градус = 0,017 радиана
все тоже только вместо градусов пишишь радианы

@Vedma · 01.10.2012, 12:04 **[ТС]**

как быть?

@Санек25 · 01.10.2012, 12:55

тебе же сказали переведи в радианы сделай расчет

Добавлено через 8 минут
в раздел uses допиши Math

float := Sin(DegToRad(Edit1.Text)); так будет рассчитываться синус. вводишь градусы, а программа сама их переведет...

@Vedma · 01.10.2012, 13:16 **[ТС]**

А как квадрат по другому написать?

Delphi

1	IntToStr(StrToInt(Edit3.Text) * StrToInt(Edit3.Text)

Я пишу так...разве нет более легкого пути?

murderer · 01.10.2012, 13:19

Delphi

1	sqr(StrToInt(Edit3.Text))

@volvo · 01.10.2012, 14:34

Гораздо более легкий путь - завести 3 переменных типа Double, прочесть один раз в них информацию из Edit-ов, и потом работать с числами, а не с текстом. А потом результат один раз перевести в строку...

Мало того, что ты все время должна конвертировать туда-сюда, так ты еще все время хочешь сказать, что у тебя получаются целые значения, потому что всегда конвертируешь IntToStr, а не FloatToStr. Несмотря на то, что у тебя и деление и синусы и Pi, которые возвращают вещественные результаты.

@Vedma · 01.10.2012, 14:38 **[ТС]**

Double

Можете поподробнее

@Санек25 · 01.10.2012, 14:47

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

Можете поподробнее

http://articles.org.ru/lessond/les10.php раздел. Действительный тип.

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	01.10.2012, 11:13	2
	если не ошибаюсь угол надо вводить в радианах а не в градусах... 0

@Vedma Охотница на ведьм 313 / 96 / 8 Регистрация: 26.11.2011 Сообщений: 2,783 Записей в блоге: 4
	01.10.2012, 11:31 [ТС]	3
	Но в условии задачи в Синусах 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	01.10.2012, 11:42	4
	прчем здесь синус. Переведи градусы в радианы и попробуй с радианами... Добавлено через 47 секунд http://planetcalc.ru/71/ 0

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	01.10.2012, 11:43	5
	Модуль Math содержит функцию DegToRad. Используй её: Sin(DegToRad(value)), или переводи вручную градусы в радианы правильно: *rad = degrees Pi / 180**, у тебя вычисляется совсем не то, что нужно. 0

@Vedma Охотница на ведьм 313 / 96 / 8 Регистрация: 26.11.2011 Сообщений: 2,783 Записей в блоге: 4
	01.10.2012, 12:04 [ТС]	7
	как быть? 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	01.10.2012, 12:55	8
	тебе же сказали переведи в радианы сделай расчет Добавлено через 8 минут в раздел uses допиши Math float := Sin(DegToRad(Edit1.Text)); так будет рассчитываться синус. вводишь градусы, а программа сама их переведет... 1

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	01.10.2012, 14:34	11
	Гораздо более легкий путь - завести 3 переменных типа Double, прочесть один раз в них информацию из Edit-ов, и потом работать с числами, а не с текстом. А потом результат один раз перевести в строку... Мало того, что ты все время должна конвертировать туда-сюда, так ты еще все время хочешь сказать, что у тебя получаются целые значения, потому что всегда конвертируешь IntToStr, а не FloatToStr. Несмотря на то, что у тебя и деление и синусы и Pi, которые возвращают вещественные результаты. 0

@Vedma Охотница на ведьм 313 / 96 / 8 Регистрация: 26.11.2011 Сообщений: 2,783 Записей в блоге: 4
	01.10.2012, 14:38 [ТС]	12
	Double Можете поподробнее 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	01.10.2012, 14:47	13
	Сообщение от Vedmina Можете поподробнее http://articles.org.ru/lessond/les10.php раздел. Действительный тип. 0

Опции темы