Полная версия этой страницы: Need help
Проблема ... по паскалю ... как написать прогу по последовательному поиску в массиве ... месяц назад вроде все писалось,сейчас нифига не получается ...
если я правильно понял то алгоритм такой:
запускаем цикл от 1 до n (где n - максимум элементов массива) и на каждом витке цикла проверяем соответсвует ли ключеове слово текущему значению. c'est tout =)
запускаем цикл от 1 до n (где n - максимум элементов массива) и на каждом витке цикла проверяем соответсвует ли ключеове слово текущему значению. c'est tout =)
Цитата(df @ Jan 21 2004, 10:51 PM)
если я правильно понял то алгоритм такой:
запускаем цикл от 1 до n (где n - максимум элементов массива) и на каждом витке цикла проверяем соответсвует ли ключеове слово текущему значению. c'est tout =)
запускаем цикл от 1 до n (где n - максимум элементов массива) и на каждом витке цикла проверяем соответсвует ли ключеове слово текущему значению. c'est tout =)
df может мне PAS кинешь? или у тебя не стоит этот паскалюччио?
plizzz
Цитата(zima @ Jan 21 2004, 10:53 PM)
Цитата(df @ Jan 21 2004, 10:51 PM)
если я правильно понял то алгоритм такой:
запускаем цикл от 1 до n (где n - максимум элементов массива) и на каждом витке цикла проверяем соответсвует ли ключеове слово текущему значению. c'est tout =)
запускаем цикл от 1 до n (где n - максимум элементов массива) и на каждом витке цикла проверяем соответсвует ли ключеове слово текущему значению. c'est tout =)
df может мне PAS кинешь? или у тебя не стоит этот паскалюччио?
plizzz Код
program dfrocks;
var strSearch:word;
var i:longint;
<.. тут объявляешь свой массив, назочем его arrMine ..>
begin
<.. тут заполянешь массив ..>
writeLn ( 'VVodi poiskovoe slovo!' );
readLn ( strSearch );
{ 100 ниже для примера написал. там должно стоять число элементов массива }
for i:=1 to 100 do
begin
if strSearch=arrMine[i] then writeLn ( 'SOvpadaushiy element v yacheyke №', i );
end;
end.
var strSearch:word;
var i:longint;
<.. тут объявляешь свой массив, назочем его arrMine ..>
begin
<.. тут заполянешь массив ..>
writeLn ( 'VVodi poiskovoe slovo!' );
readLn ( strSearch );
{ 100 ниже для примера написал. там должно стоять число элементов массива }
for i:=1 to 100 do
begin
if strSearch=arrMine[i] then writeLn ( 'SOvpadaushiy element v yacheyke №', i );
end;
end.
_________
вот так, есди я синтакиси не перепутал. с тебя пиво
Если работать будет
Цитата(zima @ Jan 21 2004, 11:05 PM)
Если работать будет
единственное в чем я не уверен - так это в синтаксисе ифа
уже уверен. вроде...
по поводу твоего уточнения по аське
Код
program dfrocks;
var strSearch,i:longint;
var arrMine:array[1..100] of longint;
begin
for i:=1 to 100 do
begin
arrMine[i] := random(10);
end;
writeLn ( 'VVodi poiskovoe chislo!' );
readLn ( strSearch );
for i:=1 to 100 do
begin
if strSearch:=arrMine[i] then writeLn ( 'SOvpadaushiy element v yacheyke №', i );
end;
end.
var strSearch,i:longint;
var arrMine:array[1..100] of longint;
begin
for i:=1 to 100 do
begin
arrMine[i] := random(10);
end;
writeLn ( 'VVodi poiskovoe chislo!' );
readLn ( strSearch );
for i:=1 to 100 do
begin
if strSearch:=arrMine[i] then writeLn ( 'SOvpadaushiy element v yacheyke №', i );
end;
end.
а это точно!!!
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.