На главную

 

 

Сайт основан 1 марта 2003 года

= Основы алгоритмизации и программирования =


Примеры программ.
Поиск элементов с заданными свойствами.


Задача 1.

Определить есть или нет в заданном массиве число f. Если есть, то напечатать номер этого элемента.

 

program poisk;

  var i,f,n:integer;

  y : string;

  const  a : array[1..10] of integer =(2,5,7,13,8,9,3,16,6,1);

begin

writeln ('Введите искомое число');

read(f);

y:='no';i:=1;

while (i<=10) and (y='no') do

   begin

    if a[i]=f then begin y:='yes'; n:=i; end;

    i:=i+1;

   end;

writeln (y);

if y='yes' then writeln ('номер=',n)

end.}

 

Задача 2.

Найти максимальный элемент и его индекс в заданном массиве.

 

program maximum;

  var i,m,nm:integer;

  const  a : array[1..10] of integer =(2,5,7,13,8,9,3,16,6,1);

begin

m:=a[1]; nm:=1;

for i:=2 to 10 do if a[i]>m then begin m:=a[i]; nm:=i; end;

writeln ('максимальный= ',m,'  номер максимального= ',nm);

end.

 

Задача 3.

Найти максимальные элементы и их индексы в заданных массивах b и c, используя в качестве подпрограммы программу задачи 2.

 

program maximum2;

  type d=array[1..10] of integer;

  var m1,nm1,m2,nm2:integer;

  const  b : d=(2,5,7,13,8,9,3,16,6,1);

         c : d=(12,25,17,213,8,9,3,16,6,11);

  procedure max( a:d; var m, nm : integer);

    var i:integer;

    begin

    m:=a[1]; nm:=1;

    for i:=2 to 10 do if a[i]>m then begin m:=a[i]; nm:=i; end;

    end;

begin

max(b,m1,nm1);

writeln ('максимальный= ',m1,'  номер максимального= ',nm1);

max(c,m2,nm2);

writeln ('максимальный= ',m2,'  номер максимального= ',nm2);

end.

 

 


Наверх

На главную

 

Дизайн : WWS corporation & ROKI company.