Не работает программа на Turbo Pascal

[v.korleone]

Нет, нет, нет! Усложнять ничего не будем, здесь хоть бы с этим разобраться

[Dale]

И можно после каждого ввода вызывать процедуру распечатки состояния множества, чтобы убедиться, что вводимые литеры действительно в него попадают (или не попадают). Может, кое-что прояснится.

[v.korleone]

По совету Dale сделал, проверку состояния множества на попадание в него вводимых литер:

Код:

Program L;

Uses Crt;

const
	q=8;
	MinRangeval = 'a';
            MaxRangeval = 'z';

type
	Range = MinRangeval..MaxRangeval;
	Rangeitem = char;


var
	SetA,SetB,SetComplement,SetUnion,SetIntersection: Set of Range;
            i,j,x,k: Rangeitem;
            e,r: integer;
...
BEGIN

	ClrScr;

	SetA := [];
	for e := 1 to q do
		begin
		ClrScr;
		Write('Vvedite ', e, '-y element mnojestva A: ');
		readln(x);
		SetA := SetA + [x];
                        {Proverka mnojestva}
                                for i := Minrangeval to Maxrangeval do
		             if i in SetA then
			 write(i,' ');
	           Writeln('');
	           end;
...
            Writeln('Elementi mnojestva A: ');
	for i := Minrangeval to Maxrangeval do
		if i in SetA then
			write(i,' ');
	Writeln('');

Я извиняюсь, что не сделал процедурой, но суть написанного думаю понятна. После проверки оказалось, что все равно идет ввод или вывод (пишу вывод потому как думаю, что может неправильно написал цикл вывода) элементов множества состоящего из одного символа.
Начал задумываться  о разных индексах (е и i) в этих двух циклах. Когда был численный тип, тип переменной i был одинаковым для 2-х циклов и составлял для ввода множества 8, а для вывода множества 20. Т.е. можно было ввести 8 элементов множества, величина которых была в диапазоне 1..20. Сейчас у нас разные типы индексов: е:integer и i:RangItem (по сути char), что и составляет проблему.   

[Sla]

Начал задумываться   о разных индексах (е и i) в этих двух циклах. Когда был численный тип, тип переменной i был одинаковым для 2-х циклов и составлял для ввода множества 8, а для вывода множества 20. Т.е. можно было ввести 8 элементов множества, величина которых была в диапазоне 1..20. Сейчас у нас разные типы индексов: е:integer и i:RangItem (по сути char), что и составляет проблему.   

Прочитал несколько раз. Ни хрена не понял...

Посмотрел код -  не понял что такое Проверка множества. Зачем именно в этом месте?

[Dale]

Начал задумываться  о разных индексах (е и i) в этих двух циклах. Когда был численный тип, тип переменной i был одинаковым для 2-х циклов и составлял для ввода множества 8, а для вывода множества 20. Т.е. можно было ввести 8 элементов множества, величина которых была в диапазоне 1..20. Сейчас у нас разные типы индексов: е:integer и i:RangItem (по сути char), что и составляет  проблему.

Проблема создана искусственно. Зачем писать программу, которая позволяет работать лишь с множествами из 8 элементов? Ведь именно отсюда и появляется целочисленный индекс.

Выше Sla предложил хорошую идею: вводить не заданное число элементов множества, а произвольное. Пока вводимые значения лежат в заданном диапазоне ('a'..'z'), мы добавляем их к нашему множеству. Если условие не выполняется (например, ввели '0' или пустую строку), ввод множества завершается и программа идет дальше. Одновременно и просто, и универсально: можно выяснить экспериментально, а как ведут себя множества с различным числом элементов? с одним элементом? пустые множества? и т.д.

Конечно, это уже мало похоже на первоначальную программу. Но раз уж взялись доводить до ума, сначала приведем ее в порядок, а потом заставим работать. Если это вообще понадобится, ведь правильно написанные программы в отладке не нуждаются.

