ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Оффтоп > Болталка
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

паскаль.
  #1  
Старый 24.10.2009, 00:28
Fouraces
Новичок
Регистрация: 06.03.2009
Сообщений: 8
Провел на форуме:
55587

Репутация: 2
По умолчанию паскаль.

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

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

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

заранее спасибо))
 
Ответить с цитированием

  #2  
Старый 24.10.2009, 00:37
Nelzone
Постоянный
Регистрация: 12.04.2008
Сообщений: 403
Провел на форуме:
4700216

Репутация: 261
По умолчанию

Fouraces паскал в прошлом сейчас делфи ....
 
Ответить с цитированием

  #3  
Старый 24.10.2009, 00:39
Bpeguha
Познающий
Регистрация: 30.08.2008
Сообщений: 80
Провел на форуме:
870013

Репутация: 26
Отправить сообщение для Bpeguha с помощью ICQ Отправить сообщение для Bpeguha с помощью MSN
По умолчанию

Цитата:
Сообщение от Nelzone  
Fouraces паскал в прошлом сейчас делфи ....
Это школьная программа.походу даже ДЗ. наверняка их учился даже в делфи еле разбирается
 
Ответить с цитированием

  #4  
Старый 24.10.2009, 02:38
Ambassadorik
Новичок
Регистрация: 16.02.2009
Сообщений: 14
Провел на форуме:
205599

Репутация: 38
Отправить сообщение для Ambassadorik с помощью ICQ
По умолчанию

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

  #5  
Старый 24.10.2009, 11:40
X-RayBlade
Познавший АНТИЧАТ
Регистрация: 22.02.2009
Сообщений: 1,888
Провел на форуме:
6757783

Репутация: 3293


Отправить сообщение для X-RayBlade с помощью ICQ
По умолчанию

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

  #6  
Старый 24.10.2009, 11:41
][yZ
Познающий
Регистрация: 03.03.2009
Сообщений: 62
Провел на форуме:
1776253

Репутация: 106
По умолчанию

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

  #7  
Старый 24.10.2009, 14:24
F4R
Banned
Регистрация: 20.06.2008
Сообщений: 296
Провел на форуме:
1385078

Репутация: 126
Отправить сообщение для F4R с помощью ICQ
По умолчанию

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

  #8  
Старый 24.10.2009, 15:21
][yZ
Познающий
Регистрация: 03.03.2009
Сообщений: 62
Провел на форуме:
1776253

Репутация: 106
По умолчанию

Цитата:
Сообщение от F4R  
по моему в паскале массив максимум на 255 может быть
гооонишь...
 
Ответить с цитированием

  #9  
Старый 24.10.2009, 16:48
X-RayBlade
Познавший АНТИЧАТ
Регистрация: 22.02.2009
Сообщений: 1,888
Провел на форуме:
6757783

Репутация: 3293


Отправить сообщение для X-RayBlade с помощью ICQ
По умолчанию

Цитата:
Сообщение от F4R  
по моему в паскале массив максимум на 255 может быть
O_x
А integer и longint?
 
Ответить с цитированием

  #10  
Старый 24.10.2009, 16:56
rushter
Reservists Of Antichat - Level 6
Регистрация: 23.05.2008
Сообщений: 756
Провел на форуме:
9257858

Репутация: 979


Отправить сообщение для rushter с помощью ICQ
По умолчанию

Цитата:
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.
Как то так,паскаль не помню.
__________________
Blog
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по паскаль toross Болталка 17 17.05.2009 14:13
ВОПРОС ПО ПАСКАЛЬ toross С/С++, C#, Delphi, .NET, Asm 3 16.05.2009 15:15
Паскаль на висту. SHAXID С/С++, C#, Delphi, .NET, Asm 2 10.04.2009 21:11
Посоветуйте (паскаль) FALTONICK Болталка 8 25.03.2009 12:27
двойные массивы ( турбо паскаль ) dimhee Болталка 4 28.12.2008 23:32



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


Быстрый переход




ANTICHAT.XYZ