Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Задача на вывод на экран слов, заканчивающихся на определенную букву, слова разделены пробелами Дан список слов, разделенных между собой пробелами.Составить программу вывода на экран слов, которые заканчиваются на букву Ь. https://www.cyberforum.ru/ pascalabc/ thread1730250.html	Вывести на экран ту часть текста, которая находится до первого символа ":" Pascal ABC Ввести произвольный текст.В данном тексте есть символ ":".Вывести на экран ту часть текса, которая находиться до первого символа ":".Помогите, прошу :)
Pascal ABC Создать новую строку, которая состоит из малых латинских букв, входящих ровно 2 раза в строку Здравствуйте,возникли трудности с задачей:Дана строка с буквами(малые латинские).Создать новую строку,которая состоит из малых латинских букв,входящих ровно 2 раза в первую строку. Вот написал программу,которая создает множество букв,встречающихся в строке ровно 2 раза,а нужно создать строку(с этим заморочки). type mn = set of 'a'..'z'; var s1, s2: string; i, j, count, ls:... https://www.cyberforum.ru/ pascalabc/ thread1730190.html	Pascal ABC Процедуры Помогите пожалуйста разобраться , я что то не догоняю совсем. Есть у меня матрица 5 на 3 (A) из нее мне нужно получить матрицу (B) вычеркнув k=3 столбец. делаю так. procedure MatrixB (A : Matrix; k : integer; var B : matrix); var i, j : integer; begin for i:=1 to n do https://www.cyberforum.ru/ pascalabc/ thread1730090.html
Pascal ABC Порядок строк в файле g должен быть обратимым в отношении порядка строк файла f Дан текстовый файл f. Записать строки файла f в файл g. Порядок строк в файле g должен быть обратимым в отношении порядка строк файла f.	Pascal ABC Напечатать строки с четными номерами, которые содержат нечетное количество букв https://www.cyberforum.ru/ pascalabc/ thread1730063.html Дан текстовый файл, разбитый на строки. Напечатать строки с четными номерами, которые содержат нечетное количество букв.
Pascal ABC Заменить буквы латинского алфавита на соответствующие им буквы русского алфавита https://www.cyberforum.ru/ pascalabc/ thread1730057.html Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Заменить буквы латинского алфавита на соответствующие им буквы русского алфавита.	Pascal ABC Вывести на экран слова текста в порядке, соответствующем латинскому алфавиту Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Вывести на экран слова этого текста в порядке, соответствующем латинскому алфавиту.
Pascal ABC Найти седловые точки матрицы https://www.cyberforum.ru/ pascalabc/ thread1730055.html Для матрицы размером NxM вывести на экран все ее седловые точки. Элемент матрицы называется седловой, если он является наименьшим в своей строке и одновременно крупнейшим в своем столбце или, наоборот.	Pascal ABC Вывод строки начинающейся на конкретный символ Добрый день! Задание. Ввести ряд строк и вывести те, которые начинаются на букву 'b'. Посчитать количество вхождений буквы 'b' в тексте. Как сначало получить все строки, а потом уже по ним вывести все строки начинающиеся на 'b' и количество вхождений 'b'? program b_letter; var ln : string; ch : char; https://www.cyberforum.ru/ pascalabc/ thread1729644.html
Pascal ABC Файлы записей Помогите пожалуйста! Создать файл, содержащий сведения о машинах на автостоянке. Каждая запись файла должна содержать марку машины, год выпуска, цвет, номер, ФИО владельца, и дата начала аренды места на стоянке. В программе предусмотреть следующие режимы работы: 1) Добавление записи в файл 2) Редактирование записи 3) Удаление записи 4) Выдача списка машин, находящихся на стоянке с...	Pascal ABC Найти наибольшее из значений модулей компонентов файла F с непарными номерами https://www.cyberforum.ru/ pascalabc/ thread1729537.html Дано файл F, компоненты которого – действительные числа. Найти: - Наибольшее из значений модулей компонентов файла F с непарными номерами; - Среднее арифметическое значение компонентов файла F. Спасибо огромное.

JokeR.BY

CAPITAL OF ROCK!

1281 / 708 / 982

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

Сообщений: 2,286

09.05.2016, 14:24

Сформировать квадратную матрицу n-го порядка - Pascal ABC - Ответ 9116296

09.05.2016, 14:24. Показов 526. Ответов 2

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

Ответ

Pascal

var
    ar: Array[1..200, 1..200] Of Byte;
    i, j, n: Byte;
begin
    repeat
        Write('Input n (1..200) ='); ReadLn(n);
    until (n in [1..200]);
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            if (j > i)
            then
                ar[i, j] := 0
            else
                ar[i, j] := n - i + j;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
end.

Вернуться к обсуждению:
Сформировать квадратную матрицу n-го порядка Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

09.05.2016, 14:24

Готовые ответы и решения:

Сформировать квадратную матрицу порядка n
1 2 3 ... n-2 n-1 n 2 2 4 ... n-1 n 0 3 4 5 ... n 0 ...

Сформировать квадратную матрицу порядка n
сформировать квадратную матрицу порядка n по заданному образцу c выводом в файл ...

Сформировать квадратную матрицу порядка n
0 0 0 ...0 0 1 0 0 0 ...0 2 0 0 0 0 ...3 0 0 ................. 0 n-1 0....0 0 0 n 0 0 ...0 0...

Матрица: Сформировать квадратную матрицу порядка n
Сформировать квадратную матрицу порядка n

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

09.05.2016, 14:24

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

Сформировать квадратную матрицу n-го порядка по данному образцу
Сформировать квадратную матрицу n-го порядка по данному образцу:

Сформировать квадратную матрицу порядка n по заданному образцу
Сформировать квадратную матрицу порядка n по заданному образцу

Сформировать квадратную матрицу порядка n по заданному образцу
Сформировать квадратную матрицу порядка n по заданному образцу: n n-1 n-2 … 3 2 1...

Сформировать квадратную матрицу порядка n по заданному образцу
Сформировать квадратную матрицу порядка n по заданному образцу: \begin{matrix}1 & 2 & \ 3\ &...

Наверх