Как найти проценты в паскале

1. Самая простая задача: дана сумма вклада, банковский процент. Нужно определить какая сумма будет получена к концу расчетного периода. Если было 15 тысяч рублей, а банк дает 25%, то программа может выглядеть так:

program Bank;
begin
  writeln('Через 1 год у нас будет ', (125*15000)/100,
    ' рублей на счету.');
  readln
end.

2. Если нужно вводить начальную сумму и банковский процент — то программа изменится так:

var
  N: integer; { N – целое число }
  p: real; { p - вещественное число }

begin
  writeln('Какую сумму Вы положили в банк?');
  readln(N); { <-- Вводим число N и переходим на следующую строку }
  writeln('Какие проценты в этом банке?');
  readln(p); { <-- Вводим число p и переходим на следующую строку }
  { Выводим результат: }
  writeln; { <-- Пропускаем одну строку }
  writeln('Через 1 год у Вас будет ', (100 + p)*N/100,
    ' рублей на счету.');
  readln { <-- Нажимаем Enter и выходим }
end.

3. Расчет дохода за K лет (сложные проценты).

Допустим, вы положили N рублей на 2 года под p процентов, расчет можно выполнить так:

$$underbrace{underbrace{N + underbrace{frac{N*p}{100}}_{income quad year quad 1}}_{sum quad year quad 1} + underbrace{frac{(N + frac{N*p}{100})*p}{100}}_{inclome quad yearquad2}}_{sum quad year quad 2}$$

Расчет по такой формуле можно выполнить в цикле, однако если позаниматься упрощением этой формулы, то окажется что на K-тый год сумму можно определить так:
$$Ncdot(1+frac{p}{100})^K$$

Приведенная ниже программа выполняет расчет по этой формуле, при этом использует стандартную функцию power для возведения числа в степень:

var
  N: integer; { N – целое }
  p, t: real; { p и t – действительные числа }

begin
  writeln('Введите начальную сумму вклада в банк:');
  readln(N); 
  writeln('Какие проценты в этом банке?');
  readln(p); 
  writeln('Сколько лет деньги находятся на депозите?');
  readln(t);
 
  writeln;
  writeln('Через ', t, ' лет сумма денег вырастет до ',
    N * power(1 + p / 100, t):0:2, ' рублей.');
  readln
end.

4. Через сколько месяцев сумма вклада превысит X рублей?

Программа рассчитывает новую сумму процентов как это делалось выше, но каждый раз увеличивает счетчик, в котором и окажется в конце концов искомый результат.

var
  K: word;
  S, P: real;

begin
  write('P = ');
  readln(P);

  K := 0; { <== Начальное количество месяцев }
  S := 1000; { <== Начальная сумма денег }

  { Выполняем цикл до тех пор, пока количество 
  денег на счету не превосходит 1100 рублей: }
  while S <= 1100 do
  begin
    S := S + S * P / 100;
    inc(K) { <== Увеличиваем месяц на 1 }
  end;
  writeln;
  writeln(' количество месяцев: ', K);
  writeln(' итоговый размер вклада: ', S:0:2);
  readln
end.

Исходник программы нахождения процента от числа на Паскаль ABC. Нахождение процента оформлено через функцию. Исходник является примером использования подпрограммы.  

Исходный код программы Паскаль:

var k,n:integer; //Описание переменных

    x:real;

Function procent(n,m:integer):real;  //Функция вычисления процентов, т.к. проценты могут быть дробными - задаем тип real

   begin

    procent:=m*100/n;    //Вычисляем проценты, значение присваиваем функции

   end;

Begin

  writeln('Vvedite chisla. Snachala chislo ot kototogo schitaem %');

   readln(k,n); //Считывание переменных

     x:=procent(k,n); //Запрашиваем значение процента у функции

   writeln('x=',x, '%'); //Выводим результат

End.

Скачать исходник:procent.pas

Дата: 2014-11-03 18:26:44   Просмотров: 16447

Теги: подпрограммы исходник Pascal Паскаль