Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
metis37
0 / 0 / 0
Регистрация: 28.01.2012
Сообщений: 8
1

Написать программу, определяющую прибыль по истечении каждого года, каждых пяти лет и суммарную

28.01.2012, 21:29. Просмотров 951. Ответов 4
Метки нет (Все метки)

Предположим, что сделан вклад 1000 р. на 55 лет с ежемесячной прибылью 1,5 %. Написать программу, определяющую прибыль по истечении каждого года, каждых пяти лет и суммарную прибыль за весь срок.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2012, 21:29
Ответы с готовыми решениями:

Написать программу ,которая выводит суммарную площадь каждой комнаты.Найти суммарную площадь все комнат в этом доме
Помогите пожалуйста! В доме шесть комнат ,каждая из которых имеет форму...

Написать программу-таймер, которая по истечении заданного промежутка времени выдает звуковой сигнал
2. написать программу-таймер, которая по истечении заданного промежутка времени...

Написать программу, вычисляющую прибыль агента за продажу n автомобилей
помогите решить задачу Агент по продаже автомобилей стоимостью А тенге продал...

Написать программу, вычисляющую прибыль агента за продажу n автомобилей
Агент по продаже автомобилей стоимостью А тенге продал первый автомобиль за В...

Написать программу, определяющую, сколько будет на счёте в 16 лет
Выручайте Мой богатый дядюшка подарил мне 1 доллар в мой первый день...

4
Г.Р.
68 / 68 / 72
Регистрация: 18.01.2012
Сообщений: 132
28.01.2012, 22:52 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
   vk,i,ch1,ch2:longint;
begin
   read(vk);
   ch1:=vk;
   for i:=1 to 55 do
   begin
      ch2:=ch1;
      ch1:=ch1*1.015;
      writeln('за ',i,' год ',ch1-ch2);
   end;
   ch1:=vk;
   ch2:=vk;
   for i:=1 to 55 do
   begin
      ch1:=ch1*1.015;
      if(i mod 5=0) then
      begin
         writeln(i div 5,'раз за 5 лет',ch1-ch2)
      end;
   end;
   writeln('за весь срок ',ch1-vk);
end.
1
tosha_prog
4 / 4 / 1
Регистрация: 28.01.2016
Сообщений: 11
28.01.2016, 22:23 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Реализация на C++:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
#include<iostream>
#include<stdio.h>
#include<math.h>
#include<conio.h>
 
using namespace std;
 
float vk, s1, r, s2, s3, x, pr;
int i,g;
 
int main()
 
{
 do
  { 
  printf("Введите сумму вклада--->"); scanf("%f",&vk);
  printf("% Месячная ставка--->"); scanf("%f",&r);
  printf("Количество лет--->"); scanf("%f",&x);
  cout<<"Выберите алгоритм:"<<endl;
  cout<<"1-прибыль за каждый год"<<endl;
  cout<<"2-прибыль раз в 5 лет"<<endl;
  cout<<"3-суммарная прибыль за весь срок"<<endl;
 BEGIN: printf("Алгоритм--->"); scanf("%i",&g);
 
s1=vk;
s2=s1;
 
 
         for (i=1; i<=x; i=i+1)
    {
        if (g==1)
        {       
        s1=vk*pow((1+(r/100)), 12*i);;
        s3=s1-s2;
        cout<<"За "<<i<<" год"<<"прибыль--->"<<s3<<endl;
        printf("\n---------------------------------------------------------------------------\n");
        }
        
       if (g==2)
       {    
            
            s1=vk*pow((1+(r/100)), 12*i);;
            s3=s1-s2;
            if (i%5==0)
            {cout<<"За "<<i<<" год"<<"прибыль--->"<<s3<<endl;
            printf("\n---------------------------------------------------------------------------\n");}
        }
        
        if (g==3)
        { 
        
        s1=vk*pow((1+(r/100)), 12*i);;
        //cout<<"Прибыль за весь срок--->"<<s1-vk;
        } 
     }
     if (g==3) cout<<"Прибыль за весь срок--->"<<s1-vk<<endl; 
 
     if ((g!=1) && (g!=2) && (g!=3)) goto BEGIN;
 
     cout<<"Продолжить выполнение программы (y/n)--->"; scanf("%f",&pr);
              
     pr=getchar();
         
    }
 while (pr=='y');
      
   
return 0;
}
0
ildwine
Супер-модератор
2986 / 1868 / 1224
Регистрация: 04.03.2013
Сообщений: 4,570
Записей в блоге: 1
29.01.2016, 06:48 4
tosha_prog, и зачем в теме 2012 года по паскалю вариант решения на С++?
0
tosha_prog
4 / 4 / 1
Регистрация: 28.01.2016
Сообщений: 11
29.01.2016, 20:47 5
Да пусть будет. Думаю, что неплохо сравнить две реализации: на паскале и на C++. Тем более начинающим программистам. Может кому-то пригодится в будущем.
0
29.01.2016, 20:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2016, 20:47

Написать программу, определяющую в одномерном числовом массиве такую сумму любых пяти элементов, которая наиболее близка к заданному числу
Задача: Написать программу, определяющую в одномерном числовом массиве такую...

Написать программу, определяющую для каждого из трех массивов количество перемен знаков
Написать программу,определяющую для каждого из трех одномерных массивов: А ,В ,...

Массив содержит сведения о количестве осадков выпавших за каждые 12 месяцев года написать программу определяющую количество засушливых месяцев(<30мм)
Массив содержит сведения о количестве осадков выпавших за каждые 12 месяцев...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru