Информатика. Часть 1. Мойзес О.Е - 114 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

114
var b:array[1..10]of real;
i: integer;
P,s,m: real;
Begin
writeln(’Введите m’);
readln(m);
for i:=1 to 10 do
begin
writeln(’Введите b’,i);
readln(b[i]);
end;
s:=0; p:=1;
for i:=1 to 10 do
begin
if (b[i]>0) and (b[i]>m) then s:=s+b[i];
if (b[i]<0) then p:=p
٭b[i];
end;
writeln(’s=’,s:8:2,’ p=’,p:8:2);
End.
Вычисление n-фактериала:
Дано целое число n=15, вычислить n!, (т.е. 1*2*3* . . . *15).
f:=1;
for i:=1 to 15 do
f:=f
٭i;
Нахождение наибольшего (наименьшего) значения и
порядкового номера
Пример
. В массиве плотностей десяти химических элементов (d
1
,
d
2
, ..., d
10
) найти элемент с наибольшей плотностью (d
max
) и его
порядковый номер (n).
Нахождение наибольшего (наименьшего) значения из
последовательности чисел осуществляется при помощи алгоритма
попарного сравнения. В качестве начального значения наибольшего
(наименьшего) принимается первый элемент массива (dmax=d[1,1]), с
которым сравниваются все остальные элементы массива. Если
сравниваемый член последовательности больше d
max
, то d
max
присваивается его значение, в противном случае d
max
остается без
изменения. Можно за начальное приближение d
max
принять число,
которое заведомо меньше (больше) всех элементов массива, например
10
–5
(dmax=1E-5).

Страницы