Важная информация
Показано с 1 по 6 из 6

Тема: помогите с программой

  1. #1 помогите с программой 
    Новичок
    Регистрация
    11.06.2013
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Задана випадкова множина точок в просторі та куля заданого радіуса.
    Підрахувати кількість точок які знаходяться всередині цієї кулі


    помогите пожалуйста
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для stabud
    Регистрация
    05.01.2013
    Сообщений
    768
    Сказал(а) спасибо
    319
    Поблагодарили 339 раз(а) в 268 сообщениях
    Записей в блоге
    6
    Код :
    Randomize Timer
    Screenres 640,480
     
    Type K
    	As Integer ix,iy
    End Type
     
    Dim As Integer iRndPoints, iCount, iRadius, iCenterX ,iCenterY
     
    Input "Enter Max Points: ",iRndPoints
     
    iRndPoints = Rnd*iRndPoints
     
    Print "Points=";iRndPoints
     
    Input "Enter the coordinates center circle: ",iCenterX ,iCenterY
    Input "Enter the radius: ",iRadius
    Cls
    Circle (iCenterX ,iCenterY),iRadius,4
     
    ReDim mPoints(iRndPoints) As K
     
    For i As Integer = 0 To iRndPoints
       mPoints(i).ix = Rnd*640
       mPoints(i).iy = Rnd*480
       PSet (mPoints(i).ix,mPoints(i).iy),15
    Next
     
    For i As Integer = 0 To iRndPoints
    	if (mPoints(i).ix-iCenterX)^2+ (mPoints(i).iy-iCenterY)^2 <= iRadius^2 then 
    		iCount+=1
    	EndIf
    Next
     
    Print "Count Points = "; iCount
    Sleep
    Последний раз редактировалось stabud; 11.06.2013 в 20:14.
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    >Quiet Snow< (11.06.2013)

  4. #3  
    Новичок
    Регистрация
    11.06.2013
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    спасибо.но разве это QBasic?
    Ответить с цитированием  
     

  5. #4  
    Новичок
    Регистрация
    11.06.2013
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    CLS
    10 INPUT "vvedit kilkist tochok N=", n
    IF n < 4 OR n > 1000 THEN 10
    IF n <> INT(n) THEN 10
    xmin = 0
    xmax = 1000
    ymin = 0
    ymax = 1000
    DIM x(1 TO n)
    DIM y(1 TO n)
    RANDOMIZE TIMER
    SCREEN 12
    VIEW (20, 20)-(460, 460), , 2
    WINDOW (xmin, ymin)-(xmax, ymax)
    FOR i = 1 TO n
    x(i) = INT(xmin + RND * (xmax - xmin))
    y(i) = INT(ymin + RND * (ymax - ymin))
    PSET (x(i), y(i))
    NEXT

    VIEW (20, 20)-(460, 460), , 3
    WINDOW (xmin, ymin)-(xmax, ymax)
    FOR i = 1 TO n
    CIRCLE (500, 500), 200, 4

    x(i) = INT(xmin + RND * (xmax - xmin))
    y(i) = INT(ymin + RND * (xmax - ymin))
    PSET (x(i), y(i))
    DIM r AS DOUBLE, x AS LONG, y AS LONG, n AS LONG
    NEXT
    LINE (xmin, ymax)-(xmax, ymin), 5
    LINE (xmin, ymin)-(xmax, ymax), 5
    Ответить с цитированием  
     

  6. #5  
    Новичок
    Регистрация
    11.06.2013
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    вот что у меня получилось мне руководитель посоветовал зделать цыкл,тоисть задать точку в круге и точку за кругом
    и дал вот такой цыкл
    IF L(i) <R THEN K=K+1
    а как єто сделать я беспонятия
    Ответить с цитированием  
     

  7. #6  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,846
    Сказал(а) спасибо
    1,815
    Поблагодарили 945 раз(а) в 807 сообщениях
    Записей в блоге
    1
    Задана випадкова множина точок в просторі та куля заданого радіуса.
    Підрахувати кількість точок які знаходяться всередині цієї кулі
    Форум русский вообще-то...

    но разве это QBasic?
    Вы зашли в раздел FreeBasic, что попросили - то вам и сделали.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  8. Пользователь сказал cпасибо:

    stabud (12.06.2013)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Помогите с программой пожалуйста
    от shemekeev в разделе Visual Basic
    Ответов: 3
    Последнее сообщение: 18.04.2012, 18:11
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •