паскаль.

Discussion in 'Болталка' started by Fouraces, 24 Oct 2009.

  1. Fouraces

    Fouraces New Member

    Joined:
    6 Mar 2009
    Messages:
    8
    Likes Received:
    1
    Reputations:
    0
    Пожалуйста, помогите написать несколько программ:

    1.Найти первые 500 простых чисел и присвоить простым числам номера от 1 до 500. Ввести число от 1 до 500 и программа должна вывести простое число, номером которого является введённое число.

    2.сжатие последовательности из К единиц.
    представить К единиц в виде последовательности чисел от 1 до А так, чтобы суммы членов обоих последовательностей совпадали (были равны К) пример: 1,1,1,1,1 при А=3 может быть преобразована в 1,2,1,1 или 2,3 и тд
    посчитать количество способов сжать заданную последовательность.

    заранее спасибо))
     
  2. Nelzone

    Nelzone Banned

    Joined:
    12 Apr 2008
    Messages:
    172
    Likes Received:
    134
    Reputations:
    6
    Fouraces паскал в прошлом сейчас делфи ....
     
  3. Bpeguha

    Bpeguha Elder - Старейшина

    Joined:
    30 Aug 2008
    Messages:
    0
    Likes Received:
    17
    Reputations:
    1
    Это школьная программа.походу даже ДЗ. наверняка их учился даже в делфи еле разбирается :)
     
  4. Ambassadorik

    Ambassadorik Member

    Joined:
    16 Feb 2009
    Messages:
    0
    Likes Received:
    13
    Reputations:
    0
    Алгаритм на вторую знаю , паскаль не помню...
     
  5. X-RayBlade

    X-RayBlade Banned

    Joined:
    22 Feb 2009
    Messages:
    492
    Likes Received:
    1,002
    Reputations:
    271
    Порядок к первой:
    1. Задаешь массив на 500 элементов
    2. ПРостое число - это число, которое делиться без остатка только на себя и на единицу. => пишешь цикл проверки числа на его простоту
    3. Если число простое - то оно заноситься в массив
    4. Выводишь элемент под номером a;
     
  6. ][yZ

    ][yZ Member

    Joined:
    3 Mar 2009
    Messages:
    66
    Likes Received:
    46
    Reputations:
    10
    /\
    неоптимальный метод решения, решето эратосфена круче))
     
  7. F4R

    F4R Banned

    Joined:
    20 Jun 2008
    Messages:
    224
    Likes Received:
    46
    Reputations:
    2

    по моему в паскале массив максимум на 255 может быть
     
  8. ][yZ

    ][yZ Member

    Joined:
    3 Mar 2009
    Messages:
    66
    Likes Received:
    46
    Reputations:
    10
    гооонишь...
     
  9. X-RayBlade

    X-RayBlade Banned

    Joined:
    22 Feb 2009
    Messages:
    492
    Likes Received:
    1,002
    Reputations:
    271
    O_x
    А integer и longint?
     
  10. dogsdick

    dogsdick Banned

    Joined:
    19 Oct 2009
    Messages:
    2
    Likes Received:
    5
    Reputations:
    0
    паскаль дерьмо
    не юзайте отстойник - переходи на С++
     
  11. fatalo

    fatalo Elder - Старейшина

    Joined:
    15 May 2008
    Messages:
    45
    Likes Received:
    46
    Reputations:
    5
    Я сочувствую тебе.Тебя в детстве не научили читать?
     
  12. А®ТеS

    А®ТеS Active Member

    Joined:
    25 Nov 2006
    Messages:
    198
    Likes Received:
    193
    Reputations:
    41
    Для нахождения простых чисел до 500 можно воспользоваться решетом Аткина. Кстати, работает быстрее, чем решето Эратосфена. Или тупо перебирать для каждого числа возможность их деления на другие. Или же использовать быстре проверки. Но, по-моему, самым реальным для ТС будет составление таблицы-массива и вывод элемента массива. Первые 500 простых чисел можно найти здесь:
    http://ru.wikipedia.org/wiki/Список_простых_чисел