Двухмерный массив символов

31.10.2013, 02:37. Показов 607. Ответов 0

Метки нет (Все метки)

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

Из текстового файла считывается двухмерный массив символов. Нужно определить номер столбца и строки в котором находится символ "h". Моя программа почему-то выводит неправильный результат.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
var
  i, j, qi, qj: byte;
  f: textfile;
  m: array [1 .. 11, 1 .. 20] of char;
 
begin
  i := 1;
  j := 1;
  assignfile(f, 'input.txt');
  reset(f);
  while (not eof(f)) and (i <= 11) do
  begin
    read(f, m[i, j]);
    if m[i, j] = 'h' then
    begin
      qi := i;
      qj := j
    end;
    write(m[i, j]);
    inc(j);
    if j>20 then
    begin
      j := 1;
      inc(i);
    end;
  end;
  writeln;
  writeln(qi, ' ', qj);
  closefile(f);
  readln;
 
end.

Добавлено через 7 минут
Только создал тему - сразу дошло в чём ошибка. Ниже - правильный код (может кому пригодится) .

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
 
var
  i, j, qi, qj: byte;
  f: textfile;
  m: array [1 .. 11, 1 .. 20] of char;
 
begin
  i := 1;
  j := 1;
  assignfile(f,
    'input.txt');
  reset(f);
  for i := 1 to 11 do
    for j := 1 to 20 do
    begin
      read(f, m[i, j]);
      if m[i, j] = 'h' then
      begin
        qi := i;
        qj := j
      end;
      write(m[i, j]);
            if j = 20 then
      begin
      readln(f);
       writeln;
      end;
    end;
  writeln;
  writeln(qi, ' ', qj);
  closefile(f);
  readln;
 
end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

31.10.2013, 02:37

Ответы с готовыми решениями:

Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в
Добрый день, никак не получается решить данную задачу. Дан двухмерный массив A. Составить одномерный массив из номеров столбцов...

Массив: Сформировать двухмерный массив n * n указанного вида для произвольного нечетного n.
Сформировать двухмерный массив n•n указанного вида для произвольного нечетного n. Для n=5 формируемый массив имеет вид 0 0 1 0 0 0 1 0...

Массив: Вывести на экран монитора исходный двухмерный массив в виде таблицы чисел.
Условие: 1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя генератор случайных чисел. ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

31.10.2013, 02:37

Помогаю со студенческими работами здесь

Массив: Создать двухмерный массив Р[3,5], где каждая строка соответствует заданному массиву...
Из трех одномерных массивов А,В, С создать двухмерный массив Р, где каждая строка соответствует одномерному массиву

Задан двухмерный массив А размером 7 на 7. Выделить в одномерный массив В те элементы массива А которые не повторяются в массиве А.
Подскажите пожалуйстта решение!СПАСИБО! Задан двухмерный массив А размером 7 на 7. Выделить в одномерный массив В те элементы массива А...

Дан двухмерный массив размером n*n. Сформировать одномерный массив из элементов заданного массива, расположенных над главной диагональю
Дан двухмерный массив размером n*n. Сформировать одномерный массив из элементов заданного массива, расположенных над главной диагональю

Двухмерный массив, обработка строк символов
Я извиняюсь...мне стыдно...но помогите...извините, что вас прошу мне решить лабораторку!!! но очень надо...я обещю что исправлюсь...просто...

Массив: Создать двухмерный массив 7х7 и сделать две диагонали из единиц.
Нужно создать двухмерный массив 7х7. И сделать две диагонали из единиц. Использовать можно только 3 цикла. Вот мой код, мне кажется я...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника 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, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

Наверх