Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 06.11.2009, 00:40   #1
bital
Новичок
 
Регистрация: 24.10.2009
Сообщений: 5
Репутация: 0 (0)
вывести на экран простые числа / Pascal (Паскаль)

Помогите пожалуйста!! Необходимо
Вывести на экран (распечатать) все простые числа от 0 до r
Старый 06.11.2009, 00:46   #2
lexus_ilia
Форумчанин
 
Аватар для lexus_ilia
 
Регистрация: 24.09.2008
Сообщений: 1,521
Репутация: 2969 (679)
Лучшие ответы: 12
вывести на экран простые числа

Пользуйтесь поиском по форуму.
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь студентам и школьникам в решении задач.
Процедуры и Функции Pascal
Даны два слова. Составьте программу, определяющую можно или нет из букв слова А составить слово В. Осуществить с применением процедур и/или функций.
Pascal Перевод из одной системы счисления в другую
Дали задание: написать программу для перевода из одной системы счисления в другую. Системы счисления задаются с клавиатуры. Т.е. Программа спрашивает В какой системе будет число. Пишу "2" Программа "введите число в двоичной системе" Ввожу число. Программа спрашивает "В какую систему будем...
Старый 06.11.2009, 00:56   #3
egornefor
Новичок
 
Регистрация: 02.11.2009
Сообщений: 14
Репутация: 1 (1)
вывести на экран простые числа

на каком языке?? и то есть до r?
Старый 06.11.2009, 00:57   #4
System.exe
Форумчанин
 
Аватар для System.exe
 
Регистрация: 14.05.2009
Сообщений: 202
Репутация: 88 (84)
Лучшие ответы: 2
вывести на экран простые числа

Код 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.
Старый 06.11.2009, 00:57
Google
Объявления
Старый 06.11.2009, 00:57   #5
lexus_ilia
Форумчанин
 
Аватар для lexus_ilia
 
Регистрация: 24.09.2008
Сообщений: 1,521
Репутация: 2969 (679)
Лучшие ответы: 12
вывести на экран простые числа

egornefor, Что значит на каком языке? Вы название раздела видите или нет? До r означает что вводится пользователем число r и идёт проверки всех чисел на то простые они или нет, от 0 до r. Например r=5, то проверяются числа (1,2,3,4,5), что не понятного ?
Старый 06.11.2009, 00:58   #6
say
Новичок
 
Регистрация: 05.11.2009
Сообщений: 31
Репутация: 18 (18)
вывести на экран простые числа

примерно так:

Код 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.
Старый 06.11.2009, 01:01   #7
egornefor
Новичок
 
Регистрация: 02.11.2009
Сообщений: 14
Репутация: 1 (1)
вывести на экран простые числа

сори...не посмотрел раздел)
Старый 06.11.2009, 01:24   #8
System.exe
Форумчанин
 
Аватар для System.exe
 
Регистрация: 14.05.2009
Сообщений: 202
Репутация: 88 (84)
Лучшие ответы: 2
вывести на экран простые числа

Извиняюсь небольшая ошибка закралась в мою прогу. Во втором цикле нужно написать if s=0 then ... , вместо if s=i+1. Ок?
Старый 06.11.2009, 04:22   #9
lexus_ilia
Форумчанин
 
Аватар для lexus_ilia
 
Регистрация: 24.09.2008
Сообщений: 1,521
Репутация: 2969 (679)
Лучшие ответы: 12
вывести на экран простые числа

Цитата Сообщение от System.exe Посмотреть сообщение
Ок?
нет, у Вас тогда нету как минимум обнуления данной переменной, так что присмотритесь к Вашему решению повнимательнее.
Старый 06.11.2009, 05:31   #10
Inadequate
Retired
 
Регистрация: 17.10.2009
Сообщений: 5,112
Репутация: 7678 (2572)
Лучшие ответы: 63
вывести на экран простые числа / Pascal (Паскаль)

Код 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.
Старый 06.11.2009, 05:31
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Turbo Pascal Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Egors
Turbo Pascal Вывести на экран все простые числа , принадлежащие числовому отрезку от A до B
Вывести на экран все простые числа , принадлежащие числовому отрезку от A до B
demihs
Turbo Pascal While (цикл с предусловием): Вывести на экран все простые числа от 1 до n
Составить программу с использованием цикла While (цикл с предусловием), которая является решением данной задачи.>>> Вывести на экран все простые числа от 1 до n.(Число является простым, если оно делится только на себя и на единицу, например, простыми числами являются числа 3,5,7...). ...
roven
С++ для начинающих Вывести на экран все простые числа
Вывести на экран все простые числа, не превосходящие заданное число М, кроме единицы и самого себя.
Xetag
Pascal (Паскаль) Вывести на экран все простые числа в диапазоне от 2 до N.
Здравствуйте,уважаемые форумчане! Обращаюсь к вам с просьбой помочь) Просто в информатике,особенно в программировании я - дуб дубом :D А для галочки выполнение этой задачи обязательно...А то двойка грозит)) Итак, ещё раз: Вывести на экран все простые числа в диапазоне от 2 до N....
Walking Rainbow
Опции темы

Текущее время: 07:19. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.