Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 1
Регистрация: 16.04.2012
Сообщений: 30
1

Множества. Сформировать множества оценок, которые есть и у первого и второго, но нет у третьего ученика

30.05.2012, 07:45. Просмотров 1626. Ответов 1
Метки нет (Все метки)

Даны по 10-бальной шкале оценки по информатике трех учеников (три массива). Сформировать множества оценок, которые есть и у первого и второго, но нет у третьего ученика. Вывести элементы этого множества в порядке убывания.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2012, 07:45
Ответы с готовыми решениями:

Напечатать те цифры, которые есть в записи первого и второго числа, но нет в записи третьего.
12. даны три натуральных числа. Напечатать те цифры, которые есть в записи первого и второго числа,...

В матрицу записать 1, если удвоенный элемент первого множества меньше элемента второго множества
Здравствуйте! Не могу понять, где ошибка в коде... Пользователь вводит размер первого множества,...

Квадрат с вершинами из первого множества накрывает все точки второго множества и имеет минимальную площадь
Даны два множества точек на плоскости. Выбрать четыре различных точки первого множества так, чтобы...

Даны три натуральных числа.Напечатать те цифры,которые есть в записи первого и второго числа,но нет в записи третьего
Даны три натуральных числа.Напечатать те цифры,которые есть в записи первого и второго числа,но нет...

1
Модератор
62241 / 46529 / 32077
Регистрация: 18.05.2008
Сообщений: 112,475
30.05.2012, 09:25 2
Лучший ответ Сообщение было отмечено Iriska как решение

Решение

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
uses crt;
var a,b,c:array[1..20] of byte;
    m,m1,m2,m3:set of byte;
    n1,n2,n3,i:byte;
begin
clrscr;
write('Количество оценок 1 ученика от 1 до 20 n1=');
readln(n1);
writeln('Введите оценки 1 ученика [1..10]');
for i:=1 to n1 do
repeat
write('Оценка ',i,'=');
readln(a[i]);
until a[i] in [1..10];
write('Количество оценок 2 ученика от 1 до 20 n2=');
readln(n2);
writeln('Введите оценки 2 ученика [1..10]');
for i:=1 to n2 do
repeat
write('Оценка ',i,'=');
readln(b[i]);
until b[i] in [1..10];
write('Количество оценок 3 ученика от 1 до 20 n3=');
readln(n3);
writeln('Введите оценки 3 ученика [1..10]');
for i:=1 to n3 do
repeat
write('Оценка ',i,'=');
readln(c[i]);
until c[i] in [1..10];
clrscr;
writeln('1 ученик');
m1:=[];
for i:=1 to n1 do
 begin
  write(a[i]:3);
  m1:=m1+[a[i]];
 end;
writeln;
writeln('2 ученик');
m2:=[];
for i:=1 to n2 do
 begin
  write(b[i]:3);
  m2:=m2+[b[i]];
 end;
writeln;
writeln('3 ученик');
m3:=[];
for i:=1 to n3 do
 begin
  write(c[i]:3);
  m3:=m3+[c[i]];
 end;
writeln;
m:=m1*m2-m3;
writeln('Оценки, которые есть у 1 и 2, но нет у 3:');
if m=[] then write('Твких оценок нет')
else
for i:=10 downto 1 do
if i in m then write(i:3);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 09:25

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Массив: Выбрать три различные точки первого множества так, чтобы треугольник с вершинами в этих точках накрывал все точки второго множества
Здравствуйте. При реализации задачи я столкнулся с некоторой трудностью (ну, по крайней мере для...

Множества. Напечатать латинские буквы, которые есть/которых нет в данной последовательности символов
Всем привет. Помогите пожалуйста решить задачку. Вот условие И второй вопрос того же условия ...

Даны три множества. Удалить из третьего множества элементы, не принадлежащие первым двум множествам
Даны три множества. Удалить из третьего множества элементы, не принадлежащие первым двум множествам.


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

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

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