VPF::Помогите решить задачу в Турбо Паскале!!!!!!!!!!!!

Shwejk

Дата 26.3.2008, 21:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 26.3.2008

Репутация: нет
Всего: нет

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

seat

Дата 26.3.2008, 21:49 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 20.3.2008

Репутация: нет
Всего: нет

program seat;
uses crt;
var i,n:integer;
a,b:array[1..10] of char;
begin
writeln('Игрок №1 загадай десять символов: ');
for i:=1 to 10 do
begin
write('Символ №',i,': ');
readln(a[i]);
end;
n:=0;
clrscr;
writeln('Игрок №2 угадай десять символов: ');
for i:=1 to 10 do
begin
write('Символ №',i,': ');
readln(b[i]);
if a[i]=b[i] then n:=n+1;
end;
writeln('Игрок №2 угадал ',n,' символов.');
end.

volvo877

Дата 27.3.2008, 23:52 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

seat, множества и массивы символов - это совсем не одно и то же, тем более что у тебя даже так задача не будет правильно решена ...

Код


type T = set of char;
var
  i: integer;
  player1, player2: T;
  ch: char;
  count: integer;

begin
  player1 := []; player2 := [];
  writeln('Игрок №1, загадывай:');
  for i := 1 to 10 do begin
    write('№', i:2, ': '); readln(ch);
    include(player1, ch);
  end;

  writeln('Игрок №2, попробуй угадать:');
  for i := 1 to 10 do begin
    write('#', i:2, ': '); readln(ch);
    include(player2, ch);
  end;

  count := 0;
  for ch := #0 to #255 do
    if ch in player1 * player2 then inc(count);
  writeln('Игрок №2 угадал: ', count, ' символов... ');
end.

seat

Дата 28.3.2008, 23:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 20.3.2008

Репутация: нет
Всего: нет

Цитата(volvo877 @ 27.3.2008, 23:52

)

у тебя даже так задача не будет правильно решена

Это по чему???

volvo877

Дата 28.3.2008, 23:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Это потому, что ты сравниваешь только первый с первым, второй со вторым, третий с третьим... А я введу вот так...

Первый: a b c d e f g h k m
Второй: b a d c f e h g m k

Вроде бы все угадал, но облом - ничего не совпадает...

seat

Дата 29.3.2008, 10:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 20.3.2008

Репутация: нет
Всего: нет

Цитата(volvo877 @ 28.3.2008, 23:59

)

Это потому, что ты сравниваешь только первый с первым, второй со вторым, третий с третьим...

Ты прав! А вот так? Только про множества забыл)):

Код


program seat;
uses crt;
var i,j,n:integer;
    a,b:array[1..10] of char;
begin
writeln('Игрок №1 загадай десять символов: ');
for i:=1 to 10 do
begin
write('Символ №',i,': ');
readln(a[i]);
end;
n:=0;
clrscr;
writeln('Игрок №2 угадай десять символов: ');
for i:=1 to 10 do
begin
write('Символ №',i,': ');
readln(b[i]);
end;
for i:=1 to 10 do
for j:=1 to 10 do
if  a[i]=b[j] then n:=n+1;
writeln('Игрок №2 угадал ',n,' символов.');
end.

Это сообщение отредактировал(а) seat - 29.3.2008, 10:01

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »