Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 18 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

1: writeln(’ ЯНВАРЬ’);
2: writeln(’ ФЕВРАЛЬ’);
3: writeln(’ МАРТ’);
4: writeln(’ АПРЕЛЬ’);
5: writeln(’ МАЙ’);
6: writeln(’ ИЮНЬ’);
7: writeln(’ ИЮЛЬ’);
8: writeln(’ АВГУСТ’);
9: writeln(’ СЕНТЯБРЬ’);
10: writeln(’ ОКТЯБРЬ’);
11: writeln(’ НОЯБРЬ’);
12: writeln(’ ДЕКАБРЬ’);
ELSE writeln(’Вы неправильно ввели номер месяца ! ’);
END.
Пример 2.4.2 Составить программу вычисления сумм арифметиче-
ской и геометрической прогрессий, а также определения значения за-
данного члена прогрессии.
Для арифметической прогрессии:
AAdN
N
=
+
⋅
−
1
1()
S
AA
N
N
N
=
+
⋅
1
2
Для геометрической прогрессии:
BBq
N
N
=⋅
−
1
1
S
BqB
q
N
N
=
⋅
−
−
1
1
VAR V, N:integer;
A1, B1, AN, BN, SA, SB, d, q:real;
BEGIN
writeln(’Выберите вид прогрессии:’);
writeln(’ 1- арифметическая’);
writeln(’ 2- геометрическая’);
readln(V);
CASE V OF
1:
BEGIN
writeln(’Вы выбрали арифметическую прогрессию.’);
write(’Введите первый член прогрессии A1 =’); readln(A1);
write(’Введите разность прогрессии d =’); readln(d);
write(’Введите номер N =’); readln(N);
AN:=A1+d∗(N-1);
SA:=(A1+AN)∗N/2;
18

Страницы