Как написать программу без Include (множества)?

17.06.2008, 18:19. **Показов** 2592. **Ответов** 3

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

Pascal

var sText:string; letters :set of char; i,L:Integer; ch:char;
begin
    write('Input some text: ');
    readln(sText);
    L := Length(sText);
    letters := [];
    for i:=1 to L do begin
        Include(letters, sText[i]);
    end;
    writeln('Text has this letters:');
    for i:=0 to 127 do begin
        ch := Chr(i);
        if (ch in ['A'..'Z','a'..'z']) and (ch in letters) then write(ch);
    end;
    writeln;
    readln;
end.

@Arustarh Dark · 17.06.2008, 19:37

с помощью массива

17.06.2008, 19:55

напишите код программы.я потому что сам не смогу

Vovan-VE · 17.06.2008, 20:20

Если со множествами, но именно без Include, то строку

Pascal

1	Include(letters, sText[i]);

заменить на

Pascal

1	letters := letters + [sText[i]];

@Arustarh Dark 62 / 63 / 12 Регистрация: 08.06.2008 Сообщений: 243
	17.06.2008, 19:37	2
	с помощью массива 0

milochka
	17.06.2008, 19:55	3
	напишите код программы.я потому что сам не смогу

	17.06.2008, 20:20

Опции темы