Выведите на экран через сколько лет сумма будет В

@Nelo-Vergil · Регистрация: 24.12.2010

Студворк — интернет-сервис помощи студентам

Задача такова. "Процент по вкладам 15%. Первоначальный взнос А. Выведите на экран через сколько лет сумма будет В . А и В водится с клавиатуры."

Добавлено через 26 секунд
Можно решение. Я как понимаю там идет цикл

Добавлено через 22 минуты

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program zed;
var a,b:integer;
c:real;
begin
writeln('Введите первоначальный вклад');
readln(a);
writeln('Введите какую сумму вы хотите получить');
readln(b);
for a:=a to b do
sum:=a+(a(15/100));
c:=b/a;
writeln('через столько лет у вас будет такая сумма',c);
 
end.

Вот накидал и не работает

@Г.Р. · 31.03.2012, 19:19

Интеджер не работает, если умножать на дробь, нужен double
так же ты просто прокручиваешь цикл b-a раз
вот так будет точнее

Pascal
1
2
3
4
5
6
7
8
9
10
***
 readln(a);
 readln(b);
 rez:=0;
 while(a<=b) do
 begin
  a:=a*1.15;
  g:=g+1;
 end;
 writeln(g)

@Nelo-Vergil · 31.03.2012, 21:42 **[ТС]**

Выдает ошибку на Rez

Често признаю задачу догнать не могу. Она не работает . Просто я проверил . А=2000 а В=2300 . 2300 получится через год , программа выдает что типа через 2

Просто если rez это переменная то я не понял зачем она нужна . А если оператор то хз. я паскаль не сильно хорошо знаю

@thyrex · 31.03.2012, 22:00

Вместо

Code
1
rez:=0;

напишите

Code
1
g:=0;

Сообщение от Г.Р.

while(a<=b) do

нужно строго меньше (a<b)

@Nelo-Vergil · 01.04.2012, 05:05 **[ТС]**

спасибо Вам обоим за помощть но не могли бы вы мне объяснить почему

Pascal
1
A:=A*1.15

и ниже пишем

Pascal
1
g:=g+a

Добавлено через 43 секунды

Pascal
1
g:=g+1

прощу прощение опечатался

Добавлено через 3 минуты
и блин прочему

Pascal
1
g=:0

Я просто такие задачи не сразу понимаю . вот где цикл for ... to.. do я понимаю а с While не могу

@thyrex · 01.04.2012, 11:17

У Вас проценты на вклад - 15%, а значит, по истечении срока сумма на вкладе составит 100%+15%=115%
А в математике чтобы проценты записать в виде десятичной дроби нужно значение разделить на 100, что соответствует значению 1,15. Т.е. по истечению срока вклад увеличивается в 1,15 раза.

Pascal
1
A:=A*1.15

Сообщение от Nelo-Vergil

вот где цикл for ... to.. do я понимаю а с While не могу

Цикл for используется только в том случае, если Вы заранее знаете, сколько раз он должен выполниться. В Вашем случае это неизвестно (и это как раз нужно определить, т.е. определить количество лет). Потому начальное значение (до начала всех вычислений) равно 0

Pascal
1
g=:0

, а при каждом выполнении цикла это значение (т.е. количество прошедших лет) увеличивается на 1

Pascal
1
g:=g+1

@Nelo-Vergil · 01.04.2012, 11:30 **[ТС]**

Спасибо огромное . !!! выручули меня все !!!

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Nelo-Vergil 2 / 2 / 0 Регистрация: 24.12.2010 Сообщений: 96
	31.03.2012, 21:42 [ТС]
	Выдает ошибку на Rez Често признаю задачу догнать не могу. Она не работает . Просто я проверил . А=2000 а В=2300 . 2300 получится через год , программа выдает что типа через 2 Просто если rez это переменная то я не понял зачем она нужна . А если оператор то хз. я паскаль не сильно хорошо знаю 0

@Nelo-Vergil 2 / 2 / 0 Регистрация: 24.12.2010 Сообщений: 96
	01.04.2012, 11:30 [ТС]
	Спасибо огромное . !!! выручули меня все !!! 0