[v.korleone]

Sla, постом выше Dale предложил

И можно после каждого ввода вызывать процедуру распечатки состояния множества, чтобы убедиться, что вводимые литеры действительно в него попадают (или не попадают). Может, кое-что прояснится.

что я и сделал, только не процедурой, а обыкновенным циклом.
Dale, идея то хорошая, но я не знаю как зациклить это дело. Я так понял, что for здесь не прокатит, думаю нужно использовать while. А как написать условие? Как написать, что пока вводимый элемент х лежит в диапазоне a..z то продолжать ввод? 

[Dale]

Dale, идея то хорошая, но я не знаю как зациклить это дело. Я так понял, что for здесь не прокатит, думаю нужно использовать while. А как написать условие? Как написать, что пока вводимый элемент х лежит в диапазоне a..z то продолжать ввод?

Специально для подобных случаев в Паскале предусмотрен цикл с постусловием:

Код:

repeat
  ReadLn(c);
  if ((c >= MinRangeVal) and (c <= MaxRangeVal)) then
    SetA := SetA + [c];
until ((c < MinRangeVal) or (c > MaxRangeVal));

Вводим литеры до тех пор, пока не обнаружим литеру вне нашего допустимого диапазона. Если литера допустима, добавляем ее в множество.

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

[v.korleone]

Dale, большое спасибо! Есть проблема. Написал так:

Код:

Program L;
Uses Crt;

const q=8;
      MinRangeval = 'a';
      MaxRangeval = 'z';

type  Range = MinRangeval..MaxRangeval;
type  Rangeitem = char;

var   SetA,SetB,SetComplement,SetUnion,SetIntersection:set of Range;
      i,j,x,k:Rangeitem;
      e,r:integer;

BEGIN
     ClrScr;

     SetA:=[];
     Writeln('Vvedite element mnojestva A: ');
     repeat
        readln(x);
        if ((x >= MinRangeval) and (x <= MaxRangeval)) then
           SetA := SetA + [x];
           Writeln(x);
     until ((x < MinRangeval) or (x > MaxRangeval));
...

Вставил

Writeln(x);

чтобы проверить что мы вводим. В итоге, я ввожу допустим 2 символа, а печатается один символ. Или я не правильно вывожу литеры в этом случае? Тогда как правильно?
P.S. Процедура предложенная Sla для вывода элементов множеств (А и В) тоже выводит один символ.

[Sla]

Код:

count=0;
     repeat
        Write('Vvedite element mnojestva A: ');
        readln(x);
        if ((x >= MinRangeval) and (x <= MaxRangeval)) then
           begin SetA := SetA + [x]; count = count+1;
     until ((x < MinRangeval) or (x > MaxRangeval));
Writeln('Всего было введено:',count,' элементов множества');

[v.korleone]

Sla, что-то я не пойму последний код. Я вижу Вы меня не понимаете. Приведу отображение проги, на момент моего последнего вопроса:

Vvedite element mnojestva A:
qw
q
er
e
ty
t

т.е. я ввожу qw, а проверяю и получается, что записалось только q. Или отображается только q а не qw. Предложеный Вами код считает количество итераций, но не символов.

[Sla]

Все правильно!!!
Readln считывает из консоли до конца строки, но так как просят один символ, то и вводится один символ!!!
поэтому твой qw  и превращается в ОДИН!

Чтобы закончить ввод элементов множества, тебе необходимо ввести элемент, который НЕ ВХОДИТ в  заявленный тобой диапазон символов(литер), Например, А


Добавлено через 1 минуту и 40 секунд:
v.korleone, ты же хочешь ввода символов из строки
Это можно, конечно, сделать.
Но!!!! на данном этапе вводи элементы множества по одному.

[v.korleone]

Ок. Как попросить чтобы вывел все символы? Мне нужно ввести qw и чтобы оно вывело мне qw. Должно быть так:

