|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2009, 17:36 | #1 |
Пользователь
Регистрация: 11.10.2009
Сообщений: 61
|
Помогите дополнить задачу
Задача:
В течение месяца курс доллара падал. В первый день он составил а рублей. В каждый следующий на 3% и ещё 0,1 руб. меньше. Каким будет курс доллара во 2.3,4,...n день? Через сколько дней он будет ниже b рублей? вот текст проги: uses SysUtils; Var a:real;i,d:integer; begin writeln('Vvedite kurs dollara $'); readln(a); writeln('Vvedite kol-vo dney'); readln(d); for i:=2 to d do begin a:=a-0.1-(a/100)*3; writeln('day:',i,', ','$=',a:0:2); end; readln; end. То есть, я написал прогу чтобы просто за заданное кол-во дней она считала падение доллара. а вот чтобы за сколько дней курс будет ниже b рублей, я не могу додуматься... Помогите кто чем может или подкиньте идеи) |
23.12.2009, 17:54 | #2 | |
АльTRUEи$т
Форумчанин
Регистрация: 19.03.2009
Сообщений: 784
|
Код:
Цитата:
|
|
23.12.2009, 18:14 | #3 |
Пользователь
Регистрация: 17.12.2009
Сообщений: 18
|
Код:
Последний раз редактировалось Dzmitry Loktseu; 23.12.2009 в 18:21. |
23.12.2009, 18:21 | #4 |
Пользователь
Регистрация: 11.10.2009
Сообщений: 61
|
IT-man , Dzmitry Loktseu спасибо.
Только я при помощи IT-man намного проще прогу сделал) Но огромное спасиб |
23.12.2009, 18:33 | #5 | |
Пользователь
Регистрация: 11.10.2009
Сообщений: 61
|
IT-man , Dzmitry Loktseu а можете ещё дополнить прогу:
Используя оператор цикла, вычислить с заданной точностью ε приближенное значение функции, указав количество элементов в вычисленной сумме, с использованием рекуррентных формул, скобочных форм и/или дополнительных переменных по формуле S. При составление программы считать, что точность достигнута, если |an |<ε . Цитата:
больше ничего не считает. Вроде рекуррентную формулу правильно высчитал. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дополнить слова пробелами на языке Си | hellslash | Помощь студентам | 1 | 20.12.2009 12:10 |
макросом дополнить название | Romuald | Microsoft Office Excel | 2 | 22.05.2008 17:31 |
Надо дополнить плз... | Droid | Общие вопросы Delphi | 12 | 24.04.2008 18:01 |