Блочный поиск

@manchester_alan · Регистрация: 05.01.2015

Author24 — интернет-сервис помощи студентам

Как программно реализовать алгоритм блочного поиска?

Добавлено через 1 час 17 минут

C++

#include<stdio.h>
void main()
{
    int i, a[100], b[100], j, s = 0, k, x, z;
    int t;
 
    for (i = 0; i < 100; i++)
        a[i] = 0, b[i] = 0;
 
    // Ввод массива (упорядоченного!)
    for (i = 0;; i++)   
    {
        printf("Enter A:");
        scanf("%d", &a[i]);
        if (a[i] == -1)
            break;
    }
 
    // Ввод длинн подмассивов
    for (j = 0;; j++)   
    {
        printf("Enter LEN");
        scanf("%d", &b[j]);
        if ((s += b[j]) >= i)
            break;
    }
 
    printf("Find:");
    scanf("%d", &x);
 
    j = 0;
    // printf("%d  %d  %d\n", k, a[k], b[j-1]);
    for (k = b[j++] - 1; (a[k] < x) && (k <= i); k += b[j++]) ; 
    if (k > i) {
        printf("Error");
        return;
    }
    for (z = k - b[j - 1]; (z <= k); z++) {
        if (a[z] == x) {
            printf("Number:%d\n", z);
            break;
        }
    }
    if (z >= k)
        printf("Not found\n");
}

Или помогите перевести с++ на delphi, а то я тут не все понимаю, как перевести.. Пожалуйста

@manchester_alan · 30.04.2016, 21:24 **[ТС]**

Никто не сможет перевести? не понимаю циклы

@JIeIIIa · 30.04.2016, 23:48

Delphi

var
   i, j, s, k, x, z, t: integer;
   a, b: array [0..99] of integer;
    
begin    
   s := 0;
   for i := 0 to 99 do
   begin
        a[i] := 0; b[i] := 0;
   end;
 
    // Ввод массива (упорядоченного!)
   i := -1; 
   repeat
      inc(i);
      write('Enter A:');
      readln(a[i]);
   until a[i] = -1;
            
    // Ввод длинн подмассивов
   j := -1; 
   repeat   
      inc(j); 
      write('Enter LEN ');
      readln(b[j]);
      s := s + b[j];
   until s >= i;
            
   write('Find: ');
   readln(x);
 
   j := 0;
   // writeln(k, '   ', a[k], '   ',b[j-1]);
   k := b[0] - 1;
   while (a[k] < x) and (k <= i) do
   begin 
      inc(j);
      k := k + b[j] ;      
   end; 
    
   if k > i then
   begin
       writeln('Error');
       exit;
   end;
 
   for z := k - b[j - 1] to  k do
       if (a[z] = x) then
       begin
           writeln('Number: ', z);
           break;
       end;
        
    
    if z >= k then
        writeln('Not found');
end.

Компилировать код не пробовал.

@manchester_alan 3 / 4 / 1 Регистрация: 05.01.2015 Сообщений: 465
	30.04.2016, 21:24 [ТС]	2
	Никто не сможет перевести? не понимаю циклы 0

	30.04.2016, 23:48

Опции темы

Блочный поиск

Решение