Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2013, 14:09   #1
Маруся171996
Пользователь
 
Регистрация: 22.11.2013
Сообщений: 11
По умолчанию Мишень

Математическими объектами очерчивается область (мишень) D. Генерируя случайными числами координаты точки М (х, у), подсчитать в процентах количество попаданий в мишень. Подсчет закончить, когда встретится точка М (х0, у0) или осуществиться равно н (н - константа) попыток. Предусмотреть вывод на печать протокола выстрелов. Помогите пожалуйста
Изображения
Тип файла: jpg 131121-193716.jpg (16.1 Кб, 135 просмотров)
Маруся171996 вне форума Ответить с цитированием
Старый 23.11.2013, 14:22   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,551
По умолчанию

Чем же помочь? Написать программу за вас? Это уже не помощь, а работа, такое в разделе Фриланс быстренько сделают.
Arigato вне форума Ответить с цитированием
Старый 23.11.2013, 15:31   #3
Маруся171996
Пользователь
 
Регистрация: 22.11.2013
Сообщений: 11
По умолчанию

Ну пожалуйста помогите программу написать,я не разбираюсь в Pascal. Пожалуйста
Маруся171996 вне форума Ответить с цитированием
Старый 23.11.2013, 15:52   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
пожалуйста помогите программу написать,я не разбираюсь в Pascal.
Контакты в подписи - обращайтесь обязательно договоримся
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 23.11.2013, 16:06   #5
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,499
По умолчанию

Хорошо, чуть-чуть помогу. Вот, выстрелы. Остальное сами.
Код:
var x,y:Double;
begin
 Randomize;  // случайнизация
// далее в цикле - выстрелы, проверка попадания, подсчет 
 	
 x:=2*Random-1;  // выстрел, случ. коорд X  от -1 до 1
 y:=2*Random-1;	 //  --''-- Y    от -1 до 1
//  и т.д. 
	
end.
type_Oleg вне форума Ответить с цитированием
Старый 23.11.2013, 23:03   #6
Маруся171996
Пользователь
 
Регистрация: 22.11.2013
Сообщений: 11
По умолчанию

спасибо большое
Маруся171996 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверить, попадают ли заданные массивом X,Y координаты выстрелов в мишень (Turbo Pascal) Андрей П. Помощь студентам 0 20.05.2011 16:02