Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail



Ответ
 
Опции темы
Старый 13.12.2017, 17:25   #1
С.Т.У.Д.Е.Н.Т
Новичок
 
Регистрация: 13.12.2017
Сообщений: 3
Репутация: 10
По умолчанию Надо вывести на экран простые числа от 1 до N, используя три типа циклов.

Есть задача.
Надо вывести на экран простые числа от 1 до N, используя три типа циклов. Я смог использовать только For i to n dо. Пожалуйста, объясните, как применить остальные два.
С.Т.У.Д.Е.Н.Т вне форума   Ответить с цитированием
Старый 13.12.2017, 17:31   #2
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 10,521
Репутация: 1681

icq: 216409213
По умолчанию

Циклы легко взаимозаменяются. Например, для вайла выносим инициализацию, проверку оставляем и в конце дописываем инкремент.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Старый 13.12.2017, 17:32   #3
С.Т.У.Д.Е.Н.Т
Новичок
 
Регистрация: 13.12.2017
Сообщений: 3
Репутация: 10
По умолчанию

Я еще совсем новичок, поэтому можно немного попроще?
С.Т.У.Д.Е.Н.Т вне форума   Ответить с цитированием
Старый 13.12.2017, 17:42   #4
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 10,521
Репутация: 1681

icq: 216409213
По умолчанию

Куда еще проще. Прочитайте главу про циклы хотя бы.
for i = 1 to n do эквивалентно i = 1 while i <= n Inc(i)
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Старый 13.12.2017, 17:51   #5
С.Т.У.Д.Е.Н.Т
Новичок
 
Регистрация: 13.12.2017
Сообщений: 3
Репутация: 10
По умолчанию

Спасибо
С.Т.У.Д.Е.Н.Т вне форума   Ответить с цитированием
Старый 13.12.2017, 17:54   #6
саша40
Профессионал
 
Регистрация: 12.09.2012
Сообщений: 1,015
Репутация: -35
По умолчанию

Три вида цикла - это:
Код:

While <условие> do 
begin
<код программы> 
end;

Код:

For <переменная счётчик>:<начальное значение> to <конечное значение> do 
begin
<код программы> 
end;

и
Код:

Repeat 
<код программы>
Until <условие>;

Основные виды циклов. While Do выполняет код программы в нём, пока условие, заданное в конструкции будет верным(действительным, правильным). For To Do - это цикл со счётчиком. Обычно это переменная типа Integer. Смысл такой - цикл выполнил код программы и по окончанию увеличил переменную на 1(Есть дополнительные конструкции в цикл, позволяющие увеличить или уменьшить шаг цикла, и даже сделать его на уменьшение. Такие конструкции уже давно общеизвестны и их не составляет особого труда найти в поисковике). Последний Repeat Until - это цикл, практически обратный While Do, только разница в том, что он сначала выполнит код программы, а потом проверит условие, и если оно действительно, то повторит код программы ещё раз.
Вопросы ещё есть?
__________________
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума   Ответить с цитированием
Старый 13.12.2017, 18:10   #7
Sciv
Профессионал
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Адрес: Курган
Сообщений: 3,102
Репутация: 1172
По умолчанию

Цитата:
Сообщение от саша40 Посмотреть сообщение
Три вида цикла - это:
Садись, три.
__________________
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума   Ответить с цитированием
Старый 13.12.2017, 18:13   #8
Aleksandr H.
2 the Nation Glory
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 2,140
Репутация: 813

skype: aleksandr.gryb
По умолчанию

Цитата:
Сообщение от С.Т.У.Д.Е.Н.Т Посмотреть сообщение
используя три типа циклов
Цитата:
Сообщение от саша40 Посмотреть сообщение
Три вида цикла - это:
Цитата:
Сообщение от Sciv Посмотреть сообщение
Садись, три.
А че так?
__________________
Mailto: media.project@ukr.net
"спасибо" принимаются на webmoney: R676842461689, Z243088649038, U164738001305; AdvancedCash: U853633661253, E181662999107; ПриватБанк.UA
Aleksandr H. вне форума   Ответить с цитированием
Старый 13.12.2017, 18:58   #9
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 23,021
Репутация: 5118
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
А че так?
ну, например, за грубую ошибку:
Цитата:
Сообщение от саша40 Посмотреть сообщение
Последний Repeat Until - это цикл, практически обратный While Do, только разница в том, что он сначала выполнит код программы, а потом проверит условие, и если оно действительно, то повторит код программы ещё раз.
цикл repeat until (как это и следует из перевода с английского) выполняется пока условие не станет истинным: цикл выполняется, пока условие ложно, как только условие выполнилось - выходит из цикла.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 17.12.2017, 09:00   #10
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,628
Репутация: 1463

skype: newerow1989
По умолчанию

Код:

function Simple(n:integer):boolean;
var i:integer;
begin
   Result:=false;
   If n<2 then
      Exit;
   For i:=2 to Trunc(Sqrt(n)) do
      If n mod i=0 then
         Exit;
   Result:=true;
end;

var i,n:integer;
begin
   Write('n = '); Readln(n);
   For i:=1 to n do
      If Simple(i) then
         Writeln(i);
   Writeln;
   i:=0;
   Repeat
      i:=i+1;
      If Simple(i) then
         Writeln(i);
   Until i>=n;
   Writeln;
   i:=0;
   While i<n do
   begin
      i:=i+1;
      If Simple(i) then
         Writeln(i);
   end;
   Readln;
end.

__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести на экран 1 или 0 в зависимости от того, имеют три заданных целых числа одинаковую четность или нет. Delphi. Проверить задачу на ошибки student_23 Помощь студентам 3 27.01.2017 10:45
Программка Delphi - надо вывести в строку все простые натуральные числа, которые меньше задаваемого трехзначного N Наталья30111992 Помощь студентам 1 30.10.2013 07:16
Вывести на экран все простые числа, не превосходящие заданное число М - Паскаль bibek13 Помощь студентам 4 06.12.2011 08:17
Даны три числа a,b и с. Если все они ненулевые вывести их на экран в порядке возростания 1znar Паскаль 1 07.07.2011 18:41




23:53.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
лучший хостинг
Выбираем лучший хостинг: рейтинг ТОП 10