Разработать игровую программу используя множества

@STyDeNTuK · Регистрация: 22.09.2009

Студворк — интернет-сервис помощи студентам

Используя множества разработать игровую программу. В ее основу положить следующее правило игры. В игре участвуют два человека. Первый последовательно вводит 10 букв русского алфавита. Второй пытается угадать то, что ввел его соперник, и вводит свои 10 символов. Затем игроки меняются ролями.

Всем спасибо кто хоть как то поможет

Добавлено через 1 час 8 минут
как введённые буквы запихнуть в множество?

@SuPeR XaKer · 15.05.2011, 23:55

как введённые буквы запихнуть в множество?

Pascal
1
2
3
4
readln(s);
m:=[];
for i:=1 to length(s) do
 m:=m+[s[i]];

если вводить посимвольно то вот так:

Pascal
1
2
3
4
5
6
7
8
9
m:=[];
for i:=1 to 10 do
begin
 repeat
  readln(s);
  if not(UpCase(s) in ['А'..'Я','Ё']) then write('Введён неверный символ.Повторите ввод.');
 until UpCase(s) in ['А'..'Я','Ё'];
 m:=m+[s];
end;

@STyDeNTuK · 16.05.2011, 00:09 **[ТС]**

я так понял буквы в строку забиты?

@SuPeR XaKer · 16.05.2011, 00:11

впервом случае вводим строку во втором посимвольно.

@STyDeNTuK · 16.05.2011, 00:32 **[ТС]**

блин бред, не понимаю как с множествами делать. Есть код готовой проги без использования множеств, но преподу видите ли нравиться так

Добавлено через 14 минут
как описать эти 2 множества которые будут содержать буквы написанные первым и вторым игроком

Добавлено через 4 минуты

Pascal
1
m:=[];

на этой строчке выдаёт ошибку нельзя присвоить левой части

@SuPeR XaKer · 16.05.2011, 00:32

Pascal
1
m:set of char;

@STyDeNTuK · 16.05.2011, 00:33 **[ТС]**

а не всё норм

@SuPeR XaKer · 16.05.2011, 00:34

и гдеже ты их описал?

@STyDeNTuK · 16.05.2011, 01:09 **[ТС]**

а как потом эти 2 множества сравнить, а то in не приминима к set of char

Добавлено через 3 минуты

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
program zadanie2;
uses crt;
var
s,s2:string;
k,k2,i:byte;
begin
k:=0;k2:=0;
met:
writeln('Игрок 1 Введите 10 букв русского алфавита без пробелов и нажмите ENTER');
readln(s);
clrscr;
writeln('Игрок 2 угадайте буквы набранные игроком 1');
readln(s2);
for i:=1 to 10 do begin
for j:=1 to 10 do
  if s2[i] =s[j] then inc(k);
end;
writeln('Игрок 2 вы отгадали ',k,' букв');
//
writeln('Игрок 2 теперь вы введите 10 букв русского алфавита без пробелов и нажмите ENTER');
 
readln(s);
clrscr; met4:
writeln('Игрок 1 угадайте буквы набранные игроком 2 ');
readln(s2);
 
for i:=1 to 10 do begin
for j:=1 to 10 do
  if s2[i] =s[j] then inc(k2);
end;
writeln('Игрок 1 вы отгадали ',k2,' букв');
writeln('Счет:   Игрок 1 - Игрок 2  ',k,' : ',k2);
end.

вот что у меня есть и что я пытаюсь изменить на множества

Добавлено через 10 минут
помогите плиз кто нить

вот я тут наменял. как думаете норм?

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
program zadanie2;
uses crt;
var
mn1 : set of char;
     mn2 : set of char;
s,s2:string;
k,k2,i:byte;
begin
k:=0;k2:=0;
writeln('Игрок 1 Введите 10 букв русского алфавита без пробелов и нажмите ENTER');
readln(s);
mn1:=[];
for i:=1 to length(s) do
mn1:=mn1+[s[i]];
clrscr;
writeln('Игрок 2 угадайте буквы набранные игроком 1');
readln(s2);
for i:=1 to 10 do begin
  if s2[i] in mn1 then inc(k);
end;
writeln('Игрок 2 вы отгадали ',k,' букв');
//
writeln('Игрок 2 теперь вы введите 10 букв русского алфавита без пробелов и нажмите ENTER');
readln(s);
mn2:=[];
for i:=1 to length(s) do
mn2:=mn2+[s[i]];
clrscr;
writeln('Игрок 1 угадайте буквы набранные игроком 2 ');
readln(s2);
for i:=1 to 10 do begin
  if s2[i] in mn2 then inc(k2);
end;
writeln('Игрок 1 вы отгадали ',k2,' букв');
writeln('Счет:   Игрок 1 - Игрок 2  ',k,' : ',k2);
end.

@SuPeR XaKer · 16.05.2011, 01:56

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
Uses
 CRT;
 
function igra(l:string;Var p:string):set of char;
Var
 s:char;
 i,kol:byte;
 m:set of char;
 k:string;
begin
m:=[];
s:=#0;
k:='';
writeln('Игрок ',l);
for i:=1 to 10 do
begin
 repeat
  write('Введите ',i,'-ю букву: ');
  readln(s);
  if not(UpCase(s) in ['А'..'Я','Ё']) then write('Введён неверный символ.Повторите ввод.');
 until UpCase(s) in ['А'..'Я','Ё'];
 k:=k+s;
 m:=m+[s];
end;
igra:=m;
p:=k;
writeln;
end;
 
function och(l,l2:string):byte;
Var
 o,o2:string;
 kol,j:byte;
 m3,m2,c:set of char;
begin
 kol:=0;
 m3:=igra(l,o);
 m2:=igra(l2,o2);
 for j:=1 to length(o) do
 if o[j] in (m2*m3) then inc(kol);
 och:=kol;
end;
 
begin
 writeln('Игрок второй вы угадали ',och('первый введите 10 букв: ','второй отгадайте 10 букв: '),' букв/ы');
 writeln('Игрок первый вы угадали ',och('второй введите 10 букв: ','первый отгадайте 10 букв: '),' букв/ы');
 readln;
end.

не проверял.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@STyDeNTuK 30 / 12 / 7 Регистрация: 22.09.2009 Сообщений: 157

	Разработать игровую программу используя множества 15.05.2011, 23:43. Показов 2456. Ответов 9 Метки нет (Все метки) Используя множества разработать игровую программу. В ее основу положить следующее правило игры. В игре участвуют два человека. Первый последовательно вводит 10 букв русского алфавита. Второй пытается угадать то, что ввел его соперник, и вводит свои 10 символов. Затем игроки меняются ролями. Всем спасибо кто хоть как то поможет Добавлено через 1 час 8 минут как введённые буквы запихнуть в множество? 1

@STyDeNTuK 30 / 12 / 7 Регистрация: 22.09.2009 Сообщений: 157
	16.05.2011, 00:09 [ТС]
	я так понял буквы в строку забиты? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,875
	16.05.2011, 00:11
	впервом случае вводим строку во втором посимвольно. 0

@STyDeNTuK 30 / 12 / 7 Регистрация: 22.09.2009 Сообщений: 157
	16.05.2011, 00:33 [ТС]
	а не всё норм 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,875
	16.05.2011, 00:34
	и гдеже ты их описал? 0