Преподаватель дал задачу "Написать процедуру или функцию поиска по массиву". Я написала программу поиска по массиву показала преподавателю, но его не устраивает что я не использовала ни процедур, ни функций. Программа работает, уже не знаю что делать. Посоветуйте что-нибудь.
Program poisk; Uses crt; Var n,r,i,s:integer; a:array [1..30] of integer; Begin Clrscr; textcolor (9); r:=0; writeln ('Vvedite kol-vo elementov v massive'); readln (n); For i:=1 to n do begin writeln ('Vvedite ',i,'-e chislo masiva'); readln (a[i]); end; writeln ('Vvedite chislo dlya poiska'); readln (s); For i:=1 to n do If a[i]=s then r:=r+1; If r=0 then writeln ('chislo ',s,' ne obnarugenno ni razy') else writeln ('chislo ',s,' obnarugenno ',r,' raz(a)'); readkey; END.
Client
28.02.2010 18:51
Program poisk; Uses crt; Var n,r,i,s:integer; a:array [1..30] of integer;
function find:byte; var k,i:byte; s:integer; begin k:=0; writeln ('Vvedite chislo dlya poiska'); readln (s); For i:=1 to n do If a[i]=s then inc(k); find:=k end;
Begin Clrscr; textcolor (9); r:=0; writeln ('Vvedite kol-vo elementov v massive'); readln (n); For i:=1 to n do begin writeln ('Vvedite ',i,'-e chislo masiva'); readln (a[i]); end; r:=find; If r=0 then writeln ('chislo ',s,' ne obnarugenno ni razy') else writeln ('chislo ',s,' obnarugenno ',r,' raz(a)'); readkey; END.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.