PDA

Просмотр полной версии : паскаль.

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
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
Порядок к первой:
1. Задаешь массив на 500 элементов
2. ПРостое число - это число, которое делиться без остатка только на себя и на единицу. => пишешь цикл проверки числа на его простоту
3. Если число простое - то оно заноситься в массив
4. Выводишь элемент под номером a[i];
по моему в паскале массив максимум на 255 может быть
][yZ
24.10.2009, 15:21
по моему в паскале массив максимум на 255 может быть
гооонишь...
X-RayBlade
24.10.2009, 16:48
по моему в паскале массив максимум на 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
паскаль дерьмо
не юзайте отстойник - переходи на С++
Я сочувствую тебе.Тебя в детстве не научили читать?
А®ТеS
25.10.2009, 13:17
Для нахождения простых чисел до 500 можно воспользоваться решетом Аткина. Кстати, работает быстрее, чем решето Эратосфена. Или тупо перебирать для каждого числа возможность их деления на другие. Или же использовать быстре проверки. Но, по-моему, самым реальным для ТС будет составление таблицы-массива и вывод элемента массива. Первые 500 простых чисел можно найти здесь:
http://ru.wikipedia.org/wiki/Список_простых_чисел