Vvedite element mnojestva A:
qw
qw
er
er
ty
ty

Вывод символов после ввода, на данном этапе это проверка, что все введено правильно. В конечном варианте программы, вывод элементов множества будет, сделан после ввода всех элементов множеств А и В.

[Sla]

у тебя должно быть так

Vvedite element mnojestva A:
q
w
e
r
t
y
A

После проверки:

Элементы множества А
eqrtwy

Если не ошибся в алфавите

[v.korleone]

Тогда Вы не поняли, что мне нужно Мне нужно:

Vvedite element mnojestva A:
qwe
rty
uio
asd
A
Vvedite element mnojestva B:
qwe
uio
vbn
xdf
B
A+B: qwe rty uio asd vbn xdf
A*B: qwe uio
A-B: rty asd

Как это сделать?

[Sla]

Это точно, что мы тебя не поняли

Тебе нужно множество не символов, а строк
Set of String;

НО!!!!

Множество — это структурированный тип данных, представляющий собой набор взаимосвязанных по какому-либо признаку или группе признаков объектов, которые можно рассматривать как единое целое. Каждый объект в множестве называется элементом множества.

Все элементы множества должны принадлежать одному из порядковых типов, содержащему не более 256 значений. Этот тип называется базовым типом множества. Базовый тип задается диапазоном или перечислением.

[v.korleone]

Это что же выходит, теперь практически все с нуля? Пока написал, такое:

Код:

Program L;
Uses Crt;

const q=8;
      
var   SetA,SetB,SetComplement,SetUnion,SetIntersection:set of String;{При set of Sting - начинает ругаться. Также ругается 
если написать type Range = string и потом написать set of Range}
        i,j: integer;
        StrEl:string;

BEGIN
     ClrScr;

     SetA:=[];
     for i:=1 to q do
     begin
     ClrScr;
     Writeln('Vvedite ',i,'-y element mnojestva A: ');
     Readln(StrEl);
     SetA:=SetA+[StrEl];{Эта запись не работает. Как сделать, чтобы можно было добавлять записи стринг в множество?}
     end;

Помогите! До завтра нужно написать!

[Sla]

v.korleone,
1. Ты изначально поставил неверную задачу.
1а Соответственно увел нас в другую сторону.
2. С таким знанием (подходом), увы, до завтра никак не успеем.
3. Предлагаю
3а. Просишь еще неделю.
3б дописываешь То что МЫ тебя просим, для закрепеления материала.
3в. Сам (с нашей помощью или без нее) на основе полученных знаний Выполняешь Задание.

[v.korleone]

По моему понятно было описано

Теперь новая задача, нужно чтобы можно было вводить вместо 8 числовых значений, 8 символьных значений, по 8 символов (a-z) в каждом сообщении.

Я потом еще сам удивился почему работаем с char, а не string  Ладно, бывает. Может действительно, мне следовало описать конкретнее.
Ок. Жду вашей помощи по string.

[Sla]

Давай закончим функционал с простым множеством

1. Ввод
2. Вывод
3. Операции с множествами.

[v.korleone]

Sla, не много не понял сообщения 

[Sla]

Мы не закончили учиться работать с простым множеством.

Не умеем вводить элементы, не умеем выводить.

[Dale]

Жду вашей помощи по string.

Предлагаю следующий план действий.

1.

Давай закончим функционал с простым множеством

- без всякого сомнения. Не разобравшись с простым, бесполезно браться за сложное.

2. Разобравшись с п.1, учим программу:

• нумеровать вводимые строки;
• находить строку по номеру;
• находить номер для заданной строки.

Наверное, уже понятно, как действовать дальше. Мы не можем заносить строки в множества (строка не является перечислимым типом), но можем заносить их однозначные номера (которые перечислимы). Далее делаем все необходимые операции над множествами, а потом для каждого множества выводим строки, номера которых есть в этом множестве.

Постарался изложить максимально кратко. Надеюсь, понятно?