![]() |
Модераторы: Poseidon |
![]() ![]() ![]() |
|
kstsen |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 20.1.2009 Репутация: нет Всего: нет |
Народ. Помогите разобраться с задачой. Ввод множеств я сделал а отальное не получается
выдеёт шоибку "нельзя записать или считатьпеременного типа" может я что-то не то делаю «» усовие »» Даны три множества Х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. все. дальше завис |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Центр помощи" | |
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Центр помощи | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |