Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Yevgeniy_
2 / 2 / 1
Регистрация: 26.04.2011
Сообщений: 24
#1

Сгенерировать n множеств - Turbo Pascal

26.04.2011, 18:41. Просмотров 665. Ответов 3
Метки нет (Все метки)

Сгенерировать n множеств (нумерацию начать с единицы). вывести элементы, которые входят во все множества с номерами, кратными трём, но не входят в 1 множество.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2011, 18:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сгенерировать n множеств (Turbo Pascal):

Составить программу, меняющую местами значения множеств A и B без использования дополнительных множеств - Turbo Pascal
Здравствуйте, уважаемые программисты! Не знаю, куда еще обращаться, на следующей неделе экзамен, а у меня одна задача никак не получается....

Поменять местами значения множеств a и b без использования дополнительных множеств - Pascal
оставить программу, которая меняет местами значения множеств a и b без использования дополнительных множеств

Сгенерировать. - Pascal
Сгенерировать 30 случайных вещественных чисел.

Сгенерировать последовательность - Turbo Pascal
Сгенерировать последовательность В из n (n запрашивается) вещественных чисел в диапазоне от – 8, 7 до – 5,7 и вывести её в порядке убывания

Сгенерировать случайные числа - Pascal
сгенерировать случайные числа 1) целое в интервале от 0 до 67. 2) целое двухзначное. 3) вещественное с двумя целыми знаками. 4) целое...

Сгенерировать матрицу по правилу - Turbo Pascal
Сгенерировать матрицу А(М, 3), где М- заданное натуральное число, таким образом, чтобы в первом столбце матрицы было значение Х, во 2-м...

3
Высокий
244 / 244 / 59
Регистрация: 09.04.2011
Сообщений: 524
26.04.2011, 18:45 #2
множества рандомные?
0
Yevgeniy_
2 / 2 / 1
Регистрация: 26.04.2011
Сообщений: 24
26.04.2011, 18:56  [ТС] #3
В задаче не указано какие множества.
0
Высокий
244 / 244 / 59
Регистрация: 09.04.2011
Сообщений: 524
26.04.2011, 19:04 #4
Множества задаются генератором случайных чисел:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
type mnoj = set of byte;
     mas = array[1..100] of mnoj;
var A: mas;
    i,j,k,n,l: integer;
    sum: mnoj;
begin clrscr;
write('Ââåäèòå êîëè÷åñòâî Г¬Г*îæåñòâ: ');
readln(n);
write('Ââåäèòå ÷èñëî ýëåìåГ*òîâ Гў Г¬Г*îæåñòâå: ');
readln(l);
for i:=1 to n do begin;
for j:=1 to l do begin
k:=random(100);
include(A[i],k);
end;
end;
sum:=A[3];
for i:=1 to n do
if i mod 3 = 0 then
sum:=sum*A[i];
sum:=sum-A[1];
for i:=1 to n do begin
write(i,': ');
for j:=1 to 100 do begin
if j in A[i] then write(j:3);
end; writeln;
end; writeln;
write('Èòîãîâîå Г¬Г*îæåñòâî: ');
for i:=1 to 100 do
if i in sum then write(i:3);
readkey
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2011, 19:04
Привет! Вот еще темы с ответами:

Сгенерировать массив по образцу - Turbo Pascal
Составьте программу, генерирующую массив по заданному образцу: 1 1...1 1 1 0...0 1 .. .. ... .. .. 1 0 ... 0 1 1 1 ...1 1

Сгенерировать N2 случайных чисел... - Pascal
Помогите, кто может!:'(:'( Сгенерировать N2 случайных чисел. Выделить в каждом из чисел дробну часть. Найти суммы из первых к цифр...

Сгенерировать массив из char - Turbo Pascal
Как переделать этот код чтобы элементы случайно сгенерированно массива были CHAR?????? program matrica; uses crt; const n=10;...

Сгенерировать двухмерный массив - Pascal
Сгенерировать двухмерный массив элементами от -10 до 10.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru