Программа на паскале. Проверьте программу - есть ответ

Без имени, 373 просмотра

Подсчёт денег при вложении в банк по истечении определённого срока. т.е нужно подсчитать сколько денег будет через n-ное кол-во времени при таком-то проценте, с такой-то начальной суммы. Вот код, но почему-то в конце задачи программа выдаёт непонятное число, хотя программа по-моему написана верно

var d,n,e,e1,n1:real;
begin
writeln('Введи % вклада d, нач. кол-во денег n, кол-во месяцев вклада e');
readln(d,n,e);
e1:=1;
while e<=1;
begin
n1:=d*n; n:=n+n1; e1:=e1+1 end;
writeln('Кол-во денег по истечению срока равно', n);
readln;
end.

Ответы:

Александр Кемпф

Бредовато.
var d,n,e,n1:real;
begin
writeln('Введи % вклада d, нач. кол-во денег n, кол-во месяцев вклада e');
readln(d,n,e);
while e>1;
begin
n1:=d*n;
n:=n+n1;
e:=e-1;
end;
writeln('Кол-во денег по истечению срока равно', n);
readln;
end.

Нимтар

У вас бесконечный while, ведь e=1 всегда, так что не знаю, почему вообще программа что-то выдаёт:)
Мой вариант:
var per, mon: real;
i, time: word; // вообще-то вряд ли кому-то понадобится вкладывать деньги на 5 с половиной тысяч лет. Если вклад будет меньше 21,25 лет, то time и i можно делать byte.
begin
writeln('Введите сумму вклада, срок в месяцах и % по вкладу');
readln (mon, time, per);
For i:=1 to time do mon:=mon+mon*per;
writeln ("Ваш вклад по истечении срока равен", mon);
readln;
end.

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.