Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Оператор цикла с условием 
V
    Опции темы
matrixanton
Дата 2.4.2008, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 60
Регистрация: 28.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: -1
Здравствуйте!

Помогите пожалуйста составить 2 программы:

1) Найти 20 первых натуральных чисел, делящихся на 13 или на 17 и больше 500.

2) Дано вещественное число а. Напечатать  все значения n, при которых 1 + 1/2 + 1/3 + 1/n < a


Это сообщение отредактировал(а) matrixanton - 2.4.2008, 21:44
PM MAIL WWW ICQ Skype   Вверх
volvo877
Дата 2.4.2008, 19:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(matrixanton @  2.4.2008,  15:12 Найти цитируемый пост)
Правильность программ не важна.

Интересно, а зачем тебе тогда программы? Выключи свет, монитор, сядь в полной темноте за клавиатуру и постучи секунд 20 по клавишам... Что получится - то получится... Ну, Begin/End добавишь. 
PM MAIL   Вверх
matrixanton
Дата 2.4.2008, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 60
Регистрация: 28.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: -1
volvo877,  очень весело smile 

Мне нужен сам принцип решения
PM MAIL WWW ICQ Skype   Вверх
matrixanton
Дата 3.4.2008, 08:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 60
Регистрация: 28.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: -1
Помогите пожалуйста smile 
PM MAIL WWW ICQ Skype   Вверх
matrixanton
Дата 3.4.2008, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 60
Регистрация: 28.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: -1
Помогите пожалуйста решить! Очень нужно... люди smile 

1) Найти 20 первых натуральных чисел, делящихся на 13 или на 17 и больше 500.

2) Дано вещественное число а. Напечатать  все значения n, при которых 1 + 1/2 + 1/3 + 1/n < a
PM MAIL WWW ICQ Skype   Вверх
navi
Дата 3.4.2008, 21:37 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет
вот первая:
Код

program p1;
var n,k:integer;
begin
n:=500;k:=0;
while k<=20 do begin n:=n+1; 
if (n mod 13=0) or (n mod 17=0) do begin k:=k+1; writeln(n);end;end;
readln;end.

 примерно так не проверял! должна работать...
--------------------
 Хакер не преступник! Взлом ради искусства! Смысл в свободе!
PM MAIL Skype   Вверх
matrixanton
Дата 3.4.2008, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 60
Регистрация: 28.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: -1
navi

Спасибо! Если будут время, помоги со второй пожалуйста  smile 
PM MAIL WWW ICQ Skype   Вверх
mr.Anderson
Дата 3.4.2008, 22:54 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128
Вторая (не проверял, но алгоритм вроде правильный):
Код

program p2;
var
 a : Real;
 n : Integer;
 s : Real;
begin
 readln( a );

 s := 1.0;
 n := 1;

 while( (s-a) < 0.00001 ) do
 begin
  writeln( n );

  s := s + 1/n;
 
  inc( n );
 end;
end.


Это сообщение отредактировал(а) mr.Anderson - 3.4.2008, 22:56


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
matrixanton
Дата 3.4.2008, 23:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 60
Регистрация: 28.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: -1
mr.Anderson, большое спасибо за помощь! smile 
PM MAIL WWW ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0763 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.