Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
bital
Новичок
0 / 0 / 0
Регистрация: 24.10.2009
Сообщений: 5
06.11.2009, 00:40     вывести на экран простые числа
  #1
Помогите пожалуйста!! Необходимо
Вывести на экран (распечатать) все простые числа от 0 до r
AdAgent
Объявления
06.11.2009, 00:40
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.11.2009, 00:40

Посмотрите здесь:

Turbo Pascal Вывести на экран индексы элементов одномерного массива B(N), значения которых простые числа.

Pascal Вывести на экран все простые числа в диапазоне от 2 до N.

Pascal Дан отрезок [A, B], где A, B – целые положительные числа. Определить, есть ли на отрезке простые числа, и если есть, то вывести их на экран

Turbo Pascal While (цикл с предусловием): Вывести на экран все простые числа от 1 до n

Turbo Pascal Вывести на экран все простые числа , принадлежащие числовому отрезку от A до B

Turbo Pascal Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.

lexus_ilia
Форумчанин
3021 / 685 / 12
Регистрация: 24.09.2008
Сообщений: 1,530
06.11.2009, 00:46
  #2
Пользуйтесь поиском по форуму.
egornefor
Новичок
1 / 1 / 0
Регистрация: 02.11.2009
Сообщений: 14
06.11.2009, 00:56
  #3
на каком языке?? и то есть до r?
System.exe
Форумчанин
88 / 84 / 2
Регистрация: 14.05.2009
Сообщений: 202
06.11.2009, 00:57
  #4
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var r,i,j,s:integer;
begin
writeln('enter r');
readln(r);
s:=0;
for i:=1 to r do
begin
for j:=1 to i do
s:=s+i mod j;
if s=i+1 then
writeln(i);
else continue
end;
end.
lexus_ilia
Форумчанин
3021 / 685 / 12
Регистрация: 24.09.2008
Сообщений: 1,530
06.11.2009, 00:57
  #5
egornefor, Что значит на каком языке? Вы название раздела видите или нет? До r означает что вводится пользователем число r и идёт проверки всех чисел на то простые они или нет, от 0 до r. Например r=5, то проверяются числа (1,2,3,4,5), что не понятного ?
say
Новичок
18 / 18 / 0
Регистрация: 05.11.2009
Сообщений: 31
06.11.2009, 00:58
  #6
примерно так:

Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var i, j, r : integer;
flag : boolean;
begin
  write("r = ");
  read(r);
  for i := 2 to r do
  begin
  flag := true;
  for j := 2 to < i do
     if (i mod j = 0)
       flag := false;
  if (flag = true)
    write(i, " ");
  end;    
end.
egornefor
Новичок
1 / 1 / 0
Регистрация: 02.11.2009
Сообщений: 14
06.11.2009, 01:01
  #7
сори...не посмотрел раздел)
System.exe
Форумчанин
88 / 84 / 2
Регистрация: 14.05.2009
Сообщений: 202
06.11.2009, 01:24
  #8
Извиняюсь небольшая ошибка закралась в мою прогу. Во втором цикле нужно написать if s=0 then ... , вместо if s=i+1. Ок?
lexus_ilia
Форумчанин
3021 / 685 / 12
Регистрация: 24.09.2008
Сообщений: 1,530
06.11.2009, 04:22
  #9
Цитата Сообщение от System.exe Посмотреть сообщение
Ок?
нет, у Вас тогда нету как минимум обнуления данной переменной, так что присмотритесь к Вашему решению повнимательнее.
Inadequate
Retired
7682 / 2576 / 63
Регистрация: 17.10.2009
Сообщений: 5,112
06.11.2009, 05:31
  #10
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
  i,r:integer;
{функция проверки на простое}
function Simple(x:integer):boolean;
var
  i:integer;
begin
  for i:=2 to x div 2 do
    if x mod i=0 then
    begin
       result:=false;
       exit
    end;
  result:=true;
end;
{основная программа}
begin
  writeln('Введите r:');
  readln(r);
  writeln('Простые:');
  for i:=1 to r do
    if Simple(i) then
      write(i,' ');
  writeln
end.
bital
Новичок
0 / 0 / 0
Регистрация: 24.10.2009
Сообщений: 5
06.11.2009, 16:05  [ТС]     вывести на экран простые числа
  #11
огромное всем спасибо!!!!!!!
Yandex
Объявления
06.11.2009, 16:05
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 12:19. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
X vBulletin 3.8.7 PL3 Debug Information
  • Page Generation 0.27583 seconds
  • Memory Usage 30,773KB
  • Queries Executed 8 (?)
