Если во входном файле считали букву, то вывести множество чисел до следующей буквы - 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);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д