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 Паскаль
-8 / 0 / 0 Регистрация: 26.10.2015 Сообщений: 100 |
|
1 |
|
Написать программу, вычисляющую процент от числа24.02.2016, 19:48. Показов 13849. Ответов 6
1. Написать программу вычисляющая процент от числа.
0 |
Mrkodirovsshik 0 / 0 / 1 Регистрация: 03.12.2015 Сообщений: 8 |
||||
25.02.2016, 10:49 |
3 |
|||
Решение
0 |
0 / 0 / 0 Регистрация: 29.10.2016 Сообщений: 18 |
|
05.12.2019, 13:35 |
4 |
Нет, нужно используя функцию и процедуру
0 |
6805 / 4564 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438 |
|
05.12.2019, 13:36 |
5 |
используя функцию Ссылку смотрели?
0 |
0 / 0 / 0 Регистрация: 29.10.2016 Сообщений: 18 |
|
05.12.2019, 13:36 |
6 |
Смотрели, не подходит к моему условию задачи
0 |
6805 / 4564 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438 |
|
05.12.2019, 13:38 |
7 |
Kiflid, так подправьте самостоятельно. Там пару строк добавить.
0 |
IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604 |
05.12.2019, 13:38 |
7 |
Программа Pascal, задача которой вычислить процент от необходимого числа через функцию.
Среди разнообразных задач по работу с Паскалем иногда может попадаться задача с нахождением процентов от заданного числа. Многие не способны решить данную задачу, вследствие чего я предоставил информацию примера решения задачи через специальную функцию.
Исходный код программы Паскаль:
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.
Pawno-Info.Ru — Портал о программировании №1
Присоединяйтесь к нам сейчас, чтобы получить доступ ко всем нашим функциям и ответы на все интересующие Вас вопросы. После регистрации Вы сможете создавать темы, публиковать ответы, влиять на репутацию пользователей форума, обмениваться личными сообщениями и многое другое. Это быстро и совершенно бесплатно, так чего же Вы ждете?
Маппинг для сервера
Если вы хотите обновить Ваш сервер новыми доработками — то зайдите в наш раздел. Большой выбор готовых решений от наших пользователей
Моды для сервера
Огромный выбор различных модификаций для Вашего сервера. Пролистайте эти темы! Возможно именно там Вы найдете то, что искали уже давно.
Программы для скриптера
Подборка удобных программ для скриптера
- Регистрация
- 3 Фев 2013
- Сообщения
- 3,004
- Лучшие ответы
- 6
- Репутация
- 813
- Возраст
- 24
-
#1
Исходник программы нахождения процента от числа на Паскаль ABC. Нахождение процента оформлено через функцию. Исходник является примером использования подпрограммы.
PHP:
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.
Автор: Неизвестно