More Information
Template Usage:
  • (1)SHOWTHREAD
  • (1)ad_footer_end
  • (1)ad_footer_start
  • (1)ad_forum_allpages_top
  • (1)ad_forum_description_below
  • (1)ad_header_end
  • (1)ad_header_logo
  • (1)ad_navbar_below
  • (1)ad_showthread_afterqr
  • (1)ad_showthread_beforeqr
  • (1)ad_showthread_firstpost
  • (1)ad_showthread_firstpost_sig
  • (1)ad_showthread_firstpost_start
  • (11)awards_postbit_display_style3
  • (1)blog_navbar_link
  • (1)blog_navbar_link_menu
  • (1)blog_navbar_search
  • (1)comm_css
  • (1)footer
  • (1)forumrules
  • (1)gobutton
  • (1)header
  • (1)headinclude
  • (2)navbar
  • (3)navbar_link
  • (1)option
  • (1)pdp_checkbox
  • (1)post_thanks_javascript
  • (1)post_thanks_navbar_search
  • (11)post_thanks_postbit_info
  • (11)postbit_legacy
  • (11)postbit_onlinestatus
  • (51)postbit_reputation
  • (11)postbit_wrapper
  • (1)spacer_close
  • (1)spacer_open
  • (1)tagbit_wrapper
  • (1)vbfavorites_postbit 

Phrase Groups Available:
  • showthread
Included Files:
  • ./vbseo.php
  • ./vbseo/includes/functions_vbseo.php
  • ./vbseo/includes/functions_vbseo_pre.php
  • ./vbseo/includes/functions_vbseo_url.php
  • ./vbseo/includes/functions_vbseo_createurl.php
  • ./vbseo/includes/functions_vbseo_db.php
  • ./vbseo/includes/functions_vbseo_vb.php
  • ./vbseo/includes/functions_vbseo_seo.php
  • ./vbseo/includes/functions_vbseo_misc.php
  • ./vbseo/includes/functions_vbseo_crr.php
  • ./vbseo/includes/functions_vbseo_cache.php
  • ./vbseo/includes/functions_vbseo_hook.php
  • ./vbseo/includes/functions_vbseo_startup.php
  • ./includes/config.php
  • ./showthread.php
  • ./global.php
  • ./includes/init.php
  • ./includes/class_core.php
  • ./includes/functions.php
  • ./includes/class_datastore.php
  • ./includes/class_hook.php
  • ./hooks/post_thank_you/cache_templates.php
  • ./hooks/yet_another_award_system/cache_templates.php
  • ./krscripts/krnewforumhome/cache_templates.php
  • ./hooks/debug_mode_from_admincp/global_start.php
  • ./krscripts/phdetect/hooks/phishing_detect.php
  • ./includes/functions_seo.php
  • ./includes/adminfunctions.php
  • ./includes/functions_mgc_cb_evo.php
  • ./hooks/one_touch_ban_spam_cleanup/global_start.php
  • ./krscripts/ttstyle/includes/functions_ttstyle.php
  • ./krscripts/stierlitz/hooks/global_start.php
  • ./krscripts/bestanswer/includes/functions_bestanswer.php
  • ./krscripts/krannouncements/global_start.php
  • ./hooks/cyb_sub_forum_manager/parse_templates.php
  • ./hooks/display_unread_posts_and_reputation_comments/parse_templates.php
  • ./hooks/advanced_login_system/global_setup_complete_login.php
  • ./krscripts/krannouncements/global_setup_complete.php
  • ./includes/functions_bigthree.php
  • ./includes/class_postbit.php
  • ./includes/class_bbcode.php
  • ./geshi/geshi.php
  • ./includes/functions_reputation.php
  • ./hooks/threads_notifications/showthread_start.php
  • ./krscripts/bestanswer/hooks/showthread_start.php
  • ./hooks/prevent_doubleposts_mdm/showthread_getinfo.php
  • ./hooks/first_post_on_all_pages/showthread_query.php
  • ./includes/functions_vbanonymizer.php
  • ./includes/adminfunctions_template.php
  • ./includes/functions_misc.php
  • ./includes/functions_post_thanks.php
  • ./scheduledthread.php
  • ./includes/class_xml.php
  • ./krthreadup.php 

Hooks Called:
  • init_startup
  • cache_permissions
  • fetch_threadinfo_query
  • fetch_threadinfo
  • fetch_foruminfo
  • style_fetch
  • cache_templates
  • global_start
  • parse_templates
  • global_setup_complete
  • showthread_start
  • showthread_getinfo
  • showthread_post_start
  • showthread_query_postids
  • showthread_query
  • bbcode_fetch_tags
  • bbcode_create
  • showthread_postbit_create
  • template_groups
  • template_safe_functions
  • template_compile
  • postbit_factory
  • postbit_display_start
  • fetch_musername
  • reputation_image
  • postbit_imicons
  • bbcode_parse_start
  • postbit_display_complete
  • tag_fetchbit_complete
  • forumrules
  • navbits
  • navbits_complete
  • showthread_complete