|
Вопрос # 4 401/ вопрос открыт / |
|
Здравствуйте!
имеется число Х.
оно увеличивается с каждым шагом на 1/40 от своего значения до тех пор пока не станет в три раза больше. найти количество шагов
 |
Вопрос задал: габибыч (статус: Заблокирован)
Вопрос отправлен: 9 июля 2010, 12:41
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Откуда задачи берёшь?
program p4401;
{$APPTYPE CONSOLE}
const
A = 3.0; // Начальное значение
B = 3 * A; // Конечное значение
var
X: Single = A;
Count: Cardinal = 0;
begin
WriteLn(' From X = ', A: 3: 7, #13#10);
repeat
X:= X * 1.025;
Inc(Count);
WriteLn(Count: 4, '. X = ', X: 3: 7);
until X >= B;
WriteLn(#13#10' Total steps: ', Count);
ReadLn;
end.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 9 июля 2010, 13:22
Оценка за ответ: 4
|
Мини-форум вопроса
Всего сообщений: 18; последнее сообщение — 9 июля 2010, 23:27; участников в обсуждении: 4.
|
Ерёмин А.А. (статус: *Администратор), 9 июля 2010, 13:48 [#1]:
Задачи из третьего класса?
|
|
|
габибыч (статус: Заблокирован), 9 июля 2010, 17:50 [#2]:
всемогущий яндекс помог.
кому третий, кому тридцатый..)
|
|
|
габибыч (статус: Заблокирован), 9 июля 2010, 17:54 [#3]:
min@y™, пожалста коментарий побольше. когда смотрю на чужой код все понятно, я же мысль хочу поймять. все задачи решаются как не Х делать. не могу в код перевести.
мотор изучил, водить не умею..)
|
|
|
габибыч (статус: Заблокирован), 9 июля 2010, 17:55 [#4]:
например не понятно, почему ты А задал значение, хотя в условии этого не говорится
|
|
|
min@y™ (статус: Доктор наук), 9 июля 2010, 18:09 [#5]:
Почему 4? Задача решена неверно? Объясни сначала, все вопросы потом.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
габибыч (статус: Заблокирован), 9 июля 2010, 18:20 [#6]:
в задаче непонятно почему ты неизвестной даешь значение, хотя в условии такого нет..
|
|
|
габибыч (статус: Заблокирован), 9 июля 2010, 18:23 [#7]:
Ерёмин А.А. , в какой школе в третьем классе проходят ряды??_)
|
|
|
min@y™ (статус: Доктор наук), 9 июля 2010, 18:29 [#8]:
Цитата (габибыч):
непонятно почему ты неизвестной даешь значение, хотя в условии такого нет..
А в задаче это не запрещено. Там нет условия, что нельзя использовать дополнительные переменные и константы.
За что 4 балла? Представленная программа работает неправильно?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
габибыч (статус: Заблокирован), 9 июля 2010, 18:34 [#9]:
4 балла за то что мне не понятно! ученый из тя отличный, а оценка за преподавательские способности..)
а что это за баллы? они на что то влияют?
|
|
|
min@y™ (статус: Доктор наук), 9 июля 2010, 18:52 [#10]:
Цитата (габибыч):
4 балла за то что мне не понятно!
Но задача-то решена! То, что тебе непонятно - это ТОЛЬКО ТВОИ ПРОБЛЕМЫ. В задаче было условие "найти количество шагов", я это количество нашёл.
Цитата (габибыч):
а оценка за преподавательские способности..
А с чего ты взял, что я преподаватель? Я педагогических вузов не кончал и преподавательских способностей у меня не может быть в принципе. Я просто решаю поставленные задачи.
Цитата (габибыч):
а что это за баллы? они на что то влияют?
Если интересно, нажми сюда. Однако, мне просто обидно, что мой труд оценён не по достоинству. Представь, что ты подрядился перетаскать 500 кирпичей на 5-й этаж соседу за 5000 рублей. А когда перетаскал, сосед заплатил тебе не 5000, а 4000, мотивировав это тем, что ему непонятно, как ты эти кирпичи таскал!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
габибыч (статус: Заблокирован), 9 июля 2010, 18:58 [#11]:
)) не абесудь братишка. ответ же оценивается по тому как ты объяснил это другому, а тебе то это не нужно. ты и так знаешь как это решать. разве не так??
|
|
|
min@y™ (статус: Доктор наук), 9 июля 2010, 19:30 [#12]:
Цитата (габибыч):
ответ же оценивается по тому как ты объяснил это другому, а тебе то это не нужно. ты и так знаешь как это решать. разве не так??
Нет, не так. Всё зависит от постановки вопроса. В твоём вопросе
Цитата (габибыч):
имеется число Х. оно увеличивается с каждым шагом на 1/40 от своего значения до тех пор пока не станет в три раза больше. найти количество шагов
нет ни слова на тему "объясните, как это сделать". Правильно формулируй вопросы.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
габибыч (статус: Заблокирован), 9 июля 2010, 20:26 [#13]:
формулирую: объясни пожалста, что ты там сделал.
механизм решения, твоими глазами
|
|
|
min@y™ (статус: Доктор наук), 9 июля 2010, 20:50 [#14]:
program p4401; // Так надо
{$APPTYPE CONSOLE} // Консольное приложение
const
A = 3.0; // Начальное значение
B = 3 * A; // Конечное значение
var
X: Single = A; // Переменная, которая будет изменяться на 2.5% каждую итерацию
Count: Cardinal = 0; // Количество шагов, которое требуется вычислить
begin // Начало
WriteLn(' From X = ', A: 3: 7, #13#10); // Вывод начального значения
repeat // цикл
X:= X * 1.025; // X = X + 2.5%
Inc(Count); // Номер шага = Номер шага + 1
WriteLn(Count: 4, '. X = ', X: 3: 7); // Вывод промежуточных результатов
until X >= B; // выход из цикла, если ИКС равен или превысил троекратное начальное значение
WriteLn(#13#10' Total steps: ', Count); // Вывод решения (кол-ва шагов)
ReadLn; // Ожидание нажатия ENTER
end. // Кирдык
Теперь понятней стало?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
габибыч (статус: Заблокирован), 9 июля 2010, 22:50 [#15]:
теперь понятней. кроме:
1. X: Single = A; - тут перменной присвоили значение (т.е. стала константой), почему в коде она продолжает быть переменной?
2. (' From X = ', A: 3: 7, #13#10) - объясни пожалста, что за второй параметр (A: 3: 7 - обозначение не понятное), откуда 7 взялась?
3. если в условии число Х целое,то как измениться решение. (в настоящем условии говорилось о населении города, которое увелич.)
|
|
Вадим К (статус: Академик), 9 июля 2010, 22:54 [#16]:
x в данном случае не константа. Что бы она стала константой, должно быть слово const.
7:3 - это настройки форматирования при выводе - 7 знакомест под все число и 3 под дробную часть.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
габибыч (статус: Заблокирован), 9 июля 2010, 23:04 [#17]:
Вадим К, как рабочему пожалста...
"7:3 - это настройки форматирования при выводе - 7 знакомест под все число и 3 под дробную часть." - валлагь не понятно
|
|
|
min@y™ (статус: Доктор наук), 9 июля 2010, 23:27 [#18]:
Мне это надоело. Умываю руки.
Купи книжку, положи в сортире и читай 1-2 раза в сутки.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
