Pascal, помилка 106, масив записів) Допоможемо Даші знайти помилку!

Створено масив із 5 записів.

Організовано введення даних у записі.

!Дані в перший запис успішно вводяться!

При введенні даних у поле FIO! 2й! запису фарбується з помилкою 106.

якщо у FIO замість прізвища ввести число, не фарбується :) На відповідях говорять типу працює і я балабол) сам код:

manager:array[1..5] of anketa;

do with manager[i] do

writeln('Vvedite dannye',i,'managera');

writeln('Kakoi mesyac ishem?');readln(n);

if manager[i].d=n then

  • Найкращі зверху
  • Перші зверху
  • Актуальні зверху

free pascal та pascal на андроїді відмовляються це виконувати)

Що відмовляються виконувати?

Це сайт із валідною імплементацією паскаля, там твій вихідник працює. Робимо висновки – проблема у твоєму середовищі виконання.

ось така штука у фрі паскалі:

Running "c:\fpc\2.6.4\bin\i386-win32\lab 5-5.exe"

Введіть дані 1 манагера

God rozhdenia 1234

Введіть дані 2 манагери

Runtime error 106 at $0040151C

Проблема твого freepascal.

сподіваюся на це) потім доводь викладаю, що все працює: D

Free Pascal Compiler version 3.0.2 [2017/02/16] for x86_64

Збирає добре, наповнення даних відбувається коректно. Спробуй зібрати іншим компілятором. І підстави пропуск після номера менеджера в промпті введення даних.

даші

до речі у тебе if manager[i].d=n then якщо місяць порівнюємо, то не [i].m=n хіба має бути?

десь вже говорили в темі) але дякую що помітили і сказали)

так код у тебе заробив? скинь вже після правок

у мене так не заробив, в інших працює проблемакомпіляторі, мабуть

А ти ніде пам'ять, доступну програмі, не обмежуєш?

так начебто не прописував такого)

Введіть dannye 1managera

ВАСЯ ІВАНОВИЧ ПЕТРІВ

Введіть dannye 2managera

ІВАНІВ ВАСЯ ВАСЯ

Введіть dannye 3managera

У тебе помилка тільки в тому, що ти просиш ввести місяць, а він заданий як INT, а користувач може ввести не цифри 1-12, а "ВЕРЕСЕНЬ" і буде помилка

і ще в тебе в кінці запитує якийсь місяць шукаємо і він повинен знайти збіг і написати ім'я манагера, але у тебе там якийсь кривий код, так що він у порожнечі шукає

ТОМУ ЩО в тебе не прописанна змінна на початку коду n:integer; я її прописав і все запрацювало