Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
SuperKir
409 / 381 / 271
Регистрация: 10.03.2015
Сообщений: 1,625
Завершенные тесты: 1
09.11.2015, 02:07 0

Вывести двумерный массив в таблицу

09.11.2015, 02:07. Просмотров 807. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Это конечно говнокод, но для примера сойдет
Кликните здесь для просмотра всего текста

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 a: array [1..10,1..10] of integer;
    i,j: Integer;
 
begin
Randomize;
for i:=1 to 10 do
for j:=1 to 10 do
a[i,j]:=random(10);
 
for i:=1 to 21 do
if i=1 then Write(#201)
else if i=21 then Write(#187)
else if odd(i) then Write(#203)
else Write(#205);
WriteLn;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if j<10 then Write(#186,a[i,j])
else Write(#186,a[i,j],#186);
end;
WriteLn;
end;
for i:=1 to 21 do
if i=1 then Write(#200)
else if i=21 then Write(#188)
else if odd(i) then Write(#202)
else Write(#205);
 
ReadLn;
end.

Название: q5h9ISs.png
Просмотров: 11

Размер: 4.2 Кб

Строки примерно по аналогии разделить можно. Коды глянуть в инете

Вернуться к обсуждению:
Вывести двумерный массив в таблицу
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.11.2015, 02:07

Вывести двумерный массив определенным образом
как вывести массив? 123456 012345 001234 000123 000012 000001

Заполнить двумерный массив 6 на 6 и вывести его на экран
Заполнить двумерный массив 6 на 6 таким образом 1 0 0 0 0 1 0 2 ...

Двумерный массив. Ввести двумерный массив, найти сумму элементов каждого столбца
Ввести двумерный массив, найти сумму элементов каждого столбца.

0
Другие темы раздела
Turbo Pascal Анимация: едет машина, встает солнце и по небу плывет облачко http://www.cyberforum.ru/turbo-pascal/thread1575353.html
Помогите создать анимацию в турбо паскале .Условие: едет машина ,встает солнце и по небу плывет облачко Заранее спасибо ,буду очень рад
Turbo Pascal Среднее арифметическое четных цифр массивы http://www.cyberforum.ru/turbo-pascal/thread1575323.html
Turbo Pascal Вычислить предел последовательности
Выполнить проверку для задач с процедурой val Turbo Pascal
Приветствую всех. Нужно выполнить проверку для задач с процедурой val для данных задач. var k, a, kol: integer; begin kol := 0; writeln('Введите к:'); readln(k); repeat
Turbo Pascal Проверить, упорядочены ли цифры числа по убыванию http://www.cyberforum.ru/turbo-pascal/thread1575083.html
Выручайте:cry:,не могу написать программу на паскале : Дано натуральное число n. Проверить, упорядочены ли цифры по убыванию. Нельзя использовать массивы и функции.Все через циклы.Буду...
Turbo Pascal Удалите из массива столбцы, содержащие максимальный элемент массива 2)Удалите из массива столбцы, содержащие максимальный элемент массива, а затем удвойте вхождение строк, содержащих минимальный элемент массива. подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru