ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Pascal] РАБОТА С МНОЖЕСТВЕННЫМИ ТИПАМИ ДАННЫХ
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

[Pascal] РАБОТА С МНОЖЕСТВЕННЫМИ ТИПАМИ ДАННЫХ
  #1  
Старый 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.
не работает( не подскажите в чем ошибка?
 
Ответить с цитированием

  #2  
Старый 25.03.2010, 17:10
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184

Репутация: 47
По умолчанию
Вот исправленная и подправленная версия, думаю поймете что к чему

PHP код:
var

    cur_symb, symb_of_end, y, j: char;
    mn, v_mnoj, v_mnoj2:  set of char;

begin
  v_mnoj:=['!'..'.'];
  v_mnoj2:=[':'..'?'];
  cur_symb:=' ';
  mn:=[];
 {writeln('Введите символ указывающий на конецстроки.');}
  readln(symb_of_end);
 {writeln('Введите множество символов.');}
    while cur_symb <> symb_of_end do
    begin
           read(cur_symb);
           if (cur_symb in v_mnoj) or (cur_symb in v_mnoj2) then mn:=mn+[cur_symb]
      end;
 {writeln('В множестве содержатся:');
    writeln('знаки препинания:');}
    for j:='!' to '.' do
        if j in mn then write(j,' ');
    for j:=':' to '?' do
        if j in mn then write(j,' ');
  readln;
  readln;
end. 
P.S. Добавил еще символы '!' '<' '>' '?' ':' ';'
Последний раз редактировалось Soherox; 25.03.2010 в 17:16..
 
Ответить с цитированием

  #3  
Старый 25.03.2010, 19:48
Fox_NICK
Новичок
Регистрация: 10.01.2007
Сообщений: 21
Провел на форуме:
175230

Репутация: 15
По умолчанию
ооо точно) сенк большое) + =)
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Посимвольный перебор в базах данных на примере MySQL LoFFi Чужие Статьи 5 30.04.2007 05:05
Перехват данных, кто, где и как? GreenBear Чужие Статьи 1 16.12.2006 16:43
Перехват данных: кто, где и как И.Г. Мировые новости 0 03.12.2006 22:46
Sql инъекция и Oracle, часть первая k00p3r Чужие Статьи 0 13.06.2005 11:23
SQL Injection в Oracle k00p3r Чужие Статьи 0 12.06.2005 12:41



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