Игра "Угадай число" и вывод списка чемпионов

[manchester_alan]

Игрок 1 загадывает число в диапазоне 0 до 100. Игрок 2 пытается угадать число. Если число не угадано, программа выдает соответствующее сообщение с указанием больше или меньше данное число загаданного числа. Для каждого игрока запоминается число попыток. По окончании игры выводится список чемпионов по возрастанию числа попыток, а также определяется место игрока в этом списке.

Помогите пожалуйста, заранее спасибо...

[VIK_aka_TOR]

думаете как будут взаимодействовать игроки с программой и реализуете это поэтапно

в чем конкретно проблемы то?

p.s. могу написать программу сию, за символическое вознаграждение

[manchester_alan]

type List=record
Player:Byte;
name:string;
end;
var w:array[1..100]of List;
var x,o:List;
var i,j,t,n:integer;
 
procedure Ugadai(a,b:Integer);
 begin
  write('Количество игроков "B": '); Readln(n);
  Write('Игрок "A" вводит число, которое нужно угадать:'); read(a);
  t:=0;
  for i:=1 to n do
    begin
     with w[i] do
     begin
     write(i,' игрок "B" угадывает число: ');
     Write(' Число: '); read(b);
      if b>a then
       begin
        Writeln('Много');
        t:=t+1;
        Writeln;
        end
       else
         if b<a then
          begin
           Writeln('Мало');
           t:=t+1;
           Writeln;
          end
         else
      begin
       writeln;
       t:=t+1;
       writeln('ВЫ УГАДАЛИ!!!!!');
       Writeln('Число попыток:',t);
       writeln;
      end;
     end;
    end;
 end;

не ну я так написал примерно как угадать число, там попытки и сообщения эти... А вот как таблице чемпионов сделать??(

[VIK_aka_TOR]

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

после отгадывания числа записываете имя игрока и количество затраченных попыток в файл. вероятнее всего предварительно отсортировав "список чемпионов"

p.s. как понимаю в n вводится количество допускаемых попыток
p.p.s. вас устраивает как работает данная процедура ?

и почему вы передаете в процедуру переменную "a", а после в процедуре ее переопрелеляете ?

и да, оформляете код тэгами [ CODE ][ /CODE ], кнопка решетки в меню отправки сообщения

[manchester_alan]

"n" это количество игроков, которые отгадывают...
ну я ее после этого еще переделывал, это первоначальный вариант как бы..)
а вот "a" не совсем понял, что я там переопределяю??

p.s. а как лучше запись в файл делать типизированный или нет? и только так возможно, через файл? по-другому никак? а то так не получалось...(

[VIK_aka_TOR]

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

в процедуру передается и в ней же изменяется

Write('Игрок "A" вводит число, которое нужно угадать:'); read(a);

и учитывая что оно за пределами процедуры не используется, то она и не нужна

почитайте что такое локальные переменные (в самих процедурах и функциях видны) и глобальные (видны во всей программе)

легче всего и удобнее будет наверное типизированными, и запись вашу расширить (добавить еще количество попыток). И можно будет записывать/ считывать через эту запись. + сортировать сразу список/массив записей и перезаписать/обновить файл

p.s. не забывайте про оформление кода через кнопку #

[manchester_alan]

type List=record
Player:Byte;
name:string;
end;
var w:array[1..100]of List;
var o:List;
var i,j,t,n,a,b:integer;

procedure Ugadai;
 begin
  write('Количество игроков "B": '); Readln(n);
  Write('Игрок "A" вводит число, которое нужно отгадать:'); read(a);
  t:=0;
  for i:=1 to n do
   begin
    with w[i] do
    begin
     while a<>b do
      begin
       write(i,' игрок "B" угадывает, число: '); read(b);
       if b>a then
          begin
            Writeln('Много!');
            t:=t+1;
            Writeln;
          end
       else
           if b<a then
            begin
              Writeln('Мало!');
              t:=t+1;
              Writeln;
            end
           else
       begin
        writeln;
        t:=t+1;
         writeln('ВЫ УГАДАЛИ!!!!');
         Writeln('Число попыток:',t);
        writeln;
        end;
       end;
    end;
   end;
 end;

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

[VIK_aka_TOR]

  write('Количество игроков "B": '); Readln(n);
  Write('Игрок "A" вводит число, которое нужно отгадать:'); read(a);
  for i := 1 to n do
  begin
    t := 0;
    b := -1;
    with w[i] do
    begin
      while a <> b do

добавить "обнуление" и можно будет давать отгадывать нескольким людям

можно еще подключить модуль окна

uses CRT;

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

ClrScr;

[manchester_alan]

оо спасибо огромнейшее за помощь)) дальше сам постараюсь...

[VIK_aka_TOR]

пожалуйста

почитайте про типизированные файлы, и сделаете "таблицу чемпионов"
ее лучше оформить отдельной процедурой, у которой будут входными данными имя пользователя и количество попыток.
ну и собственно вызывать ее в блоке:

begin
  writeln;
  t:=t+1;
  writeln('ВЫ УГАДАЛИ!!!!');
  Writeln('Число попыток:',t);
  writeln;
  // вот тут
end;

удачи