Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 26.03.2020
Сообщений: 8

Создать массив, который можно будет заполнять буквами

26.03.2020, 19:32. Показов 1282. Ответов 2

Студворк — интернет-сервис помощи студентам
Не получается сделать массив, который можно будет заполнять буквами. Сделал вот это, но оно работает не корректо
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program rama;
    var
        B:array[1..10,1..10] of char;
        i,j,k,m:byte;
    Begin{rama}
        read(k,m);
        for i:=1 to k do
            for j:=1 to m do
                read(B[i,j]);
        for i:=1 to k do
            begin
                for j:=1 to m do
                    write(B[i,j]);
                writeln;
            end;
    End.{rama}
(PascalABC)
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.03.2020, 19:32
Ответы с готовыми решениями:

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

В си++. создал массив с рандомными числами.Дальше не могу сделать
Создал массив, заполненный рандомными числами. нужно Подсчитать количество участков, которые образуют непрерывные последовательности чисел...

Приветствую, не могу разобраться с кодом программы и не могу сделать .obj файл
.model tiny; нужно будет получить исполняемый файл формата СОМ .code org 100h start: mov ax, 3 int 10h ; устанавливаем...

2
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
26.03.2020, 21:02
Лучший ответ Сообщение было отмечено User3392 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
B:array[1..10,1..10] of char;
i,j,k,m:byte;
Begin{rama}
readln(k,m);
for i:=1 to k do
for j:=1 to m do
read(B[i,j]); //вводим k*m символов в строку, жмем Enter
for i:=1 to k do
 begin
  for j:=1 to m do
  write(B[i,j]);
  writeln;
 end;
End.{rama}
1
0 / 0 / 0
Регистрация: 26.03.2020
Сообщений: 8
26.03.2020, 21:49  [ТС]
Спасибо что помогли. Получается, ошибка была не столько в коде, сколько в воде данных?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
26.03.2020, 21:49
Помогаю со студенческими работами здесь

Не могу установить Windows из-за того,что не могу сделать выбор установки
Подскажите, я устанавливаю виндовс XP,с диска,на экране высвечивает загруска с диска С, ниже автоматическая загрузка с драйверами,ещё ниже...

Не могу сделать полиморфизм. Не могу до конца понять пример по этому поводу
Есть такая задача: Класс Animal должен быть абстрактным, имеет имя и вес. Класс Reptile имеет habitate, который держит в себе среду...

Не очень разбираюсь в VBA , не могу сделать код для это программы.вроде не сложный.но не могу додуматься)
Определить, сколько можно купить толковых, фразеологических и орфографических словарей русского языка, если цена толкового словаря 600 р.,...

Не могу разобраться с циклами (не могу понять как сделать так чтоб цикл считывал каждый элемент, без массива!)
Натурально число а вводится пользователем.Определить количество не нудевых цифр этого числа . Не используя массивы!

Не могу сделать вывод данных из таблицы БД (Пытаюсь сделать гостевую книгу)
Много статей всяких перечитал, и везде по-разному описывается моя проблема... Запись в БД есть, все работает, а вот вывод не могу...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru