PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Заполнить двумерный массив по правилу https://www.cyberforum.ru/ pascalabc-net/ thread1283055.html Заполнить двумерный массив: \begin{pmatrix}1&0&2&0&3&0&4 \\0&5&0&6&0&7&0 \\8&0&9&0&10&0&11 \\0&12&0&13&0&14&0 \\\end{pmatrix}	PascalABC.NET Заполнить двумерный массив по правилу Заполнить двумерный массив: \begin{pmatrix} 4&4&4&4\\3&3&3&3\\2&2&2&2\\1&1&1&1\\\end{pmatrix}
PascalABC.NET Заполнить двумерный массив по правилу Заполнить двумерный массив: \begin{pmatrix}4& 8 &12 &16\\3& 7& 11& 15\\2 &6 &10 &14\\1& 5& 9 &13\\\end{pmatrix} https://www.cyberforum.ru/ pascalabc-net/ thread1283052.html	PascalABC.NET Составить программу для вычисления произведения https://www.cyberforum.ru/ pascalabc-net/ thread1282997.html Столкнулся с трудностью при решении данной задачи: Составить программу для вычисления произведения \prod_{j=1}^{15}\frac{j \cdot \sqrt{\left\|x \right\|}}{sin^2(jx)}\;, \;j=1,3,5,...,15
PascalABC.NET Как откомпилировать программу без IDE pascalabc.net? Просто скомпилировать код, который написан, допустим, в обычном блокноте?	PascalABC.NET Нахождение экстремальных элементов в одномерных массивах https://www.cyberforum.ru/ pascalabc-net/ thread1282745.html Здравствуйте.Не получается решить задачу.Помогите пожалуйста найти ошибку. Составить программу нахождения экстремального элемента или его порядкового номера при заданном одномерном массиве А из n элементов (или массивах А и С по n элементов в каждом). И вот сама задача.Определить номер m наибольшего среди произведений \prod_{i=1}^{m}Ai^2 ,(m=1,2,...,n). И вот мое решение. Program1;...
PascalABC.NET Дан символьный файл f. Найти самое длинное слово среди слов, вторая буква которых "e" дан символьный файл F .Найти самое длинное слово среди слов,вторая буква которых есть "e".Если слов с наибольшей длиной несколько,то найти последнее.Если таких слов нету вообще,то сообщить об этом. https://www.cyberforum.ru/ pascalabc-net/ thread1282658.html	Для данного Н найти количество чисел в интервале от 1 до Н, делящихся на сумму своих цифр PascalABC.NET кто знает напишите код
PascalABC.NET Вычислить значение функции y при значениях аргумента, заданных в массиве Ввести с клавиатуры массив X, содержащий 20 элементов. Вычислить значение функции y=0,5LNx при значениях аргумента, заданных в массиве X и поместить их в массив Y. Найти в массиве Y максимальный элемент, целая часть которого кратна 3 и его индекс. На экран вывести массивы X,Y и индекс найденного элемента. https://www.cyberforum.ru/ pascalabc-net/ thread1282410.html	PascalABC.NET Вычислить значение выражения https://www.cyberforum.ru/ pascalabc-net/ thread1282139.html Дано натуральное число n. Вычислить: 1)(1+\frac1{a})(1+\frac1{2a})...(1+\frac1{na}) 2)a(a-n)(a-2n)...(a-nn) Если можно, помогите пожалуйста.
PascalABC.NET Выписать тройки чисел строки, одно из которых равно сумме двух Здравствуйте, форум. Помогите, пожалуйста, решить задачу. Даны строки чисел, цифр в текстовом файле. Некоторые числа, разбросанные по строке, образуют тройки, где одно из них равно сумме двух других. В строке может быть от 0 до нескольких троек. Надо выписать только тройки в виде а=b+c, сохраняя строчность файла. Pascal ABC.Net. Пример строк и попытки программы приводятся	PascalABC.NET Чтение текстового файла и заполнение массива символами из него Добра всем! Такая проблема возникла , так как не силен в Паскале: Есть текстовый файл ,который заполнен текстом следующим образом - Аршавин 9321233333 Михалыч 9321234666 Бубнов 9321231111 Букин 9321231211 Яабкин 9321231676 ---------------Тут должно быть 25 символов (с пробелами после Фамилии имею ввиду) Ривалдо 9321231555... https://www.cyberforum.ru/ pascalabc-net/ thread1281796.html

Puporev

Почетный модератор

64304 / 47599 / 32743

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

Сообщений: 115,181

24.10.2014, 12:37

Заполнить квадратную матрицу - PascalABC.NET - Ответ 6762267

24.10.2014, 12:37. Показов 1066. Ответов 1

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

Сообщение было отмечено Yorich как решение

Решение

Pascal

const nmax=20;
var a:array[,] of integer;
    n,i,j,k,m:integer;
begin
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
setlength(a,n,n);
m:=n div 2;
k:=1;
for j:=n-1 downto m do
for i:=n-j-1 to j do
 begin
  a[i,j]:=k;   
  k:=k+1;
 end;
 for i:=0 to n-1 do
  begin
   for j:=0 to n-1 do
   write(a[i,j]:3);
   writeln
  end; 
end.

Вернуться к обсуждению:
Заполнить квадратную матрицу PascalABC.NET

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

24.10.2014, 12:37

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

Заполнить целочисленную квадратную матрицу А по правилу
Заполнить целочисленную квадратную матрицу А порядка N (N – заданное натуральное число > 4) по...

Сформировать квадратную матрицу по правилу
Нужно написать программу на Pascal, которая выведет такую квадратную матрицу: 5 0 1 0 1 0 5 0 1 0...

Получить квадратную матрицу порядка n
Решил задачку, вот ни знаю правильно или нет. Ребята посмотрите по картинке так ни так: Получить...

Сформировать квадратную матрицу порядка n по образцу
Очень нужна помощь! Сформировать квадратную матрицу порядка n по образцу 1)111...111 ...

	24.10.2014, 12:37

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

24.10.2014, 12:37

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

Сформировать квадратную матрицу порядка n по заданному образцу
Обработка двумерных массивов. Сформировать квадратную матрицу порядка n по заданному образцу 1 1...

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

Получить на экране ЭВМ квадратную матрицу по правилу
Получить на экране ЭВМ квадратную матрицу: 1 2 3 4 ... 2 4 6 8 ... 3 6 9 12 ... ...............

Зеркально отобразить квадратную матрицу по побочной диагонали
Вводим целочисленную матрицу 5х5. Программа должна отобразить матрицу зеркально по побочной...

Наверх