Реферат: Операционная система.

Write('a, b (a<b): '); readln(a, b);

dx := (b-a)/(n-1); sum := 0;

For i:=1 To n Do Begin

x := a + (i-1)*dx;

c[i] := 5*exp(0.5*x)*sin(Pi*x);

Writeln(x:8:3, c[i]:15:3);

If c[i] > 0 Then sum := sum + c[i]

End;

Writeln('sum = ', sum:8:3);

readln(symbol)

End.

Задача 2. Для произвольного двумерного массива , содержащего значения типа Real, состоящего из строк и столбцов, сформировать одномерный массив , каждый элемент которого равен произведению значений элементов соответствующей строки массива , целая часть которых делится на 3 без остатка.

Решение.

Таблица обозначений в программе:

Наименование	Обозначение	Тип
Массивы	a, b	Real
Количество строк (столбцов) массива a	n	Integer
Индексы	i, j	Integer
Указатель наличия в соответствующей строке массива элементов, целая часть которых делится на 3 без остатка	key	Boolean
Вспомогательная переменная	c	Char

Текстпрограммы:

Program task2;

Var a: Array[1..10, 1..10] of Real;

b: Array[1..10] of Real;

n, i, j: Integer;

key: Boolean;

symbol: Char;

Begin

Write('rows number of array a: '); readln(n);

Writeln(''); Write(' ');

For j:=1 To n Do write(j:7);

Writeln('');

For i:=1 To n Do Begin

Write('Row ', i:2, ' ');

For j:=1To n Do Read(a[i, j])