Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Найти произведение индексов наибольшего элемента массива https://www.cyberforum.ru/ pascalabc/ thread755643.html 2. Решить задачу: в линейном массиве есть одинаковые элементы. Найти произведение индексов наибольшего элемента массива.	1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже Pascal ABC Program Ex_4; Type LinMass = Array Of Integer; Var I, N : Byte; K : Integer; A : LinMass; Begin Randomize; Write('Сколько элементов в массиве? '); ReadLn(N); Write('Введите заданное число K: '); ReadLn(K); For I := 1 To N Do Begin A := -100 + Random(201); Write(A : 6) End; WriteLn; For I := N DownTo 1 Do
Pascal ABC Заполнить квадратную матрицу порядка N по следующему правилу 3. Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: по периметру записывается число, совпадающее с порядком матрицы, а все другие элементы равны нулю. https://www.cyberforum.ru/ pascalabc/ thread755640.html	Pascal ABC Найти максимальный элемент среди отрицательных элементов массива https://www.cyberforum.ru/ pascalabc/ thread755639.html 2. Решить задачу: в вещественном массиве найти максимальный элемент среди его отрицательных элементов
Pascal ABC 1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже Program Example_Kr4; Type Vector = Array Of Integer; Var A : Vector; I, J, N : Word; Begin Randomize; Write('Сколько элементов в массиве? '); ReadLn(N); N := N - 1; For I := 0 To N Do Begin A := -100 + Random(201); Write(A:6) End; WriteLn; I := 0; While I <= N Do	Pascal ABC Создать третий массив того же размера, каждый элемент которого равен сумме соответствующих элементов первых двух https://www.cyberforum.ru/ pascalabc/ thread755635.html 3. Решить задачу: даны два двумерных массива одинакового размера. Создать третий массив того же размера, каждый элемент которого равен сумме соответствующих элементов первых двух.
Pascal ABC В массиве найти два элемента, среднее арифметическое которых ближе всего к X 2. Решить задачу: даны действительное число X и массив A(N). В массиве найти два элемента, среднее арифметическое которых ближе всего к X. https://www.cyberforum.ru/ pascalabc/ thread755634.html	1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже Pascal ABC Program Kr_N_4; Var A : Array Of Integer; I, K, P: 1..20; C : Integer; Begin Randomize; For I := 1 To 20 Do Begin A := -10 + Random(21); Write(A, ' ') End; WriteLn; I := 1; While (A<=0) And (I<=N) Do I := I+1; If A>0 Then K := I Else K := 0; I := N; While (A>=0) And (I>0) Do I := I-1;
Pascal ABC Двумерный массив. Заполнить по правилу https://www.cyberforum.ru/ pascalabc/ thread755587.html 3. Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: элементы равны остатку от деления суммы индексов на заданное число K. помогите решить,спасибо	Pascal ABC Одномерный массив. Поменять порядок следования элементов 2. Решить задачу: не используя дополнительных массивов, поменять порядок следования элементов линейного массива на обратный. Например, для заданного массива –1, 12, 0, 1, 14 получается ответ 14, 1, 0, 12, –1. помогите решить,спасибо https://www.cyberforum.ru/ pascalabc/ thread755584.html
Pascal ABC Массивы. Сформулировать условие задачи по решению 1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. Program Kr_4_z1; Type Vector = Array Of Real; Var I, K, M, N : Word; A : Vector; Begin Randomize; Write('Сколько элементов в массиве? '); ReadLn(N); Write('Введите заданное число K (меньше числа элементов в массиве): '); ReadLn(K); For I := 1 To N Do Begin A := -100 + Random * 200.1;...	Pascal ABC Присвоить целой переменной d первую цифру из дробной части положительного вещественного числа х https://www.cyberforum.ru/ pascalabc/ thread755543.html присвоить целой переменной d первую цифру из дробной части положительного вещественного числа х

ermolay

3451 / 2389 / 2135

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

Сообщений: 3,966

08.01.2013, 14:47

Получить квадратную матрицу по правилу - Pascal ABC - Ответ 3968148

08.01.2013, 14:47. Показов 1550. Ответов 1

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

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

Решение

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of byte;
  n,i,j,k: byte;
begin
  write('n=');
  readln(n);
  writeln('Matrix: ');
  for i:=2 to n do
    for j:=1 to i-1 do
      a[i,j]:=0;
  for i:=1 to n do
    for j:=i to n do
    begin
      inc(k);
      a[i,j]:=k;
    end;
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end.

Вернуться к обсуждению:
Получить квадратную матрицу по правилу Pascal ABC

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

08.01.2013, 14:47

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

Получить квадратную матрицу по правилу
Даны действительные числа a1,a2,a3..an вводимые с клавиатуры. Получить квадратную матрицу порядка...

Получить квадратную матрицу по правилу
Здравствуйте друзья, помогите получить квадратную матрицу порядка N:

Получить квадратную матрицу по правилу
3. Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: элементы, стоящие...

Получить квадратную матрицу по правилу
Заполнить квадратную матрицу порядка N по следующему правилу: элементом массива является степень,...

	08.01.2013, 14:47

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

08.01.2013, 14:47

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

Получить квадратную матрицу по правилу
Заранее огромное спасибо!

Получить квадратную матрицу по правилу
Получить квадратную матрицу порядка n:

Получить квадратную матрицу по правилу
матрица изображена на рисунке

Получить квадратную матрицу по правилу
Привет всем, помогите получить матрицу и по возможности не много объяснить принцип. Не первый раз...

Наверх