графика, движение тела под углом к горизонту

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

графика, движение тела под углом к горизонту, пушка

Опции

aygul	15.02.2006 20:19 Сообщение #1
Группа: Пользователи Сообщений: 4 Пол: Женский Репутация: 0	Помогите пожалуйста! надо составить програмки!!!тема-полет тела брошенного к горизонту!!!! 1)составить программку, на которойи было бы: в левом углу торчит пушка, нарисована горизонтальная линия(на этой линии пушка как раз и стоит). Из ствола пушки летит точка(или снаряд,или снежинка или что-нибудь подобное!)и падает на линию пролетев какое-то определённое расстояние, и на экране должна быть видна траетория движения снаряда!!! 2)составить программку, на которойи было бы: в левом углу торчит пушка, нарисована горизонтальная линия(на этой линии пушка как раз и стоит). Из ствола пушки летит точка(или снаряд,или снежинка или что-нибудь подобное!) и должна попасть в цель(цель в виде или прямоугольника или дома или машины или чего-либо другого) которая находится на некотором расстоянии от пушки!!!надо подобрать для этого правильные значения!!!При попадании снаряда в целя, цель должна всячески сигнализировать об этом(мигать, должны быть волны какие-нибудь около цели, и чтобы компьютер пищал!!!) 3)Создать игру-дуэль двух пушек(на двоих) условия те же что и в пердыдущих прогах!!! 4)lпри каком угле самая боьшая дальность полета?почему??? При составлении программ надо использовать: g=9.8 v(x)=v(nacalnaya)cosb { косинус угла b=cosb} v(y)=v(nacalnaya)sinb {синус угла b=sinb} a(t)=-g v(t)=-gt+constanta при t=(0) следует что v(0)=v(nacalnaya) Constanta=v(nacalnaya) v(t)=v(nacalnaya)-gt s(t)=v(nacalnaya)t-(gtt)/2 + constanta s(0)=0 значит constanta=s(0)=0 s(t)=v(nacalnaya)t-(gtt)/2 при t=0 следуетv(0)=v(nacalnaya) Составим систему уравнений: y=v(nacalnaya)sinbt-(gtt)/2 x=v(nacalnaya)cosbt В некоторой точке B (посередине траетории0, где тело находится на самой большой высоте и после этого начинает падать) V(y)=0, вычислим t, значит t=(2v(nacalnaya))/g. Подставим это значение t в формулу x=v(nacalnaya)cosbt , значитx=(2v(nacalnaya)v(nacalnaya)cosb)/g также надо использовать в проге: X:=round(x) и while t<=(2v(nacalnaya))/g do нЕ забудьте градусы углов перевести в радианы!!! Помогите пожалуйста!!! Сообщение отредактировано: мисс_граффити* - 14.06.2007 21:16

volvo	15.02.2006 20:27 Сообщение #2
Гость	aygul, а сдать за тебя не надо? А диплом получить? А то ты только скажи... Тебе в поиске конечно копаться не пристало, не царское это дело, да и зачем? Выложить вопросы, прийти через день-другой, уже все готово... Ан НЕТ!!! Вот эту программу я как раз сам делал (первую в твоем списке), так что - ошибочка в твоих планах вышла! Иди в "Поиск" (ссылка у меня в подписи), и ищи... По первой программе можешь даже не задавать вопросы - это тебе за то, что нарушаешь Правила Форума... Будут вопросы по остальным пунктам - только при наличии кода... ЗА ТЕБЯ никто ничего делать не будет.

aygul	16.02.2006 0:46 Сообщение #3
Группа: Пользователи Сообщений: 4 Пол: Женский Репутация: 0	да я никогда паскаль не изучала!!!я учусь в 10 классе!у нас вообще информатики не было в старой школе! а вот переехала и в новой школе паскаль!!!а еще сразу с графики!!!!:!help: Я сама его уже начала изучать(всякие mod div)а это я пока не понимаю!!!Помогите пожалуйста!!!:!help:

aygul	18.02.2006 1:35 Сообщение #4
Группа: Пользователи Сообщений: 4 Пол: Женский Репутация: 0	Цитата(volvo @ 15.02.2006 16:27) aygul, а сдать за тебя не надо? А диплом получить? А то ты только скажи... Тебе в поиске конечно копаться не пристало, не царское это дело, да и зачем? Выложить вопросы, прийти через день-другой, уже все готово... Ан НЕТ!!! Вот эту программу я как раз сам делал (первую в твоем списке), так что - ошибочка в твоих планах вышла! Иди в "Поиск" (ссылка у меня в подписи), и ищи... По первой программе можешь даже не задавать вопросы - это тебе за то, что нарушаешь Правила Форума... Будут вопросы по остальным пунктам - только при наличии кода... ЗА ТЕБЯ никто ничего делать не будет. Вот проверьте програмку!!!я вроде что-то сделала! но траетория получилась как плевок против ветра!!! исправьте пожалуйста ошибки!!! Код program Yadro; uses CRT, Graph; const a=32; b=40; var X, Y: real; Z, C,dtype,rnum:integer; XCoord, YCoord: Word; ug: integer; t, v0, v, g: real; begin dtype:=detect; initgraph(dtype,rnum,'e:\tp6\bgi'); {или c:\bp7\bgibin } SetColor(Red); Line(a, b, a, GetMaxY-b); Line(a, GetMaxY-b, GetMaxX-a, GetMaxY-b); SetColor(3); X:=0.0; Y:=0.00001; XCoord:=Round(Xa+a); YCoord:=Round(GetMaxY-Yb-b); MoveTo(XCoord, YCoord); t:=0.1; v0:=10; v:=v0; g:=9.8; ug:=65; while (y>0) and (XCoord<GetMaxX) do begin X:=vcos(ugpi/180)t; { ????????? } Y:=vSin(ugpi/180)t-gsqr(t)/2; v:=-gt+v0; t:=t+0.1; XCoord:=Round(Xa+a); YCoord:=Round(GetMaxY-Yb-b); LineTo(XCoord, YCoord); Circle(XCoord, YCoord,2); MoveTo(XCoord, YCoord); Delay(50000); end; repeat until KeyPressed; end. Сообщение отредактировано: GoodWind - 18.02.2006 1:38

GoodWind	18.02.2006 1:45 Сообщение #5
Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16	ты думаешь от того, что ты запостила свою программу в 2-ух темах, желание искать в ней ошибки резко возрастет ? ты ошибаешься я не буду смотреть из принципа. -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?

Altair	19.02.2006 19:25 Сообщение #6
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45	информативность заголовка. -------------------- Помогая друг другу, мы справимся с любыми трудностями! "Не опускать крылья!" (С)

« Предыдущая тема · Задачи · Следующая тема »

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0