Microsoft Еxcel -1979 жылы екі экономист студент Дэн Бриклин және Боб Френкстон үй тапсырмасын тез орындауға көмектесетін және уақытты үнемдейтін әдіс ойлап табуды шешті. Олар тарихта бірінші рет электронды кесте бағдарламасын жазып, оны Visible Calculator сөзінен қысқартылған VisiCalc (Көрсеткіш калькулятор) деп атады. сондықтан барлық электрондық кестелер бағдарламасы, оның ішінде Excel программасы Дэн мен Бобтың арқасында жүзеге асты. IBM және Macintosh компьютерлерінде жұмыс істейтін, ең озық үлгілерді ала отырып, бүгінгі заман талабына сай жасалған, электрондық кесте құрастыратын қолданбалы программа. Excel-дің соңғы нұсқаларында график тұрғызу, күрделі функциялар арқылы есеп-қисап жүргізу және бірнеше жұмыс кітаптарымен қатар жұмыс атқару сияқты мүмкіндіктер кеңінен қолданылады. Кестелік құрылымды құжаттармен жұмыс істеуге арналған кең таралған құралдардың бірі Microsoft Excel. Ол сандық мәліметтермен жұмыс істеу үшін негізделген
- Выбор нужной функции. Тут, конечно, желательно знать, какую функцию следует использовать и будет нарабатываться с опытом работы с функциями Excel; 2- Указание ее аргументов. Учитывая, что аргументами могут быть другие функции, здесь открывается большой простор для творчества и инженерного подхода к задаче. Пойдем дальше. Чтобы воспользоваться Мастером функций, необходимо выполнить следующие действия: 1. Установить прямоугольник курсора на ячейку, в которую требуется ввести формулу. В этой же ячейке, конечно, будет отображаться и результат работы формулы. 2. Активизировать на вкладке Формулы команду Вставить функцию либо при кнопки Вставить функцию , которая находится начале строки формул. Они полностью однотипны по своему действию, пользуйтесь, какой будет удобно. В результате отобразится окно Мастер функций — шаг 1 из2.
Источник: http://officeassist.ru/excel/kak-vstavit-funkciyu-v-excel/
var a:array[1..n] of integer;
i,k,m:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
k:=0; m:=0;
for i:=1 to n-1 do
begin
if a[i+1]>a[i] then begin m:=m+1; end
else begin if m>0 then k:=k+1; m:=0; end;
end;
if m>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив A:
7 30 22 0 17 4 2 32 39 26 23 41 1 38 47 21 38 31 43 7
k = 7