Министерство образования Республики Беларусь
Оршанский колледж ВГУ имени П.М. Машерова
Отчет
по лабораторной работе
Специальность: "Программное обеспечение информационных
технологий"
Тема: Поиск элемента в массиве
Выполнила учащаяся Шишкова К.А.
Орша, 2019
Цель: научиться использовать быстрые алгоритмы сортировки массивов алгоритм информационный программа
Время выполнения: 2 ч.
Оборудование: ПК, IDE.
1.Реализуем алгоритм поиска на языке Pascal ABC
program poisk;
const n=5;
var
i:integer;
la:array[0..n] of integer;
begin
Randomize;
for i:=0 to n do begin
la[i]:=Random(10);
Write(la[i]:3); end;
Writeln;
i:=0;
for i:=0 to n do
if la[i]=n then Writeln(' 4islo n:= ', n, ' stoit na ', i+1, ' meste v massive');
Writeln(' end');
Readln;
end.
Рисунок 1 - алгоритм поиска
2. Алгоритм поиска на языке Pascal ABC
uses crt;
const N=10;
var i, L,R,M:integer;
x:array[1..N]of char;
a:char;
begin
for i:=1 to 10 do
read(x[i]);
readln;
L:=1;
R:=N+1;
write('Нужный символ -> ');
readln(a);
while R-L<>1 do
begin
M:=L+(R-L) div 2;
if x[M]<=a then L:=M else R:=M;
end; if (R>L) and (a=x[l]) then writeln('X[',L,']=',a) else writeln;
readln;
end.
Рисунок 2 - программа выполняющая поиск элемента массива
Вывод: Реализовали программы выполняющие поиск элемента массива. Научилась использовать быстрые алгоритмы сортировки массивов.