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

ЕСЛИ(лог_выражение; значение_если_истина; значение_если_ложь)

Лог_выражение  — это любое значение или выражение, принимающее значения ИСТИНА или ЛОЖЬ. Например, F3>=B3 — это логическое выражение; если значение в ячейке F3 больше или равно значению в ячейке B3, то выражение принимает значение ИСТИНА. В противном случае — ЛОЖЬ.

Значение_если_истина   — это значение, которое возвращается, если лог_выражение равно ИСТИНА. Например, если этот аргумент — строка «выполнен» и лог_выражение равно ИСТИНА, тогда функция ЕСЛИ отобразит текст «выполнен».

Значение_если_ложь   — это значение, которое возвращается, если лог_выражение равно ЛОЖЬ. Например, если этот аргумент — строка «не выполнен» и лог_выражение равно ЛОЖЬ, то функция ЕСЛИ отобразит текст «не выполнен».. 

3. СРЗНАЧ(): возвращает среднее (арифметическое) своих аргументов.

Синтаксис

СРЗНАЧ(число1; число2; ...)

Число1, число2, ...   — это от 1 до 30 аргументов, для которых вычисляется среднее. 

4. МИН(): возвращает наименьшее значение в списке аргументов.

Синтаксис

МИН(число1;число2; ...)

Число1, число2, ... — от 1 до 30 чисел, среди которых требуется найти наименьшее. 

5. СЧЕТЕСЛИ(): подсчитывает количество ячеек внутри диапазона, удовлетворяющих заданному критерию.

Синтаксис

СЧЁТЕСЛИ(диапазон;критерий)

Диапазон — диапазон, в котором нужно подсчитать ячейки.

Критерий  — критерий в форме числа, выражения или текста, который определяет, какие ячейки надо подсчитывать. Например, критерий может быть выражен следующим образом: "<50000". 

 

Задание 3.

Задача 1. Составить программу расчета значений функции на интервале изменения , равном в равноотстоящих точках. Вычисленные значения сохранить в массиве . А также найти сумму положительных значений функции в расчетных точках.

Решение.

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

 

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

Program task1; 

Var x, a, b, dx, sum: Real;

    n, i: Integer;

    c: Array[1..100] of Real;

    symbol: Char; 

Begin 

   Write('number of points: '); readln(n);

   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 без остатка.

Решение.

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

 

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

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])

   End; 

   Writeln(''); Write('b:    ');

   For i:=1 To n Do Begin

      b[i] := 1;   key := False;

      For j:=1 To n Do

       If Trunc(a[i, j]) mod 3= 0 Then Begin

          b[i] := b[i] * a[i, j]; key := True

       End;

      If Not key Then b[i] := 0;

      Write(b[i]:7:2);

   End; 

   readln(symbol) 

End.