RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 197129: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Бинарный поиск Элемент с заданным ключом (значением) ... Консультация # 197130: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Одна запись журнала учета содержит поля: код игрушки, название игрушки, тип игрушки, во зрастные ограничения (например, от 6 лет), цена за единицу, количество в наличии, да та поступления в магазин, поставщик. Поиск - по дате поступления. Pascal ... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 18.11.2019, 06:34 Консультирует Лысков Игорь Витальевич (Старший модератор): Здравствуйте, ol!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Бинарный поиск Элемент с заданным ключом (значением)
Дата отправки: 18.11.2019, 16:34 Консультирует puporev (Профессионал): Здравствуйте, dkhrebtovich! Код (Pascal) :: выделить код var a,z:array [1..100] of integer;
n,k,i,first,last,mid,x:integer;
begin
randomize;
repeat
write('Введите размер массива от 3 до 100 n=');
readln(n);
until n in [3..100];
//создаем упорядоченный массив(по возрастанию, можно наоборот)
for i:=1 to n do
begin
if i=1 then a[i]:=1
else a[i]:=a[i-1]+1+random(3);
write(a[i]:4);
end;
writeln;
write('Введите число для поиска в массиве x=');
readln(x);
first:=1;
last:=n+1;
while first <> last do
begin
mid:=first+(last-first) div 2;
if x<=a[mid] then last:=mid
else first:=mid+1;
end;
if a[last]=x then writeLn('Число ',x,' есть в массиве')
else writeLn('Числа ',x,' нет в массиве');
end.
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 18.11.2019, 16:52 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, rail! Код (Pascal) :: выделить код const
n=3;
type
tStr=string[30];
tToys=record
article:tStr;
name:tStr;
clas:tStr;
mutare:integer;
cost:real;
count:integer;
data:tStr;
diler:tStr;
end;
var
a:array[1..n]of tToys;
b:integer;
c:tStr;
begin
for b:=1 to n do
begin
writeln('parametrs toys[',b,']');
write('Enter article:=');readln(a[b].article);
write('Enter name:=');readln(a[b].name);
write('Enter class:=');readln(a[b].clas);
write('Enter mutare:=');readln(a[b].mutare);
write('Enter cost:=');readln(a[b].cost);
write('Enter count:=');readln(a[b].count);
write('Enter date:=');readln(a[b].data);
write('Enter diler:=');readln(a[b].diler);
writeln;
end;
writeln;
write('Enter parametr: arrivals date:=');readln(c);
b:=1;
while(b<=n)and(a[b].data<>c)do inc(b);
if b<=n then writeln('name:',a[b].name,' count:=',a[b].count)
else writeln('record no fount');
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
