Сделайте 3 шага навстречу PascalABC.NET:
Изучайте программирование вместе с PascalABC.NET! Следуйте стилю программирования PascalABC.NET! |
|
Система PascalABC.NET является совместной разработкой российских и немецких программистов. В России центр разработки находится в институте математики, механики и компьютерных наук Южного федерального университета.
PascalABC.NET активно используется в ряде средних и высших учебных заведений России и ближнего зарубежья. Так, на мехмате Южного федерального университета он используется для обучения 1 курса направления Информационные технологии в курсе Основы программирования, а также для обучения школьников в одной из самых больших в России Детской компьютерной школе.
Простота, современные возможности, свободный код — вот главные достоинства PascalABC.NET!
29.08.16. Вышла версия 3.2. Реализован оператор yield.
12.02.16. Вышла версия 3.1. Добавлены кортежи в стиле (a,b) и кортежное присваивание (a,b) := (b,a)
31.12.15. Версия 3.0.0.1128. Реализованы обобщенные методы расширения для операций
22.12.15. Версия 3.0.0.1116. Реализован новый синтаксис extension-методов
// Линейный поиск в массиве
// Уровень сложности: 1
function IndexOf(a: array of integer;
k: integer): integer;
begin
Result := -1;
for var i:=0 to a.Length-1 do
if a[i] = K then
begin
Result := i;
exit
end;
end;
const N = 10;
var a: array of integer;
begin
a := ArrRandom(N,0,19);
Writeln('Исходный массив: ');
a.Println;
var k := Random(20);
Writeln('Ищем элемент = ',k);
var ind := IndexOf(a,k);
if ind >=0 then
Writeln(K,' найден; индекс первого вхождения = ',ind)
else Writeln(K,' не найден');
ind := a.IndexOf(k);
Writeln('Результат работы стандартной IndexOf: ',ind);
end.
