Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   паскаль. (https://forum.antichat.xyz/showthread.php?t=150671)

Fouraces 24.10.2009 00:28

паскаль.
 
Пожалуйста, помогите написать несколько программ:

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

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

заранее спасибо))

Nelzone 24.10.2009 00:37

Fouraces паскал в прошлом сейчас делфи ....

Bpeguha 24.10.2009 00:39

Цитата:

Сообщение от Nelzone
Fouraces паскал в прошлом сейчас делфи ....

Это школьная программа.походу даже ДЗ. наверняка их учился даже в делфи еле разбирается :)

Ambassadorik 24.10.2009 02:38

Алгаритм на вторую знаю , паскаль не помню...

X-RayBlade 24.10.2009 11:40

Порядок к первой:
1. Задаешь массив на 500 элементов
2. ПРостое число - это число, которое делиться без остатка только на себя и на единицу. => пишешь цикл проверки числа на его простоту
3. Если число простое - то оно заноситься в массив
4. Выводишь элемент под номером a[i];

][yZ 24.10.2009 11:41

/\
неоптимальный метод решения, решето эратосфена круче))

F4R 24.10.2009 14:24

Цитата:

Сообщение от X-RayBlade
Порядок к первой:
1. Задаешь массив на 500 элементов
2. ПРостое число - это число, которое делиться без остатка только на себя и на единицу. => пишешь цикл проверки числа на его простоту
3. Если число простое - то оно заноситься в массив
4. Выводишь элемент под номером a[i];

по моему в паскале массив максимум на 255 может быть

][yZ 24.10.2009 15:21

Цитата:

Сообщение от F4R
по моему в паскале массив максимум на 255 может быть

гооонишь...

X-RayBlade 24.10.2009 16:48

Цитата:

Сообщение от F4R
по моему в паскале массив максимум на 255 может быть

O_x
А integer и longint?

rushter 24.10.2009 16:56

Цитата:

for i:=1 to 50000 do begin
s:=0;
for ii:=2 to i do begin
if i mod ii=0 then s:=s+1;
end;
if s>0 then writeln(i);
end;end.
Как то так,паскаль не помню.

dogsdick 24.10.2009 20:33

паскаль дерьмо
не юзайте отстойник - переходи на С++

fatalo 24.10.2009 21:07

Цитата:

Сообщение от dogsdick
паскаль дерьмо
не юзайте отстойник - переходи на С++

Я сочувствую тебе.Тебя в детстве не научили читать?

А®ТеS 25.10.2009 13:17

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


Время: 21:08