|
   |
| Модератор форума: No_MaTTeR, Dimitro, LightInDarkness |
| Форум Полезное Флудилка Помогите с Паскалем.) |
| Помогите с Паскалем.) |
Помогите решить задачу)
Ежемесячная стипендия студента составляет А руб., а расходы на проживание превышают стипендию и составляют В руб. в месяц. Рост цен ежемесячно увеличивает расходы на 3%. Составьте программу расчета необходимой суммы денег, которую надо единовременно попросить у родителей, чтобы можно было прожить 10 месяцев, используя только эти деньги и стипендию. поставлю свои убогие +2 )  
Сообщение # 1 написано 02.12.2011 в 19:44
|
Задача легкая, но мне думать лень
Сообщение # 2 написано 02.12.2011 в 19:52
|
readln(a);
readln(b); for i:= 1 to 10 do begin b:=b+(b/100*3); end; d:=b*10; p:=a-d; writeln(p); С этим поэкспериментируй. Переменных много из-за того, что лень думать сейчас + паскаля нет на компе. Добавлено (02.12.2011, 20:05) Добавлено (02.12.2011, 20:09)
Сообщение # 5 написано 02.12.2011 в 20:09
|
Я говорю паскаля нет.
Добавлено (02.12.2011, 20:15) --------------------------------------------- program student; uses crt; var a,b,c,d,i,p,j: integer; begin clrscr; writeln('vvedite stependiu') readln(a); writeln('vvedite platu') readln(b); for i:= 1 to 10 do begin b:=b+(b/100*3); end; p:=b-(a*10); writeln('U rodichey prsoitb babla - ', p); readln; end. Вот, как-то так. Дальше точно думать не буду, ибо проверять не на чем. |
Quote (vladis777) i:integer; типа инетджер нету в моем паскале Добавлено (02.12.2011, 22:46) --------------------------------------------- вроде робит
Чернокнижники воображают что когда они нам дают страх, мы убегаем от них в страхе! Но мы то знаем что на самом деле мы притворяемся что мы испугались, для того чтобы они не думали что они унылый класс.
|
Quote (vladis777) а, ну ок, тебе виднее, видимо мне не так объясняли и паскаль у меня кривой пишу на ТП6 и интеджер не воспринимает вообще да и в учебнике его нету Добавлено (02.12.2011, 23:21)
Чернокнижники воображают что когда они нам дают страх, мы убегаем от них в страхе! Но мы то знаем что на самом деле мы притворяемся что мы испугались, для того чтобы они не думали что они унылый класс.
|
Хм.. без integer многие функции паскаля вообще не работают. А что такое - i:word; , я вообще хз
Сообщение # 13 написано 02.12.2011 в 23:31
|
Quote (Симпомпошка) word это все целые положительные числа Добавлено (02.12.2011, 23:36)
Чернокнижники воображают что когда они нам дают страх, мы убегаем от них в страхе! Но мы то знаем что на самом деле мы притворяемся что мы испугались, для того чтобы они не думали что они унылый класс.
Сообщение # 14 написано 02.12.2011 в 23:36
|
Code program money; var b,a,c,x,m:Real; i,h:Word; begin ReadLn(a); ReadLn(b); x:=b; for i:= 2 to 10 do begin b:=b*1.03; x:=b+x; end; c:= x - a*10; WriteLn(c:5:2); ReadLn; End. прошу все робит Добавлено (03.12.2011, 00:06)
Чернокнижники воображают что когда они нам дают страх, мы убегаем от них в страхе! Но мы то знаем что на самом деле мы притворяемся что мы испугались, для того чтобы они не думали что они унылый класс.
|
Quote (GRAZIKYS) Никогда не любил подобные занятия на информатики.. Слава богу что я её больше не вижу.. На самом деле я считаю нужно давать работать людям в более новее программах. Используется только в целях обучения. Pascal - мертвый язык. 
Сообщение # 17 написано 03.12.2011 в 07:52
|
| |||
| |||