АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Writeln('Нажми Enter'); readln

End.

 

Практическое задание N 1. 9

Рассчитать конечные суммы последовательностей:

 

1) 13 + 23 + 33 +... + N3; SN = N2*(N+1)2/4;

 

2) 13 + 33 + 53 +... + (2*N-1)3; SN = N2*(2*N2-1);

 

3) (X3+1)/cos(1) + (X3+2)/cos(4) + (X3+3)/cos(9) + (X3+N)/cos(N2);

 

4) (X2+1)/sin(1) + (X2+2)/sin(2) + (X2+3)/sin(3) + (X2+N)/sin(N);

 

 

В некоторых случаях "N"-ый член последовательности определяется через сумму предыдущих членов, например, aN= p*SN-1, тогда SN= SN-1 + aN = SN-1*(1+р), и конечную сумму можно рассчитать по формуле:

SN= S0*(1+p)N, где "S0" - начальная сумма.

 

Рассмотрим программу вычисления конечной суммы денежного вклада в банк через N месяцев при ежемесячной процентной ставке "pr" (5% cоответствует pr=5).

 

PROGRAM VKLAD; { расчет конечной суммы вклада в банк }

var S, Sn, pr: real; i, N: integer;

Begin

Write('Введите начальную сумму вклада S='); readln(S);

Write('Введите процент по вкладу pr='); readln(pr);

Write('Введите количество месяцев вклада N='); readln(N);

For i:= 1 to N do S:= S*(1+pr/100.); { цикл произведений }

 

Writeln('Конечная сумма вклада S=', S:-10:2);

 

{ Оператор для расчета "Sn" напишите самостоятельно }

 

Writeln('Расчет конечной суммы вклада по формуле Sn=', Sn:-10:2);

Writeln('Нажмите Enter');

Readln

End.

 

 

Практическое задание N 1. 10

 

1. Вычислить конечную сумму денежного вклада в рублях при открытии валютного счета в банке через несколько месяцев при ежемесячной процентной ставке 1% и росте курса валютной единицы по отношению к рублю 2% в месяц. Программа запрашивает ввод суммы и срока вклада, и выводит на экран конечную сумму в рублях. Проверить расчет вычислением по формуле: SN = S0 * (1+pv)N * (1+pi)N,

где pv, pi - банковский и инфляционный коэффициенты.

 

2. В п. 1 сделать ежемесячный ввод банковской процентной ставки и роста курса валюты при подсчете конечной суммы.

 

 

Часто применяются вложенные операторы цикла. Например, если необходимо провести все варианты расчета при изменении нескольких параметров в заданных диапазонах.

Составим программу расчета функции y = A*sin(x) - cos(x)/A; при изменении аргумента "x" в диапазоне от 0 до Pi с шагом Pi/100 и при изменении параметра "A" в диапазоне от 1 до 3 с шагом 0. 5.

 

Program tabl;

var y, x, a, dx: real; i, j: integer;

Begin

Writeln(' Расчет по формуле: y=A*sin(x)-cos(x)/A; ');

Writeln('--------------------------------------------------');

Writeln('|___X___|__A=1.0_|_A=1.5_|_A=2.0_|_A=2.5_|_A=3.0_|');

Writeln('--------------------------------------------------');

dx:= pi/100;

for i:= 0 to 100 do begin { внешний цикл изменения аргумента "X" }

x:= dx*i; Write(x:8:4);

for j:= 1 to 5 do begin { вложеннный цикл изменения параметра "A" }

A:= 0.5*(j+1); y:= A*sin(x)-cos(x)/A; Write(y:8:4)

end;

Writeln; { перевод курсора на новую строчку }

if ((i+1) mod 20) = 0 then

readln { задержка прокрутки экрана до нажатия Enter }

End; readln

End.

 

 


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 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.004 сек.)