Проверка массива на определенный символ

@Bogradan · Регистрация: 22.03.2016

Студворк — интернет-сервис помощи студентам

Дан массив a:array[1..8,1..4] of char; a[i,j]; i,j:integer; У которого 4 столбец наполнен символами Д и Н.
Как в каждой строке 4-го столбца массива(a[i,4]), определить наличие символа "Д". ?
Я написал так:

Code
1
2
3
4
5
6
for i:= 1 to 8 do begin
 
if (a[i,4] = #132) then write('Д',' ')
 
else write('H',' ');
end;

Для проверки символа использовал таблицу:http://pascal.net.ru/866 "#132"="Д"
Не работает, в 4 столбце массива есть не один символ "Д", но он пишет только Н как на скриншоте.

@Bogradan · 09.09.2016, 18:21 **[ТС]**

Может я какую-то не ту таблицу символов использую?

Добавлено через 36 минут
Он читает откуда нужно, если что.

Добавлено через 9 минут
Я понял в чем проблема. Ответ такой: Нельзя делать через таблицу символов командой "#".
Очень легко и выглядеть должно так:

Code
1
2
3
4
5
6
for i:= 1 to 8 do begin
 
if (a[i,4] = 'Д') then write('Д',' ')
 
else write('H',' ');
end;

Где проверка условия, должно быть не командой #, а при помощи знаков ' '. Тоесть '?' вместо ? любой символ, и он будет проверять этот символ. Закрывайте тему.

Добавлено через 3 минуты
Закрывайте тему.

@Puporev · 09.09.2016, 18:22

Сообщение от Bogradan

Для проверки символа использовал таблицу

Та таблица для ASCII, а в ANSI, которая используется в АВС код=196, хотя это и нафиг не нужно.

Pascal
1
if a[i,4] = 'Д' then

@Bogradan · 15.01.2018, 23:08 **[ТС]**

Закройте эту тему. Ответ был давно получен.

@Cyborg Drone · 19.01.2018, 00:02

Не по теме:

Темы по просьбам пользователей не закрываются и не удаляются.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Bogradan 7 / 6 / 1 Регистрация: 22.03.2016 Сообщений: 337
	15.01.2018, 23:08 [ТС]
	Закройте эту тему. Ответ был давно получен. 0

@Cyborg Drone
	19.01.2018, 00:02
	Не по теме: Темы по просьбам пользователей не закрываются и не удаляются. 0

Проверка массива на определенный символ

Решение