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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

2. Вывод массива на экран.
FOR i:=1 TO N DO writeln(’C[’,i,’]=’,C[i]:12);
3. Расчет последовательностей (
С C
ii
=
+
−
417
1
.3
):
C[1]:=3.6;
FOR i:=2 TO N DO C[i]:=4∗C[i-1]+17.3;
4. Нахождение минимального (или максимального) элемента.
Cmin:=C[1];
FOR i:=2 TO N DO IF C[i]<Cmin THEN Cmin:=C[i];
5. Нахождение номера минимального (или максимального) элемента:
Nmin:=1;
FOR i:=2 TO N DO IF C[i]<C[Nmin] THEN Nmin:=i;
6. Нахождение первого (последнего) элемента массива с заданным ус-
ловием (например, x
i
<0):
k:=0;
REPEAT k:=k+1 UNTIL X[k]<0; (поиск 1-го элемента)
k:=N+1;
REPEAT k:=k-1 UNTIL X[k]<0; (поиск последнего элемента)
7. Перестановка местами элементов массива с номерами i и j:
r:=C[i]; C[i]:=C[j]; C[j]:=r;
8. Нахождение количества элементов массива, удовлетворяющих усло-
вию (например, 2<x
i
≤5):
M:=0; FOR i:=1 TO N DO IF (2<X[i]) AND (X[i]<=5) THEN M:=M+1;
9. Способ задания массива в разделе
CONST:
CONST d:ARRAY[1..4] OF real=(1.2, 3.6, 2e-1, 12.34);
Пример 2.6.1 Составить программу определения минимального
элемента массива А(10), суммы элементов, стоящих до него и произве-
дения положительных элементов после него.
VAR A:ARRAY[1..10] OF real;
i, MinN:integer;
Min, S, P:real;
BEGIN
{Ввод массива А(10)}
FOR i:=1 TO 10 DO
BEGIN
write(’Введите ’,i,’ элемент массива:’); readln(A[i]);
END;
{Поиск номера минимального элемента в массиве А(10)}
27

Страницы