Внимание! строки вводятся как на , так и на языке. ввод строк и текста осуществляется с консоли. дан текст. заменить каждую букву перед буквой а символом ‘*’. (написать программу на языке c++)
Данных в задаче мало, так как выплаты по кредиту зависят от вида платежа (дифференцированный или аннуитетный). С точки зрения написания программы, возможно, интереснее дифференцированный, когда выплата по основному долгу постоянная, а проценты уменьшаются (т.к. уменьшается оставшаяся сумма долга). Программа на паскале для такого случая (выплаты раз в год): var sum,s,c,p1,p2:real; y,i:integer; begin sum:=40000; y:=4; c:=25; p1:=sum*c/100; s:=0; writeln('Основной долг Проценты'); for i:=1 to y do begin p2:=sum*c/100; s:=s+p1+p2; sum:=sum-p1; writeln(p1:5:2,' ':8,p2:6:2); end; writeln('За 4 года выплачено ',s:5:2); end.
Результат: Основной долг Проценты 10000.00 10000.00 10000.00 7500.00 10000.00 5000.00 10000.00 2500.00 За 4 года выплачено 65000.00
Var a:array[1..10] of integer; k,n,i:integer; min:INTEGER; begin randomize; N:=10; k:=0 {кол-во отрицательных элементов}; writeln ('исходный массив'); for i:=1 to N do begin if random(2) =1 then a[i]:=random(100) else begin k:=k+1; a[i]:=-random(100); min:=a[I] end; write(a[i]:5); end; writeln; {поиск минимального положительного} if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные} begin for i:=1 to N do if (a[i]>0) and (a[i]<min) then min:=a[i]; {замена} for i:=1 to N do if (a[i]<0) then a[i]:=min; end; writeln('Новый массив') for i:=1 to N do write(a[i]:5); end.
Программа на паскале для такого случая (выплаты раз в год):
var sum,s,c,p1,p2:real; y,i:integer;
begin
sum:=40000;
y:=4;
c:=25;
p1:=sum*c/100;
s:=0;
writeln('Основной долг Проценты');
for i:=1 to y do
begin
p2:=sum*c/100;
s:=s+p1+p2;
sum:=sum-p1;
writeln(p1:5:2,' ':8,p2:6:2);
end;
writeln('За 4 года выплачено ',s:5:2);
end.
Результат:
Основной долг Проценты
10000.00 10000.00
10000.00 7500.00
10000.00 5000.00
10000.00 2500.00
За 4 года выплачено 65000.00