Паскаль

[atlant-e]

Проверьте пожалуйста почему не работает. Задача такая: заполняются пять множеств символами, вводится отдельный символ и нужно вывести номера множеств в которых лежит введенный символ

type
  c = set of char; 
  s = array[1..5] of c;

var
  b: s;

procedure input(var a: s);
var
  i: byte;ch: char;
begin
  for i := 1 to 5 do
  begin
    writeln('Input name of product. Input space to stop'); a[i] := [];
    repeat
      read(ch);
      if ch <> ' ' then a[i] := a[i] + [ch];
    until ch = ' ';
  end; end;

procedure check(a: s);
var
  hc: char; i: byte;
begin
  write('Check?');
  readln(hc);
  for i := 1 to 5 do
    if hc IN a[i] then write(i:3);
end;

begin
  input(b);
  check(b);
  readln;
end.

не могу найти ошибку. все время выводит все 5 множеств

@темы: Pascal

Comments

[Alala]

синтаксис паскаля я забыла чуть более, чем совсем но смущает, что массив
s = array[1..2] of c;
1..2
а цикли везде до 5ти

+ могу посоветовать добавить логирование для отладки
procedure check(a: s);
var
hc: char; i: byte;
begin
write('Check?');
readln(hc);
// где-нибудь здесь вывести содержимое множеств и введенный символ
for i := 1 to 5 do
if hc IN a[i] then write(i:3);
end;

[atlant-e]

да,там до 5-ти, поправил. но все равно не работает.

[[revolver]]

ой, не связано ли это как-то с зачётной неделей?) Воспользуйтесь трассировкой.

[Alala]

[revolver]
а с чем же еще это может быть связано?))))