Форум программистов, компьютерный форум 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     вывести на экран простые числа
Посмотрите здесь:

Вывести на экран все простые числа в диапазоне от 2 до N. Pascal
Turbo Pascal While (цикл с предусловием): Вывести на экран все простые числа от 1 до n
Turbo Pascal Вывести на экран все простые числа , принадлежащие числовому отрезку от A до B
Найти простые числа файла и вывести на экран Pascal ABC
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа. Turbo Pascal
lexus_ilia
Форумчанин
 Аватар для lexus_ilia
3035 / 910 / 17
Регистрация: 24.09.2008
Сообщений: 1,531
06.11.2009, 00:46     вывести на экран простые числа #2
Пользуйтесь поиском по форуму.
egornefor
Новичок
1 / 1 / 0
Регистрация: 02.11.2009
Сообщений: 14
06.11.2009, 00:56     вывести на экран простые числа #3
на каком языке?? и то есть до r?
System.exe
Форумчанин
 Аватар для 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
Форумчанин
 Аватар для lexus_ilia
3035 / 910 / 17
Регистрация: 24.09.2008
Сообщений: 1,531
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
Форумчанин
 Аватар для 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
Форумчанин
 Аватар для lexus_ilia
3035 / 910 / 17
Регистрация: 24.09.2008
Сообщений: 1,531
06.11.2009, 04:22     вывести на экран простые числа #9
Цитата Сообщение от System.exe Посмотреть сообщение
Ок?
нет, у Вас тогда нету как минимум обнуления данной переменной, так что присмотритесь к Вашему решению повнимательнее.
Inadequate
Retired
7690 / 2550 / 99
Регистрация: 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.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.11.2009, 16:05     вывести на экран простые числа
Еще ссылки по теме:

Turbo Pascal Вывести на экран все простые числа из данного промежутка
Pascal ABC Вывести на экран все простые числа из промежутка целых чисел
Pascal ABC Вывести на экран все простые числа, меньшие N

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
bital
Новичок
0 / 0 / 0
Регистрация: 24.10.2009
Сообщений: 5
06.11.2009, 16:05  [ТС]     вывести на экран простые числа #11
огромное всем спасибо!!!!!!!
Yandex
Объявления
06.11.2009, 16:05     вывести на экран простые числа
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Задать вопрос
Опции темы

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