Форум АНТИЧАТ - [Pascal] РАБОТА С МНОЖЕСТВЕННЫМИ ТИПАМИ ДАННЫХ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

[Pascal] РАБОТА С МНОЖЕСТВЕННЫМИ ТИПАМИ ДАННЫХ

25.03.2010, 12:26

Fox_NICK

Новичок

Регистрация: 10.01.2007

Сообщений: 21

Провел на форуме:
175230

Репутация: 15

[Pascal] РАБОТА С МНОЖЕСТВЕННЫМИ ТИПАМИ ДАННЫХ

Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности: знаки препинания и операций отношения.

Код:

program hw5 ;

uses crt;

var 

	cur_symb,symb_of_end,j,y	:	char;
	mn							:	set of char=['!'..'.'];
	v_mnoj						:	set of char=['!'..'.'];

BEGIN
	clrscr;
	cur_symb:='!';
	symb_of_end:='.';
	mn:=[];

	
	writeln('Введите символ указывающий на конец строки.');
	readln(symb_of_end);
	
	v_mnoj:=['!'..'.'];
	writeln('Введите множество символов.');
	while cur_symb<>symb_of_end do begin
		read(cur_symb);
		if cur_symb in v_mnoj then mn:=mn+[cur_symb];
		
	end;
	writeln('В множестве содержатся:');
	writeln('знаки препинания:');
	for j:='!' to '.' do
		if j in mn then writeln(j);	

	
END.

не работает( не подскажите в чем ошибка?