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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Пример 2.6.8
PROGRAM sum;
VAR i, n:integer;
s:real;
BEGIN
write('укажите число n '); readln(n);
i:=1;s:=0;
WHILE i<=n DO
BEGIN
s:=s+1/i; i:=i+1;
END;
writeln('значение суммы ',s) ;
END.
2.7. Матрицы
Пример 2.7.1 Составить программу определения максимального
элемента в случайно заданном массиве А[10,10] и посчитать сумму эле-
ментов данного массива, значения которых по абсолютной величине не
превышает значение 0.5.
VAR i, j:integer;
A:
ARRAY [1..10, 1..10] OF real;
MAX, S:real;
BEGIN
{Ввод матрицы с клавиатуры}
randomize;
FOR i:=1 TO 10 DO
FOR
j:=1 TO 10 DO
BEGIN
write(’A[’,i, ’,’ ,j,’]=’);
readln(A[i,j])
END;
{Нахождение минимального элемента в матрице A(10,10)}
MAX:=A[1,1];
FOR i:=1 TO 10 DO
FOR
j:=1 TO 10 DO
IF
MAX<A[i, j] THEN MAX:=A[i, j];
{Нахождение суммы элементов |a(i,j)|<0.5}
S:=0;
FOR
i:=1 TO 10 DO
32

Страницы