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

Pascal (Паскаль)

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

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

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

Помогите пожалуйста!! Необходимо
Вывести на экран (распечатать) все простые числа от 0 до r
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.11.2009, 00:40     Вывести на экран простые числа
Посмотрите здесь:
Turbo Pascal Вывести на экран монитора все простые числа до заданного числа М
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа. Turbo Pascal
Вывести на экран все простые числа в диапазоне от 2 до N. Pascal
Найти простые числа файла и вывести на экран Pascal ABC
Pascal ABC Вывести на экран все простые числа, меньшие N
Turbo Pascal Вывести на экран все простые числа из данного промежутка
Turbo Pascal While (цикл с предусловием): Вывести на экран все простые числа от 1 до n
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
lexus_ilia
3046 / 922 / 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
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), что не понятного ?
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.
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
3046 / 922 / 34
Регистрация: 24.09.2008
Сообщений: 1,530
06.11.2009, 04:22     Вывести на экран простые числа #9
Цитата Сообщение от System.exe Посмотреть сообщение
Ок?
нет, у Вас тогда нету как минимум обнуления данной переменной, так что присмотритесь к Вашему решению повнимательнее.
Inadequate
Retired
7706 / 2566 / 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     Вывести на экран простые числа
Еще ссылки по теме:
Pascal Найти и вывести на экран все простые числа, не превосходящие 1000.
Turbo Pascal Вывести на экран все простые числа , принадлежащие числовому отрезку от A до B
Pascal ABC Вывести на экран все простые числа из промежутка целых чисел
Дан отрезок [A, B], где A, B – целые положительные числа. Определить, есть ли на отрезке простые числа, и если есть, то вывести их на экран Pascal
Вывести на экран индексы элементов одномерного массива B(N), значения которых простые числа. Turbo Pascal

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

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

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