Автор работы: Пользователь скрыл имя, 22 Ноября 2010 в 02:19, Не определен
Контрольная работа
ЕСЛИ(лог_выражение; значение_если_истина; значение_если_ложь)
Лог_выражение — это любое значение или выражение, принимающее значения ИСТИНА или ЛОЖЬ. Например, F3>=B3 — это логическое выражение; если значение в ячейке F3 больше или равно значению в ячейке B3, то выражение принимает значение ИСТИНА. В противном случае — ЛОЖЬ.
Значение_если_истина — это значение, которое возвращается, если лог_выражение равно ИСТИНА. Например, если этот аргумент — строка «выполнен» и лог_выражение равно ИСТИНА, тогда функция ЕСЛИ отобразит текст «выполнен».
Значение_если_ложь —
это значение, которое возвращается, если
лог_выражение равно ЛОЖЬ. Например, если
этот аргумент — строка «не выполнен»
и лог_выражение равно ЛОЖЬ, то функция
ЕСЛИ отобразит текст «не выполнен»..
Синтаксис
СРЗНАЧ(число1; число2; ...)
Число1, число2,
... — это от 1 до 30 аргументов, для которых
вычисляется среднее.
Синтаксис
МИН(число1;число2; ...)
Число1, число2,
... — от 1 до 30 чисел, среди которых требуется
найти наименьшее.
Синтаксис
СЧЁТЕСЛИ(диапазон;критерий)
Диапазон — диапазон, в котором нужно подсчитать ячейки.
Критерий — критерий
в форме числа, выражения или текста, который
определяет, какие ячейки надо подсчитывать.
Например, критерий может быть выражен
следующим образом: "<50000".
Задание 3.
Задача 1. Составить программу расчета значений функции на интервале изменения , равном в равноотстоящих точках. Вычисленные значения сохранить в массиве . А также найти сумму положительных значений функции в расчетных точках.
Решение.
Таблица обозначений в программе:
Наименование | Обозначение | Тип |
Аргумент функции | x | Real |
Границы интервала изменения x | a, b | Real |
Количество точек | n | Integer |
Шаг изменения аргумента x | dx | Real |
Текущий номер расчетной точки | i | Integer |
Массив, содержащий вычисленные значения функции | c | Real |
Сумма положительных значений функции | sum | Real |
Вспомогательная переменная | c | Char |
Текст
программы:
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 без остатка.
Решение.
Таблица обозначений в программе:
Наименование | Обозначение | Тип |
Массивы | 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])
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.