Паскаль

воскресенье, 12 декабря 2010

21:33

все записи пользователя в сообществе 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

URL

http://www.the5k.org/ Current music: Pulp Fiction - ... съел 6 подряд пирожков с капустой и чуствую себя голодн... сегодня чудесный день, сменяющийся то солнцем, то дождями...

Это вам не дули воробьям крутить! Current music: Aer... Потом еше найду :) "Когда я наконец приучил себя к мысли, что погода не...

Комментарии

12.12.2010 в 22:12

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;

URL

12.12.2010 в 22:20

atlant-e

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

URL

13.12.2010 в 16:49

[revolver]

Люди никогда не достигнут совершенства, пока будут оставаться людьми...

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

URL

13.12.2010 в 20:29

Alala

ну, и???

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

URL


Запомнить

Паскаль

ru_programming