Форум программистов, компьютерный форум 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
lexus_ilia
Форумчанин
3023 / 687 / 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
Форумчанин
3023 / 687 / 12
Регистрация: 24.09.2008
Сообщений: 1,530
06.11.2009, 00:57     вывести на экран простые числа   #5
egornefor, Что значит на каком языке? Вы название раздела видите или нет? До r означает что вводится пользователем число r и идёт проверки всех чисел на то простые они или нет, от 0 до r. Например r=5, то проверяются числа (1,2,3,4,5), что не понятного ?
AdAgent
Объявления
06.11.2009, 00:57     вывести на экран простые числа
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
Форумчанин
3023 / 687 / 12
Регистрация: 24.09.2008
Сообщений: 1,530
06.11.2009, 04:22     вывести на экран простые числа   #9
Цитата Сообщение от System.exe Посмотреть сообщение
Ок?
нет, у Вас тогда нету как минимум обнуления данной переменной, так что присмотритесь к Вашему решению повнимательнее.
Inadequate
Retired
7684 / 2578 / 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     вывести на экран простые числа
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

Текущее время: 02:39. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
Яндекс.Метрика