Ввести и вывести на экран множество по принципу «до первого существующего во множестве символа»

@sauron5676 · Регистрация: 24.05.2019

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

Построить и вывести на экран множество из символов латинского алфавита, сформированное по принципу «до первого уже существующего во множестве символа».

@bormant · 03.10.2019, 09:16

Pascal

var
  m: set of 'A'..'Z';
  c: Char;
begin
  repeat
    if UpCase(c) in ['A'..'Z'] then Include(m,UpCase(c));
    Write('A..Z: '); ReadLn(c);
  until UpCase(c) in m;
  Write('['); for c:='A' to 'Z' do if c in m then Write(c:2); WriteLn(']');
end.

Добавлено через 4 минуты
Или для только малых a..z:

Pascal

var
  m: set of 'a'..'z';
  c: Char;
begin
  repeat
    if c in ['a'..'z'] then Include(m,c);
    Write('a..z: '); ReadLn(c);
  until c in m;
  Write('['); for c:='a' to 'z' do if c in m then Write(c:2); WriteLn(']');
end.

Добавлено через 2 минуты
Или с более гибким заданием диапазона:

Pascal

type
  Range = 'a'..'z';
var
  m: set of Range;
  c: Char;
begin
  repeat
    if c in [Low(Range)..High(Range)] then Include(m,c);
    Write(Low(Range),'..',High(Range),': '); ReadLn(c);
  until c in m;
  Write('['); for c:=Low(Range) to High(Range) do if c in m then Write(c:2); WriteLn(']');
end.

@ValentinNemo · 03.10.2019, 09:50

bormant, а если в самом первом цикле в переменной с будет мусор символьного типа?

@bormant · 03.10.2019, 09:58

ValentinNemo,
c: Char -- глобальная переменная, на старте программы там #0.
Если код, включая объявление переменной, переедет в процедуру/функцию, потребуется перед циклом добавить явно c:=#0 или любой другой символ, который отсекается условием в строке 8.

Добавлено через 1 минуту
... а там, где поддержаны переменные с инициализацией, можно более естественно

Pascal

1
2
3

procedure Some;
var
  c: Char = #0;

@ValentinNemo · 03.10.2019, 12:49

bormant, во всех глобальных переменных на старте будут ноли? Очистка происходит автоматически?

@bormant · 03.10.2019, 17:18

ValentinNemo,
https://en.m.wikipedia.org/wiki/.bss

@ValentinNemo · 03.10.2019, 18:28

bormant, супер! Спасибо! Просветили, дремучего!

@sauron5676 0 / 0 / 0 Регистрация: 24.05.2019 Сообщений: 66
		1
	Ввести и вывести на экран множество по принципу «до первого существующего во множестве символа» 03.10.2019, 01:40. Показов 985. Ответов 6 Метки нет (Все метки) Построить и вывести на экран множество из символов латинского алфавита, сформированное по принципу «до первого уже существующего во множестве символа». 0

@ValentinNemo 2373 / 775 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	03.10.2019, 09:50	3
	bormant, а если в самом первом цикле в переменной с будет мусор символьного типа? 0

@ValentinNemo 2373 / 775 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	03.10.2019, 12:49	5
	bormant, во всех глобальных переменных на старте будут ноли? Очистка происходит автоматически? 0

@bormant Модератор 7792 / 4616 / 2829 Регистрация: 22.11.2013 Сообщений: 13,112 Записей в блоге: 1
	03.10.2019, 17:18	6
	ValentinNemo, https://en.m.wikipedia.org/wiki/.bss 1

@ValentinNemo 2373 / 775 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	03.10.2019, 18:28	7
	bormant, супер! Спасибо! Просветили, дремучего! 0