Множество

@IsoPanzer · Регистрация: 10.11.2013

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

Здраствуйте Уважемые форумчане, у меня возник вопрос в чем здесь ошибка, компилятор ругается вот на эту вот строчку "a:=ELECTRONIKA;" может быть я программу написал не правильно...
{IBM, PS/2, MAC, ISKRA, ELECTRONIKA, PRAVICA, PENTIUM, DEC -
Построить и напечатать множество, включающее в себя компьютеры, которых нет ни на одной кафедре.}

Pascal

Program mnojestvo;
  type
  computer= set of (IBM,Ps,MAC,ISKRA,ELECTRONIKA,PRAVICA,PENTIUM,DEC); computer2=(mk1,mk2,mk3,mk4);
  var a,k:computer; b,c:computer2;
begin
  writeln ('Введите название компьютера');
  a:=ELECTRONIKA; //сюда ввожу название компьютера
  b:=mk2;
  if a=k then  writeln ('Данная машина есть на кафедре')
  else
  writeln ('Такой машины нет ни на одной кафедре')
End.

@ermolay · 11.11.2013, 21:39

а что у вас обозначают множества computer, computer2, a, k, b, c?
или лучше полное задание

@IsoPanzer · 11.11.2013, 22:14 **[ТС]**

извините что не корректно объявил задание, задание звучит так: дано 10 кафедр, построить и напечатать множество, включающее в себя компьютеры, которых нет ни на одной кафедре, вот названия компьютеров IBM, PS/2, MAC, ISKRA, ELECTRONIKA, PRAVICA, PENTIUM, DEC

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	11.11.2013, 21:39	2
	а что у вас обозначают множества computer, computer2, a, k, b, c? или лучше полное задание 0

@IsoPanzer 2 / 2 / 4 Регистрация: 10.11.2013 Сообщений: 140
	11.11.2013, 22:14 [ТС]	3
	извините что не корректно объявил задание, задание звучит так: дано 10 кафедр, построить и напечатать множество, включающее в себя компьютеры, которых нет ни на одной кафедре, вот названия компьютеров IBM, PS/2, MAC, ISKRA, ELECTRONIKA, PRAVICA, PENTIUM, DEC 0