Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [paskal]задачи на множественный тип

Автор: kstsen 20.1.2009, 02:54

Народ. Помогите разобраться с задачой. Ввод множеств я сделал а отальное не получается
выдеёт шоибку "нельзя записать или считатьпеременного типа"
может я что-то не то делаю

«» усовие »»

Даны три множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Известно, что мощность каждого множества равна 10. Сформировать новое множество Y в соответствии с заданием, выданным преподавателем. На экран вывести исходные и полученное множества. Значения элементов исходных множеств ввести с клавиатуры.
Задание №13
Y = (X1 - X2) - (X2 - X3).
Из множества Y выделить подмножество Y1, которое состоит из чисел, кратных 255. Определить мощность множества Y1.

«»Код»»

program lab2_1;
uses dos,crt;
type digits=set of 1..100;
var x1,x2,x3,y,y1:digits;
m,i:integer;
f1,f2,f3:text;
BEGIN
clrscr;
assign(f1,'d:\1\x1.txt');
assign(f2,'d:\1\x2.txt');
assign(f3,'d:\1\x3.txt');
{writeln('vvediti chisla');}
y:=[];y1:=[];
reset(f1); reset(f2); reset(f3);
for i:=1 to 10 do
   begin
readln(f1,m);
x1:=x1+[m];
readln(f2,m);
x2:=x2+[m];
readln(f3,m);
x3:=x3+[m];
   end;
CLOSE(F1); CLOSE(F2); CLOSE(F3);
for i:=1 to 100 do if i in x1 then writeln('mn1= ',i);
for i:=1 to 100 do if i in x2 then writeln('mn2= ',i);
for i:=1 to 100 do if i in x3 then writeln('mn3= ',i);

{______________________________vschislenie++++++++++++++++++++++++++++++++}

for i:=1 to 10 do
    begiN
            y:=(x1-x2)-(x2-x3);
            write('y=',y);
    enD;
read(i);
END.

все. дальше завис