Question

Pascal.ABC Воспользоваться repeate - until. Сделать дек трекер: создашь колоду s:array[1..100] of string; Каждый проход цикла пользователь вводит название - запоминать название карты в новую ячейку массива. Заканчивается цикл, когда пользователь вводит слово 'END'. В конце через цикл for i:= 1 to _tvoi_schetchick_ вывести все карты.

Answer 1

var s: array[1..100] of string;

   i, _tvoi_schetchick_: integer;

   a: string;

begin

   _tvoi_schetchick_:= 0;

   readln(a);

  if a <> 'END' then

   repeat  

      if a <> 'END' then begin

           inc(_tvoi_schetchick_);

           s[_tvoi_schetchick_]:= a;

           readln(a);

       end;

   until a = 'END';

   for i:= 1 to _tvoi_schetchick_ do writeln(s[i]);

end.

Answer 2

Конечно, я могу помочь вам с написанием программы на Pascal, которая создаст дек трекер с использованием цикла "repeat - until". Давайте начнем:

pascalCopy code
program DeckTracker;

const
  MaxCards = 100;

var
  s: array[1..MaxCards] of string;
  cardCount: Integer;

begin
  cardCount := 0;
  
  repeat
    // Запрос пользователю ввода названия карты
    Write('Введите название карты (или "END" для завершения): ');
    ReadLn(s[cardCount + 1]);
    
    // Увеличиваем счетчик карт, если ввод не "END"
    if s[cardCount + 1] <> 'END' then
      Inc(cardCount);
  until s[cardCount] = 'END';

  WriteLn('Все введенные карты:');

  // Выводим все карты с помощью цикла for
  for i := 1 to cardCount do
    WriteLn(s[i]);
end.

Объяснение программы:

1. Мы используем константу MaxCards для определения максимального количества карт в колоде.
2. Создаем массив s, который будет хранить названия карт. Также у нас есть переменная cardCount, которая будет отслеживать количество введенных карт.
3. Внутри цикла repeat - until запрашиваем у пользователя ввод названия карты и сохраняем его в ячейке массива s[cardCount + 1].
4. После каждого ввода мы проверяем, не является ли введенная строка "END". Если нет, то увеличиваем cardCount.
5. Цикл повторяется, пока пользователь не введет "END".
6. После завершения цикла, мы выводим все введенные карты с помощью цикла for.

Программа позволит вам создать колоду карт, вводя названия по одной, и выведет все введенные карты после того, как пользователь введет "END".