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

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

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


Ответ
 
Опции темы
Старый 23.03.2015, 20:54   #1
Юля23
Пользователь
 
Регистрация: 23.03.2015
Сообщений: 20
Вопрос циклы с параметром задача

Определить максимальное целое число n, удовлетворяющее условию 3n^2 - 730n < 5. С помощью цикла с параметром
Юля23 вне форума Ответить с цитированием
Старый 23.03.2015, 22:39   #2
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 5,429
По умолчанию

Код:
n := 0;
while 3 * n * n - 730 * n < 5 do
  inc(n);
dec(n);
writeln(n);
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 24.03.2015, 00:56   #3
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,664
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Код:
n := 0;
while 3 * n * n - 730 * n < 5 do
  inc(n);
dec(n);
writeln(n);
это цикл с предусловием.


предлагаю, всё ж, начать с решения квадратного уравнения, а там видно будет.
хотя, задача тупо на перебор...
Изображения
Тип файла: png 16.png (1.1 Кб, 86 просмотров)
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

Последний раз редактировалось min@y™; 24.03.2015 в 00:59.
min@y™ вне форума Ответить с цитированием
Старый 24.03.2015, 01:00   #4
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 5,429
По умолчанию

min@y™, согласен, что это не тот цикл (не того типа), но ответ он выдаст правильный.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 24.03.2015, 01:19   #5
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,664
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
min@y™, согласен, что это не тот цикл (не того типа), но ответ он выдаст правильный.
согласен .
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 24.03.2015, 21:23   #6
Юля23
Пользователь
 
Регистрация: 23.03.2015
Сообщений: 20
По умолчанию

А чем можно заменить функции inc(n);
dec(n);?
Юля23 вне форума Ответить с цитированием
Старый 24.03.2015, 21:29   #7
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,664
По умолчанию

это не функции, а compiler magic. транслируются в одну ассемблерную инструкцию.
зачем их менять?
inc(n) --> n:= n + 1;
dec(n) --> n:= n - 1;
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 24.03.2015, 22:05   #8
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 14,407
По умолчанию

Совсем без циклов:
Код:
var
  a,b,c: integer;
  d,x1: real;
begin
  a := 3; b := -730; c := -5;
  d := sqr(b)-4*a*c;
  x1 := (-b+sqrt(d))/(2*a);
  writeln(trunc(x1));
end.
А как задать верхний предел для for не понятно, от фонаря что ли?
Arigato вне форума Ответить с цитированием
Старый 24.03.2015, 22:29   #9
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,061
По умолчанию

Цитата:
А как задать верхний предел для for не понятно, от фонаря что ли?
Зачем фонарь, оценить то можно, даже визуально n=730 далеко за пятерочку выбрасывает, вот и верхняя граница, ну и бряк в теле цикла в нужный момент
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Циклы с параметром opt1k Помощь студентам 9 30.03.2013 01:36
Циклы с параметром, написать программу, блок схему, определить значение переменной К ((((((( tltmail Помощь студентам 0 15.12.2012 01:56
необходимо составить программу вычисления с параметром,постусловием и предусловием.циклы Машулечек Паскаль, Turbo Pascal, PascalABC.NET 2 26.05.2012 20:55
Массивы,циклы с параметром Bizikov Помощь студентам 3 04.06.2010 09:30
задача с параметром for bonys91 Помощь студентам 4 01.04.2009 11:35


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS