Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

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

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

Пользуйтесь поиском по форуму.
Другие темы раздела
Процедуры и Функции 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
Форумчанин
Регистрация: 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
AdAgent
Объявления
06.11.2009, 00:57   #5
lexus_ilia
Форумчанин
Регистрация: 24.09.2008
Сообщений: 1,527
Репутация: 3012 (683)
Лучшие ответы: 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
Форумчанин
Регистрация: 14.05.2009
Сообщений: 202
Репутация: 88 (84)
Лучшие ответы: 2
вывести на экран простые числа

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

Цитата Сообщение от System.exe Посмотреть сообщение
Ок?
нет, у Вас тогда нету как минимум обнуления данной переменной, так что присмотритесь к Вашему решению повнимательнее.
06.11.2009, 05:31   #10
Inadequate
Retired
Регистрация: 17.10.2009
Сообщений: 5,112
Репутация: 7682 (2576)
Лучшие ответы: 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C++ Дано натуральное число. Вывести на экран все простые числа до заданного числа.
Дано натуральное число. Вывести на экран все простые числа до заданного числа.
С++ для начинающих Proga181 11.01.2013 20:37
C++ Одномерный массив. Вывести на экран все числа, индексы которых есть простые числа.
Нужно вывести на экран все числа заданной последовательности, индексы которых есть простые числа. Определить в заданной последовательности целых чисел количество чисел, которые являются простыми числами.
С++ для начинающих gnom604 27.12.2012 22:26
C++ Вывести на экран все числа заданной последовательности, индексы которых есть простые числа.
Вывести на экран все числа заданной последовательности, индексы которых есть простые числа. Определить в заданной последовательности целых чисел количество чисел, которые являются простыми числами.
С++ для начинающих gnom604 20.12.2012 03:12
Turbo Pascal Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Turbo Pascal Egors 26.04.2012 02:43
C++ Вывести на экран все простые числа
Вывести на экран все простые числа, не превосходящие заданное число М, кроме единицы и самого себя.
С++ для начинающих Xetag 04.12.2010 22:17
Опции темы

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

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