Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 104, средняя оценка - 4.88
bital
0 / 0 / 0
Регистрация: 24.10.2009
Сообщений: 5
#1

Вывести на экран простые числа - Pascal

06.11.2009, 00:40. Просмотров 15712. Ответов 10
Метки нет (Все метки)

Помогите пожалуйста!! Необходимо
Вывести на экран (распечатать) все простые числа от 0 до r
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.11.2009, 00:40
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывести на экран простые числа (Pascal):

Вывести на экран все простые числа в диапазоне от 2 до N. - Pascal
Здравствуйте,уважаемые форумчане! Обращаюсь к вам с просьбой помочь) Просто в информатике,особенно в программировании я - дуб дубом :D ...

Найти и вывести на экран все простые числа, не превосходящие 1000. - Pascal
а) составить блок-схему алгоритма решения; б) написать реализующую алгоритм программу на языке Pascal Найти и вывести на экран...

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

Вывести все простые числа от 1 до 50 - Pascal
1)вывести все простые числа от 1 до 50 2)найти сумму цифр числа с помощью рекурсии

Вывести все простые числа... - Pascal
Добрый день помогите написать программу...задали по информатике а я по этой теме 0. Вывести все просты числа от 2 до 100 на паскале.

блок-схема к программе, которая выводит на экран простые числа - Pascal
Не могли бы вы помочь составить блок-схему к программе, которая выводит на экран простые числа<=1000. Спасибо. program...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
lexus_ilia
3046 / 922 / 34
Регистрация: 24.09.2008
Сообщений: 1,530
06.11.2009, 00:46 #2
Пользуйтесь поиском по форуму.
0
egornefor
1 / 1 / 0
Регистрация: 02.11.2009
Сообщений: 14
06.11.2009, 00:56 #3
на каком языке?? и то есть до r?
0
System.exe
90 / 86 / 12
Регистрация: 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.
0
lexus_ilia
3046 / 922 / 34
Регистрация: 24.09.2008
Сообщений: 1,530
06.11.2009, 00:57 #5
egornefor, Что значит на каком языке? Вы название раздела видите или нет? До r означает что вводится пользователем число r и идёт проверки всех чисел на то простые они или нет, от 0 до r. Например r=5, то проверяются числа (1,2,3,4,5), что не понятного ?
0
say
19 / 19 / 4
Регистрация: 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.
0
egornefor
1 / 1 / 0
Регистрация: 02.11.2009
Сообщений: 14
06.11.2009, 01:01 #7
сори...не посмотрел раздел)
0
System.exe
90 / 86 / 12
Регистрация: 14.05.2009
Сообщений: 202
06.11.2009, 01:24 #8
Извиняюсь небольшая ошибка закралась в мою прогу. Во втором цикле нужно написать if s=0 then ... , вместо if s=i+1. Ок?
0
lexus_ilia
3046 / 922 / 34
Регистрация: 24.09.2008
Сообщений: 1,530
06.11.2009, 04:22 #9
Цитата Сообщение от System.exe Посмотреть сообщение
Ок?
нет, у Вас тогда нету как минимум обнуления данной переменной, так что присмотритесь к Вашему решению повнимательнее.
0
Inadequate
Retired
7706 / 2539 / 183
Регистрация: 17.10.2009
Сообщений: 5,106
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.
1
bital
0 / 0 / 0
Регистрация: 24.10.2009
Сообщений: 5
06.11.2009, 16:05  [ТС] #11
огромное всем спасибо!!!!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.11.2009, 16:05
Привет! Вот еще темы с ответами:

Вывести все простые числа от 0 до 100 - Pascal
Вывести все простые числа от 0 до 100

Вывести все простые делители числа. - Pascal
Дали задачу не знаю как решать.Дано число n.Вывести все его простые делители.

Вывести все простые числа, меньшие n - Pascal
Дано натуральное число n. Составить программу, для вывода на экран всех простых чисел меньших n. Для определения, является ли число...

Составить программу, которая находит с выводит на экран все простые числа в диапазоне [3; n] - Pascal
Дано натуральное число n &gt; 3. Составить программу, которая находит с выводит на экран все простые числа в диапазоне .


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
06.11.2009, 16:05
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru