 Помогите написать программу на экзамен. |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| armoured |
  28.06.2010 10:57
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Реальное имя: Альберт Репутация:  0   |
расчитать время через которое необходимо выпустить снаряд (под углом) чтоб попасть в пролетающий со строго определенной скоростью на строго определенной высоте самолет.Смоделировать модель. Сам попытался сделать за самолет и снаряд взял 2 шарика, а время до выпуска снаряда не знаю как расчитать. Можно ли сделать секундомер который будет включатся в начале запуска программы и останавливаться во время запуская снаряда(второго шарика)?
program exp;
Uses crt,Graph;
var x1,y1,y,x,Device,Mode,gd :integer;
begin
Device:=0;
Gd:= Detect;
InitGraph (Device,Mode,'c:\bp\bgi');
Readln;
y:=110;
x:=40;
y1:=400;
x1:=230;
repeat
repeat
Repeat
Repeat
Setcolor(White);
Circle(x,110,14);
delay(5000);
Setcolor(Black);
Circle(x,110,14);
delay(1000);
x:=x+2;
until x>130;
Setcolor(4);
Circle(x1,y1,5);
Setcolor(Black);
delay(5000);
Circle(x1,y1,5);
delay(2000);
x1:=x1+1;
y1:=y1-3;
until y1<110;
delay(1000);
until x>230;
until keypressed;
end.
Сообщение отредактировано: armoured - 28.06.2010 11:01 |
   |
 
|
| Lapp |
28.06.2010 11:37
Сообщение
#2
|
 Уникум  Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Цитата(armoured @ 28.06.2010 11:57)  время до выпуска снаряда не знаю как расчитать. Можно ли сделать секундомер который будет включатся в начале запуска программы и останавливаться во время запуская снаряда(второго шарика)? armoured, если делать по-человечески, то нужно ввести все физические величины и все рассчитывать по физическим формулам. И сделать функции для пересчета физических координат в экранные. Момент стрельбы найдется из системы уравнений: Xсамолета + Vсамолета*t = Xпушки + Vснаряда*cos(a)*(t-tвыстрела) Vснаряда*sin(a)*(t-tвыстрела) = Hсамолета Тут Xсамолета - жто начальное положение самолета, все остальное вроде и так понятно.. Неизвестные величины - t и tвыстрела. Решаешь систему и нажодишь все. Графика - как я уже сказал - через проекцию физических координат в экранные. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 17.07.2025 20:51 |