Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.04.2011, 18:27   #1
adidas_pro
Пользователь
 
Регистрация: 28.09.2010
Сообщений: 41
Вопрос Хэлп с задачкой!

Ежемесячная стипендия студента составляет Stip руб., а расходы на проживание превышают стипендию и составляют D рублей в месяц. Рост цен ежемесячно увеличивает расходы на р процентов. Составьте программу расчета суммы денег, которую необходимо единовременно попросить у родителей, чтобы мб прожить уч. Год (10 месяцев), используя только эти деньги и стипендию.

adidas_pro вне форума
Старый 03.04.2011, 18:41   #2
adidas_pro
Пользователь
 
Регистрация: 28.09.2010
Сообщений: 41
По умолчанию

up up up up
adidas_pro вне форума
Старый 03.04.2011, 18:47   #3
Spyman
 
Регистрация: 29.03.2011
Сообщений: 6
По умолчанию

ну вроде как основная часть программы будет выглядеть так.
Код:
for i:= 1 to 10 do begin
obshRashod := obshRashod + D;
D := D + D/100*p; 
end; 
rezult := obshRashod - D*10;
если негде не накосячил. В переменной obshRashod будет храниться весь расход денег за 10 месяцев. В переменной rezult соответственно сколько надо попросить у родителей. Собственно как то так.
небольшие знания C#, C++, Pascal, Delphi
готов делать работы за небольшую плату.
Spyman вне форума
Старый 03.04.2011, 19:10   #4
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

rezult := obshRashod - D*10;
увас в этой строчке ошибка
нужно вычетать переменную Stip
Код:
rezult := obshRashod-Stip*10;
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума
Старый 03.04.2011, 19:25   #5
adidas_pro
Пользователь
 
Регистрация: 28.09.2010
Сообщений: 41
По умолчанию

Ммм. так?

PHP код:
var
rashodp,  Stipreal;
integer;
real;
result real;
begin
writeln
('Введите общий расход (за 10 месяцев)');
readln(rashod);
writeln('Введите расход на проживание ');
readln(d);
writeln('Введите увелечение расходов(%)');
readln(p);
writeln('Введите стипендию (Stip) ');
readln(Stip);
for 
i:= 1 to 10 do
 
begin
rashod 
:= rashod d;
d:=(d+d)/(100*p);
 
end;
rezult := rashod-Stip*10;
WriteLn('Ответ:'rezult);
readln;

END
adidas_pro вне форума
Старый 03.04.2011, 19:33   #6
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

Код:
uses ctr;
var
rashod, p,  Stip: real;
i : integer;
d : real;
result : real;
begin
clrscr;
rashod:=0;
writeln('Введите расход на проживание ');
readln(d);
writeln('Введите увелечение расходов(%)');
readln(p);
writeln('Введите стипендию (Stip) ');
readln(Stip);
for i:= 1 to 10 do
 begin
  rashod := rashod + d;
  d:=d+(d/(100*p));
 end;
rezult := rashod-Stip*10;
WriteLn('Ответ:', rezult:5:5);
readkey;
END.
так ошыбки в математике убили...
Терпение!Дежурный экстрасенс скоро свяжется с вами!

Последний раз редактировалось Dvoishnik; 03.04.2011 в 19:35.
Dvoishnik вне форума
Старый 03.04.2011, 19:34   #7
Spyman
 
Регистрация: 29.03.2011
Сообщений: 6
По умолчанию

точно точно. Извиняюсь плохо прочитал задание.
Код:
d:=(d+d)/(100*p);
тут ошибка все так будет так
Код:
d:=d+d/(100*p);
т.е. прибавлять надо p процентов от D а не вычислять процент от суммы. А вообще скобки не обязательные т.к. сначала все равно выполнит умножение и деление а только потом сумму.
небольшие знания C#, C++, Pascal, Delphi
готов делать работы за небольшую плату.
Spyman вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Хэлп новичку. ~Loki~ Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 03.01.2011 23:55
Хэлп!!! tvojuJmat Помощь студентам 0 07.05.2009 23:22
ХЭЛП gemini1 Фриланс 1 15.10.2007 18:47
хэлп zinnyrik БД в Delphi 0 17.05.2007 15:25