Осуществить ввод элементов заданного множества с клавиатуры

@Алёнчик · Регистрация: 14.05.2012

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

Осуществить ввод элементов заданного множества с клавиатуры.Определить является ли множество {'T' , 'h' , 'j' , 'к'} его подмножеством.
Заранее спасибо

неужели никто помочь не может(((((

@maximus09 · 26.01.2009, 19:30

Код выполнен на Delphi.

Ввод символов-элементов множества осуществляется циклично. Условием выхода из цикла является ввод нуля (0).

Pascal

type
  mnogestwo = set of 'A'..'z';
var
  s:char;
  data:mnogestwo;
  base:mnogestwo;
begin
  Include(base,'T');
  Include(base,'h');
  Include(base,'j');
  Include(base,'k');
 
  Writeln('Vvedite element mnogestva');
 
  repeat
  readln(s);
  if s <> '0' then
    Include(data,s);
  until(s = '0');
 
  if base <=  data  then
    Writeln('Javlaetsja podmnogestwom')
  else
    Writeln('NE javlaetsja podmnogestwom');
 
  readln(s);

@Алёнчик · 26.01.2009, 20:12 **[ТС]**

Сообщение от maximus09

Код выполнен на Delphi.

Ввод символов-элементов множества осуществляется циклично. Условием выхода из цикла является ввод нуля (0).

Pascal

type
  mnogestwo = set of 'A'..'z';
var
  s:char;
  data:mnogestwo;
  base:mnogestwo;
begin
  Include(base,'T');
  Include(base,'h');
  Include(base,'j');
  Include(base,'k');
 
  Writeln('Vvedite element mnogestva');
 
  repeat
  readln(s);
  if s <> '0' then
    Include(data,s);
  until(s = '0');
 
  if base <=  data  then
    Writeln('Javlaetsja podmnogestwom')
  else
    Writeln('NE javlaetsja podmnogestwom');
 
  readln(s);

спасиб)))жаль только, что не на pascal(

@Puporev · 26.01.2009, 21:14

жаль только, что не на pascal

Интересно, чем этод код отличается от Паскаля?

Добавлено через 9 минут 31 секунду
Вот уж точно на Паскале и пожалуй поточнее.

Код

[SIZE=2]
uses crt;
const m=['T','h','j','k'];[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]заданное множество[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]var m1:set of char;[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]тип множество символов[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]a:char;[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]символ[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]begin
clrscr;
writeln('Vvedite elementy mnozestva:');
m1:=[];[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]сначала множество пустое[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]repeat
readln(a);
m1:=m1+[a];[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]наполняем его[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]until a='0';[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]ноль выход[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]if m-m1=[] then write('Yavlyaetsa!')[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]если вычесть из заданного множества и там ничего не останется, значит является[/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]else write('Ne yavlyaetsa!');
readln
end.
[/SIZE]

@Алёнчик · 26.01.2009, 21:35 **[ТС]**

Спасибочки,я сматрю многим помогаешь,супер)))

@maximus09 · 27.01.2009, 18:26

Не совсем понятно, Puporev, чем твой код точнее моего.

Тем, что вначале процедуры отсутствует обнуления множеств?

Сколько не компилировал, всегда при инициализации множество получается пустым.

Функцией Include мы добавляем в это множество новые элементы.

Оператор "<=" осуществляет проверку включения "левого" множества в "правое" (странно, что этот оператор совпадает с оператором "меньше, либо равно", но таков уж синтаксис Паскаля).

Что касается того, что код написан на Delphi, то попробуйте его напрямую (ничего не изменяя) перенести в Pascal. Я думаю, ничего особо страшного не произойдет, т.к. Delphi и Pascal - языки родственные.

Однако если что-то не будет компилироваться, напишите. Я хотя бы буду в курсе. Самому обзаводиться компилятором Паскаля не очень-то охото. Delphi меня вполне устраивает (в этом плане).

@Puporev · 27.01.2009, 18:29

Интересно, чем этод код отличается от Паскаля?

Интересно, что я этим хотел сказать?

@наташа1990 · 25.02.2010, 17:05

Составить множество символов,одинаковых в каждом слове
заданного предложения.
(эту задачи нужно составить на паскале, может кто-нибудь поможет. ожалуйста)))):-[)

@Алёнчик 4 / 4 / 0 Регистрация: 14.05.2012 Сообщений: 116
		1
	Осуществить ввод элементов заданного множества с клавиатуры 26.01.2009, 16:06. Показов 12517. Ответов 7 Метки нет (Все метки) Осуществить ввод элементов заданного множества с клавиатуры.Определить является ли множество {'T' , 'h' , 'j' , 'к'} его подмножеством. Заранее спасибо неужели никто помочь не может((((( 0

@Алёнчик 4 / 4 / 0 Регистрация: 14.05.2012 Сообщений: 116
	26.01.2009, 21:35 [ТС]	5
	Спасибочки,я сматрю многим помогаешь,супер))) 0

@maximus09 32 / 32 / 4 Регистрация: 29.12.2008 Сообщений: 75
	27.01.2009, 18:26	6
	Не совсем понятно, Puporev, чем твой код точнее моего. Тем, что вначале процедуры отсутствует обнуления множеств? Сколько не компилировал, всегда при инициализации множество получается пустым. Функцией Include мы добавляем в это множество новые элементы. Оператор "<=" осуществляет проверку включения "левого" множества в "правое" (странно, что этот оператор совпадает с оператором "меньше, либо равно", но таков уж синтаксис Паскаля). Что касается того, что код написан на Delphi, то попробуйте его напрямую (ничего не изменяя) перенести в Pascal. Я думаю, ничего особо страшного не произойдет, т.к. Delphi и Pascal - языки родственные. Однако если что-то не будет компилироваться, напишите. Я хотя бы буду в курсе. Самому обзаводиться компилятором Паскаля не очень-то охото. Delphi меня вполне устраивает (в этом плане). 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.01.2009, 18:29	7
	Интересно, чем этод код отличается от Паскаля? Интересно, что я этим хотел сказать? 0

@наташа1990 0 / 0 / 0 Регистрация: 25.02.2010 Сообщений: 3
	25.02.2010, 17:05	8
	Составить множество символов,одинаковых в каждом слове заданного предложения. (эту задачи нужно составить на паскале, может кто-нибудь поможет. ожалуйста)))):-[) 0

Опции темы