Постановка задач

begin Write(F, mas[0]); Write(mas[0]); for

жүктеу/скачать 0,65 Mb.

бет	3/8
Дата	07.04.2023
өлшемі	0,65 Mb.
	#80314

1 2 3 4 5 6 7 8

Байланысты:
KURSOVAYa YaZYKI 2

begin
Write(F, mas[0]);
Write(mas[0]);
for i := 1 to n - 1 do
begin
Write(F, ', ', mas[i]);
Write(', ', mas[i]);
end;
writeln(F);
writeln();
end;
end;
{------------------------------------------------------------------------------}
{3-линейный поиск элемента в массиве
(использует глобальные переменные F, mas, n)}
procedure FindLinEl();
var
el: Integer; {какой элемент массива ищем}
i: Integer; {переменная цикла}
nstep: Integer; {кол. шагов}
find: Boolean;{было ли найдено}

begin
writeln('Линейный поиск элемента в массиве');
write('Введите число которое требуется найти: ');
readln(el);
nstep := 0;
find := false;
for i := 0 to n - 1 do
begin
Inc(nstep); {+1 к кол. шагов}
{если элемент найден, то прервем поиск}
if el = mas[i] then
begin
find := True; {флаг, что нашли}
break; {прерываем цикл}
end;
end;
{сообщаем о результате поиска}
writeln(F, 'Линейный поиск элемента в массиве. el = ', el);
if find then
begin
writeln(F, 'Найдено! Количество шагов = ', nstep);
writeln('Найдено! Количество шагов = ', nstep);
end
else
begin
writeln(F, 'Не найдено! Количество шагов = ', nstep);
writeln('Не найдено! Количество шагов = ', nstep);
end;
end;

{------------------------------------------------------------------------------}

{5-сортировка массива методом пузырька
(использует глобальные переменные F, mas, n, masissort)}
procedure SortP();
var
i, j, tmp: Integer;
nstep: Integer; {кол. шагов}
nswap: Integer;{кол. перестановок}

жүктеу/скачать 0,65 Mb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8