Если во входном файле считали букву, то вывести множество чисел до следующей буквы - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Есть файл
A 1 2 4 5 9 11 13 15 22 23 24 25 27 30 31 37 41 42 43 44 45 46 48 50 51 56 64 70 72 73 74 75 76 77 82 84 86 87 89 92 95 97 98 101 102 103 104 105 106 107 108 111 113 116 117 118 124 125 127 130 132 133 134 138 143 144 145 147 149 150 B 16 21 22 23 24 25 26 27 28 29 31 33 35 37 39 41 44 47 49 50 51 52 54 55 56 57 59 61 62 65 66 69 70 71 72 77 78 79 81 83 84 85 91 92 93 94 95 96 98 100 101 103 107 108 109 112 113 115 117 118 119 121 122 124 129 C 1 3 5 9 12 19 22 25 33 34 41 42 46 50 52 55 56 57 58 59 61 66 69 72 80 81 82 84 87 88 94 97 99 100 101 102 112 119 121 123 125 129 134 137 138 139 149 152 153 154 155 157 158 165 166 168 171 172 180 184 185 190 193 194 198 199 205 213 216 220
После того , как программа прочитала букву , функция должна вернуть множество чисел до следующей буквы . Как мне остановить курсор до буквы? Ведь , если я её прочитаю , то будет ошибка ,тк тип другой

Решение задачи: «Если во входном файле считали букву, то вывести множество чисел до следующей буквы»

textual
Листинг программы
var 
  ch : char;
  err : integer;
  vl : integer;
begin
  //...
  ch := 'A'; // к примеру считали 'A'
  if ch in ['A'..'Z', 'a'..'z'] then
  //или if ch not in ['0'..'9'] then
  
  //обработка, что буква...
  else
  begin
    val(ch, vl, err);

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.5 из 5
Похожие ответы