IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> создание условия
Frogs2009
сообщение 23.06.2008 13:40
Сообщение #1





Группа: Пользователи
Сообщений: 8
Пол: Мужской

Репутация: -  0  +


Известны марки машин, изготовляемых в данной стране и импортируемых за рубеж. Даны некоторые 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 ); 


как сюда условие сделатЬ???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 28.07.2025 18:28
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"