Массив

[DowJones]

День добрый) Дали написать задачу: в целочисельном массиве [1..b] найти число, которое повторяется максимальное количество раз. Если чисел два - то одно из них. Собственно я написал но возникла такая проблемка: b никак не хочет обьявляться. Пробовал его обьявить со всеми переменными типа integer - никак не видит и выдает ошибку Неизвестный идентификатор.
"b" - это число, котороя я должен ввести сам с клавиатуры при запуске программы, тоесть это размерность массива, от 1 до b. Начало было примерно такое:
program sasa;
uses crt;
var x:array [1..b] of integer
y:real;
i,j,max,s,b:integer;
begin
Может кто шарит в этом, поможет.. Как нужно обьявить b что бы прога заработала?..

[Serge_Bliznykov]

b никак не хочет обьявляться.

LOL!


Смотрите, то, что Вы пытаетесь сделать, называется "динамические массивы".
И тут всё упирается в то, какие есть ограничения на размер массива и какой у Вас компилятор Паскаля (в новых компиляторах FreePascal/Delphi есть нормальные динамические массивы, для старых нужного эффекта приходится добиваться более сложным путём. Подозреваю, что у Вас как раз второй случай, у Вас же старый TurboPascal ?)

самые простые варианты, использовать статический массив вместо динамического.

примерно так.

если переменная b задана в условиях задачи.
тогда:

program sasa;
uses crt;
const b =  20; {берём из условия задачи}
var 
  x:array [1..b] of integer;
.....

если переменная b не задана в условиях задачи, но мы можем позволить себе ограничить её каким-то заведомо большим значением.
Тогда:

program sasa;
uses crt;
const MaxSize =  1000; {задаём размер заведомо больше возможного значения}
var 
  x:array [1..MaxSize] of integer;
  b : integer;
.....
begin 
   repeat
      Write('Введите размер массива (от 1 до ',MaxSize,'): ');
      Readln(b);
   until (b>=1) and (b<=MaxSize);
...

есть и другие, более сложные способы решения задачи (например, использование указателей и динамическое выделение памяти). Но, думаю, что Вам и этих вариантов на первое время хватит...

[DowJones]

У меня старенький ТурбоПаскаль!)

[Serge_Bliznykov]

я дописал свой пост...

[DowJones]

Да, спасибо большое. Попробую. второй вариант!)

[DowJones]

Блин сейчас на екзамене препод говорит что есть еще какой то вариант! Вывести именно b. Не задавая ей какое либо число вначале... Отзовитесь кто нибудь)

[Vanta11a]

Пост №2, второй вариант. Задание размера массива изначально больше максимального.

[Serge_Bliznykov]

Сообщение от Vanta11a

Пост №2, второй вариант. Задание размера массива изначально больше максимального.

угу. я бы начал с того, чтобы этот второй вариант задействовал.
я так понял, что автор темы именно этот вариант и взял!


НО! Можно и через указатели сделать.
вот рабочий пример:

{пример реализации динамического массива в TurboPascal
 через указатели и выделение памяти
}
type
  MyDynArray = array[1..1] of integer;
  pMyDynArray =^MyDynArray;

var
  Arr : pMyDynArray;
  i, a,  b: integer;

begin
  WriteLn('Введите размер массива (b): ');
  Readln(b);

  GetMem( Arr, sizeOf(Integer)*b); {выделим требуемую под массив память. Проверку на доступность не делаем!}

{$R-}   {выключим проверку выхода индекса массива за пределы границ,
          объявленных в типе массива}
  for i:=1 to b do begin
    Write('введите ',i,' элемент массива');
    Readln(Arr^[i]);
  end;

  WriteLn;
  WriteLn('Для доказательство того, что всё работает, выведем содержимое исходного массива в обратном порядке');

  WriteLn('______________________  содержимое массива _________');
  for i:=b downto 1 do
    WriteLn(Arr^[i]);

  {теперь освободим занятую память}
  FreeMem(Arr, sizeOf(Integer)*b);

  Readln;
end.

а вот какого ответа от Вас преподаватель ожидал - трудно предположить.
Всё, что угодно. Вплоть до использования связных динамических списков!

[Poma][a]

У меня старенький ТурбоПаскаль!)

А преподавателя что?

[DowJones]

Это у препода ТурбоПаскаль!)
Ребят всем спасибо!)