Форум на Исходниках.RU

работа с множествами

daz — Thu, 28 Nov 2013 14:21:26 +0000

daz:

Цитата Булат Шакиров @ 28.11.13, 14:12

Число ентер, число ентер, выход другой символ кроме 1..5
Вот так у меня отработало

ну вроде так работает)
спасибо большое)

работа с множествами

Булат Шакиров — Thu, 28 Nov 2013 14:12:34 +0000

Булат Шакиров: Число ентер, число ентер, выход другой символ кроме 1..5
Вот так у меня отработало
____________________.png (, : 404)

работа с множествами

daz — Thu, 28 Nov 2013 13:51:00 +0000

daz:

Цитата Булат Шакиров @ 28.11.13, 13:48

Напишите, какие данные вы вводили.

ну просто ввожу номера языков для каждого вуза, к примеру:
123
234
514
пробовал как слитно писать, так и через пробел

работа с множествами

Булат Шакиров — Thu, 28 Nov 2013 13:48:22 +0000

Булат Шакиров: Напишите, какие данные вы вводили.

работа с множествами

daz — Thu, 28 Nov 2013 12:12:24 +0000

daz:

Цитата Булат Шакиров @ 28.11.13, 11:24

Счас поковыряюсь

Добавлено 27 минут назад

program gr;
uses crt;
type
s=(basik, paskal, prolog, cu, logo);
names=array [s] of string[20];
x=set of s;
yaz=array[1..5] of x;
const
NamesStr : Names =('basik', 'paskal', 'prolog', 'cu', 'logo');
var
i:s;
m:yaz;
g,t,t1,t2,t3,t4:x;
k,j:integer;
begin
clrscr;
writeln('1 basic');
writeln('2 paskal');
writeln('3 prolog');
writeln('4 cu');
writeln('5 logo');
writeln('любая клавиша следущий вуз');

for j:=1 to 3 do
begin
t:=[];
write('введите номера для ',j,'-го вуза ');
repeat
read(k);
case k of
1:include(t,basik);
2:include(t,paskal);
3:include(t,prolog);
4:include(t,cu);
5:include(t,logo)

else
break;
end;
until false;
m[j]:=t;

