Помощь - Поиск - Пользователи - Календарь
Полная версия: создание условия
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Frogs2009
Известны марки машин, изготовляемых в данной стране и импортируемых за рубеж. Даны некоторые N стран. Определить для каждой из марок, какие из них были:
• доставлены во все страны;
• доставлены в некоторые из стран;
• доставлены в некоторую страну

const n = 3;

type

product = (BMW,Audi,Fiat,Mersedes);
assort = set of product;
magazine = array[1 .. n] of assort;

const
s: array[product] of string = (
'BMW', 'Audi', 'Fiat', 'Marsedes'
);

stores: magazine = (
[BMW,Audi],
[BMW,Fiat],
[Audi]

);


procedure exists(arr: magazine; var a, b, c: assort);
var
i: integer; j: product;
begin
a := arr[1];
b := [];
for j := low(product) to high(product) do
c := c + [j];

for i := 1 to n do begin
a := a * arr[i];
b := b + arr[i];

c := c - arr[i];
end;
end;


procedure write_set(x: assort);
var j: product;
begin

for j := low(product) to high(product) do
if j in x then write(s[j], ' ');
writeln
end;

var
a, b, c: assort;
begin
exists(stores, a, b, c);
write('A = '); write_set( a );
write('B = '); write_set( b );
write('C = '); write_set( c );
readln;
end.



сделал,все работает,а вот как сделать условие, что бы выводило или марки автомобилей(которые доставленны в какие то страны), а если их не то сообщение "автомобилей нет в этих странах или в этой стране"
 write('A = '); write_set( a );
write('B = '); write_set( b );
write('C = '); write_set( c );


как сюда условие сделатЬ???
volvo
if a <> [] then begin { <--- Вот так проверяешь, пустое ли множество }
write('A = '); write_set( a );
end
else writeln('автомобилей (доставленных во все страны) нет'); { <--- Ну, и пишешь каждый раз то что нужно }
Frogs2009
Цитата(volvo @ 23.06.2008 14:57) *

if a <> [] then begin { <--- Вот так проверяешь, пустое ли множество }
write('A = '); write_set( a );
end
else writeln('автомобилей (доставленных во все страны) нет'); { <--- Ну, и пишешь каждый раз то что нужно }




Спасибо большое!!!! очень помог!!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.