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

Pascal (Паскаль)

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

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

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

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

Вывести на экран индексы элементов одномерного массива B(N), значения которых простые числа. Turbo Pascal
Вывести на экран все простые числа в диапазоне от 2 до N. Pascal
Дан отрезок [A, B], где A, B – целые положительные числа. Определить, есть ли на отрезке простые числа, и если есть, то вывести их на экран Pascal
Turbo Pascal While (цикл с предусловием): Вывести на экран все простые числа от 1 до n
Turbo Pascal Вывести на экран все простые числа , принадлежащие числовому отрезку от A до B
Найти простые числа файла и вывести на экран Pascal ABC
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа. Turbo Pascal
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
lexus_ilia
3045 / 921 / 34
Регистрация: 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
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.
lexus_ilia
3045 / 921 / 34
Регистрация: 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 / 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.
egornefor
1 / 1 / 0
Регистрация: 02.11.2009
Сообщений: 14
06.11.2009, 01:01     Вывести на экран простые числа #7
сори...не посмотрел раздел)
System.exe
90 / 86 / 12
Регистрация: 14.05.2009
Сообщений: 202
06.11.2009, 01:24     Вывести на экран простые числа #8
Извиняюсь небольшая ошибка закралась в мою прогу. Во втором цикле нужно написать if s=0 then ... , вместо if s=i+1. Ок?
lexus_ilia
3045 / 921 / 34
Регистрация: 24.09.2008
Сообщений: 1,530
06.11.2009, 04:22     Вывести на экран простые числа #9
Цитата Сообщение от System.exe Посмотреть сообщение
Ок?
нет, у Вас тогда нету как минимум обнуления данной переменной, так что присмотритесь к Вашему решению повнимательнее.
Inadequate
Retired
7704 / 2564 / 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.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.11.2009, 16:05     Вывести на экран простые числа
Еще ссылки по теме:

Turbo Pascal Вывести на экран все простые числа из данного промежутка
Pascal ABC Вывести на экран все простые числа из промежутка целых чисел
Pascal ABC Вывести на экран все простые числа, меньшие N
Turbo Pascal Вывести на экран монитора все простые числа до заданного числа М
Вывести все простые числа, не превосходящее заданного числа (while/repeat) PascalABC.NET

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

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

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