опять выводит неверный результат, либо его вообще не выводит..
не понимаю почему(

работа с множествами

Булат Шакиров — Thu, 28 Nov 2013 11:24:32 +0000

Булат Шакиров: Счас поковыряюсь

Добавлено 28.11.13, 11:43

program gr;

uses crt;

type

s=(basik, paskal, prolog, cu, logo);

names=array [s] of string[20];

x=set of s;

yaz=array[1..5] of x;

const

NamesStr : Names =('basik', 'paskal', 'prolog', 'cu', 'logo');

var

i:s;

m:yaz;

g,t,t1,t2,t3,t4:x;

k,j:integer;

begin

clrscr;

writeln('1 basic');

writeln('2 paskal');

writeln('3 prolog');

writeln('4 cu');

writeln('5 logo');

writeln('любая клавиша следущий вуз');

for j:=1 to 3 do

begin

t:=[];

write('введите номера для ',j,'-го вуза ');

repeat

read(k);

case k of

1:include(t,basik);

2:include(t,paskal);

3:include(t,prolog);

4:include(t,cu);

5:include(t,logo)

else

break;

end;

until false;

m[j]:=t;

t4:=(m[1]+m[2]+m[3])-(m[1]*m[2]*m[3]);

end;

for i:=basik to logo do

if i in t4 then

writeln(NamesStr[(i)]);

end.

работа с множествами

daz — Thu, 28 Nov 2013 09:37:35 +0000

daz:

Цитата Булат Шакиров @ 28.11.13, 09:31

Элементы множества нельзя выводить на экран.

ну по заданию надо вывести
преподаватель же должен как то проверить
мы на паре просто рассматривали похожую задачу, там выводился результат на экран

Добавлено 28.11.13, 09:38

Цитата Булат Шакиров @ 28.11.13, 09:31

Посмотрите процедуру print

хорошо. щас посмотрю

Добавлено 28.11.13, 10:26

Цитата Булат Шакиров @ 28.11.13, 09:31

Элементы множества нельзя выводить на экран. Исхитриться можно так:
http://comp-science.narod.ru/Progr/mn.htm
Посмотрите процедуру print

что то все равно не получается(

работа с множествами

Булат Шакиров — Thu, 28 Nov 2013 09:31:19 +0000

Булат Шакиров: Элементы множества нельзя выводить на экран. Исхитриться можно так:
http://comp-science.narod.ru/Progr/mn.htm
Посмотрите процедуру print

Современые компилятор паскаля - freepascal.org

работа с множествами

daz — Thu, 28 Nov 2013 09:18:20 +0000

daz:

Цитата Булат Шакиров @ 28.11.13, 09:10

Попробуйте
Include(t, basik);

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

Добавлено 28.11.13, 09:20

Цитата Булат Шакиров @ 28.11.13, 09:10

Что за паскаль у вас? Какой-то странный. По виду вроде турбо, но с русским меню. Скачайте современный компилятор.

Dos Box: турбо паскаль. у меня
на винде 8 вроде только он работает просто

работа с множествами

Булат Шакиров — Thu, 28 Nov 2013 09:10:00 +0000

Булат Шакиров: Попробуйте
Include(t, basik);

Добавлено 28.11.13, 09:13
Что за паскаль у вас? Какой-то странный. По виду вроде турбо, но с русским меню. Скачайте современный компилятор.

работа с множествами

daz — Thu, 28 Nov 2013 08:38:32 +0000

daz:

Цитата Булат Шакиров @ 28.11.13, 08:21

Какую ошибку? Чего пишет? У меня в fpc отработал нормально.

смотрите в пред сообщении, я в программе пометил где ошибка

Добавлено 28.11.13, 08:42

Цитата Булат Шакиров @ 28.11.13, 08:21

Какую ошибку? Чего пишет? У меня в fpc отработал нормально.

1:t:=t+[basik]; <------- здесь выдает ошибку, несоответствие типа.

работа с множествами

Булат Шакиров — Thu, 28 Nov 2013 08:21:40 +0000

Булат Шакиров: Какую ошибку? Чего пишет? У меня в fpc отработал нормально.

работа с множествами

daz — Thu, 28 Nov 2013 08:18:45 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 13:07

Проверяйте

не работает((( ошибку выдает

program gr;

uses crt;

type

s=(basik, paskal, prolog, cu, logo);

x=set of s;

yaz=array[1..5] of x;

var

i:s;

m:yaz;

g,t,t1,t2,t3,t4:x;

k,j:integer;

b:byte;

begin

clrscr;

writeln('1 basic');

writeln('2 paskal');

writeln('3 prolog');

writeln('4 cu');

writeln('5 logo');

writeln('любая клавиша следущий вуз');

for j:=1 to 3 do

begin

t:=[];

write('введите номера для ',j,'-го вуза ');

repeat

read(k);

case k of

1:t:=t+[basik]; <------- здесь выдает ошибку, несоответствие типа.

2:t:=t+[paskal];

3:include(t,prolog);

4:t:=t+[cu];

5:t:=t+[logo]

else

break;

end;

until false;

b:=sizeof(t);

m[j]:=t;

t4:=(m[1]+m[2]+m[3])-(m[1]*m[2]*m[3]);

end;

end.

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 13:07:36 +0000

Булат Шакиров: Да. Поковыряюсь. Проверяйте

Добавлено 27.11.13, 14:05

program gr;

uses crt;

type

s=(basik, paskal, prolog, cu, logo);

x=set of s;

yaz=array[1..5] of x;

var

i:s;

m:yaz;

g,t,t1,t2,t3,t4:x;

k,j:integer;

b:byte;

begin

clrscr;

writeln('1 basic');

writeln('2 paskal');

writeln('3 prolog');

writeln('4 cu');

writeln('5 logo');

writeln('любая клавиша следущий вуз');

for j:=1 to 3 do

begin

t:=[];

write('введите номера для ',j,'-го вуза ');

repeat

read(k);

case k of

1:t:=t+[basik];

2:t:=t+[paskal];

3:include(t,prolog);

4:t:=t+[cu];

5:t:=t+[logo]

else

break;

end;

until false;

b:=sizeof(t);

m[j]:=t;

t4:=(m[1]+m[2]+m[3])-(m[1]*m[2]*m[3]);

end;

end.

работа с множествами

daz — Wed, 27 Nov 2013 12:54:27 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 12:24

Бросьте сюда код

program gr;

uses crt;

type s=(basik, paskal, prolog, cu, logo);

x=set of s;

yaz=array[1..5] of x;

var i:s;

m:yaz;

g,t,t1,t2,t3,t4:x;

k,j:integer;

begin

clrscr;

writeln('1 basic');

writeln('2 paskal');

writeln('3 prolog');

writeln('4 cu');

writeln('5 logo');

for j:=1 to 3 do

begin

t:=[];

write('‚введите номера для',j,'-го вуза ');

repeat

read(k);

case k of

1:i:=basik;

2:i:=paskal;

3:i:=prolog;

4:i:=cu;

5:i:=logo;

end;

t:=t+[i];

until

eoln;

m[j]:=t;

end;

ну вот то, что я изначально начал писать
вы про этот код?

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 12:24:31 +0000

Булат Шакиров: Бросьте сюда код

работа с множествами

daz — Wed, 27 Nov 2013 11:44:55 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 11:28

То есть нужно найти объединение множеств, затем из него вычесть пересечение.
проверяйте на своих данных

пробую
пока что то не выходит

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 11:28:52 +0000

Булат Шакиров: Все правильно. И должно мигать. Exclude исключает один элемент из множества. Косяк мой. ;)

вот так работает

type

language=(basic, pascal, prolog, clipper, c, logo);

var

a,b,d:set of language;

begin

a:=[];

d:=[];

include(a,pascal);

a:=a+[basic];

d:=a+[logo];

b:=(a+d)-a*d;

end.

Добавлено 27.11.13, 11:30
То есть нужно найти объединение множеств, затем из него вычесть пересечение.
проверяйте на своих данных

работа с множествами

daz — Wed, 27 Nov 2013 11:19:52 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 11:16

пишет, что ошибка в выражении. курсор мигает на начале слова exclude

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 11:16:26 +0000

Булат Шакиров: Хорошо, сейчас проверю.

работа с множествами

daz — Wed, 27 Nov 2013 11:12:50 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 11:11

В смысле? Паскаль не умеет выводить элементы множества.

ну он должен вывести на экран те языки, которые изучаются только в одном вузе.
а он выводит их неверно.

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 11:11:07 +0000

Булат Шакиров: В смысле? Паскаль не умеет выводить элементы множества. :huh:

работа с множествами

daz — Wed, 27 Nov 2013 11:07:26 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 11:02

А проверьте на своем варианте;

b:=exclude(t[1]+t[2]+t[3],t[1]*t[2]*t[3]);

неправильно выводит результат

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 11:02:22 +0000

Булат Шакиров: А проверьте на своем варианте;

b:=exclude(t[1]+t[2]+t[3],t[1]*t[2]*t[3]);

Добавлено 27.11.13, 11:03
Не t конечно, a m

Добавлено 27.11.13, 11:05
И не b, а g например.

работа с множествами

daz — Wed, 27 Nov 2013 10:55:26 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 10:53

Пусть a - множество из basic, logo; d - basic, logo,c;
Тогда обьединение множеств (+) даст basic,logo,c; а пересечение (*) basic, logo;
Исключение из обьединения множеств его пересечения даст элемент c

это все применимо в том варианте, который я начал писать? или надо с начала программу по новому писать?

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 10:53:14 +0000

Булат Шакиров: Попробуйте еще такой вариант:

b:=exclude(a+d,a*d);

работа с множествами

daz — Wed, 27 Nov 2013 10:05:22 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 10:02

спасибо, попробую сделать

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 10:02:50 +0000

Булат Шакиров: Например так

type

language=(basic, pascal, prolog, clipper, c, logo);

var

a,b,d:set of language;

begin

a:=[];

d:=[];

include(a,pascal);

d:=a+[logo];

if a>=d then

b:=a-d

else

b:=d-a;

end.

В 1-м вузе изучают basic, pascal, во втором изучают тоже самое + logo
В b будет только logo
____________________.png (, : 531)

работа с множествами

daz — Wed, 27 Nov 2013 09:35:45 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 09:30

А как вы его строите?

я вот так начал программу ____________________3.jpg (, : 385)
а вот как построить это множество как раз таки и не знаю...

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 09:30:13 +0000

Булат Шакиров:

Цитата

Построить множество В, содержащее названия языков, изучаемых только в одном из 3-х вузов.

А как вы его строите?

Добавлено 27.11.13, 09:31
Нет, конечно, только пример.
Include включает элемент во множество

работа с множествами

daz — Wed, 27 Nov 2013 09:27:37 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 09:25

include(a,pascal)

ну это же не вся программа, как я понимаю?
и что делает вот эта команда: include(a,pascal) ?

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 09:25:48 +0000

Булат Шакиров: А что именно непонятно?

работа с множествами

daz — Wed, 27 Nov 2013 09:18:55 +0000

daz:

Цитата Булат Шакиров @ 27.11.13, 08:53

Цитата

Ввести с клавиатуры множество языков, изучаемых в каждом из вузов.

Можно так попробовать:

type

language=(basic, pascal, prolog, clipper, c, logo);

var

a,b,d:set of language;

s:string;

begin

a:=[];

readln(s);

if s='pascal' then

include(a,pascal);

end.

[attach=#0][/attach]что то мне не понятно то, что вы написали.
я вот начал писать программу, но не знаю как закончить, там нужно условие написать, чтобы строилось множество языков изучаемых только в одном из 3-х вузов.
может подскажите как?
вот прога:

работа с множествами

Булат Шакиров — Wed, 27 Nov 2013 08:53:02 +0000

Булат Шакиров:

Цитата

Ввести с клавиатуры множество языков, изучаемых в каждом из вузов.

Можно так попробовать:

type

language=(basic, pascal, prolog, clipper, c, logo);

var

a,b,d:set of language;

s:string;

begin

a:=[];

readln(s);

if s='pascal' then

include(a,pascal);

end.

работа с множествами

daz — Wed, 27 Nov 2013 06:33:18 +0000

daz: помогите, пожалуйста, составить программу

В каждом из 3-х вузов может изучаться множество языков программирования: basic, pascal, prolog, clipper, cu, logo. Ввести с клавиатуры множество языков, изучаемых в каждом из вузов. Построить множество В, содержащее названия языков, изучаемых только в одном из 3-х вузов.