Форум программистов, компьютерный форум CyberForum.ru
С Днём Победы!
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
bital
0 / 0 / 0
Регистрация: 24.10.2009
Сообщений: 5
06.11.2009, 00:40     вывести на экран простые числа #1
Помогите пожалуйста!! Необходимо
Вывести на экран (распечатать) все простые числа от 0 до r
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
3040 / 915 / 33
Регистрация: 24.09.2008
Сообщений: 1,534
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
89 / 85 / 6
Регистрация: 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
3040 / 915 / 33
Регистрация: 24.09.2008
Сообщений: 1,534
06.11.2009, 00:57     вывести на экран простые числа #5
egornefor, Что значит на каком языке? Вы название раздела видите или нет? До r означает что вводится пользователем число r и идёт проверки всех чисел на то простые они или нет, от 0 до r. Например r=5, то проверяются числа (1,2,3,4,5), что не понятного ?
say
18 / 18 / 2
Регистрация: 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
89 / 85 / 6
Регистрация: 14.05.2009
Сообщений: 202
06.11.2009, 01:24     вывести на экран простые числа #8
Извиняюсь небольшая ошибка закралась в мою прогу. Во втором цикле нужно написать if s=0 then ... , вместо if s=i+1. Ок?
lexus_ilia
 Аватар для lexus_ilia
3040 / 915 / 33
Регистрация: 24.09.2008
Сообщений: 1,534
06.11.2009, 04:22     вывести на экран простые числа #9
Цитата Сообщение от System.exe Посмотреть сообщение
Ок?
нет, у Вас тогда нету как минимум обнуления данной переменной, так что присмотритесь к Вашему решению повнимательнее.
Inadequate
Retired
7697 / 2557 / 133
Регистрация: 17.10.2009
Сообщений: 5,110
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     вывести на экран простые числа
Ответ Создать тему
Опции темы

Текущее время: 12:55. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru