Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Просуммировать элементы массива до первого нуля или сообщить об отсутствии нулей в массиве Просуммировать элементы массива до первого нуля или сообщить об отсутствии нулей в массиве. https://www.cyberforum.ru/ pascalabc/ thread755922.html	Точно и однозначно сформулировать условие задачи, решение которой приведено ниже Pascal ABC Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. Program Ex_4_5; Type LinMass = Array Of Integer; Var I, N : Byte; K : Integer; A : LinMass; Begin Randomize; Write('Сколько элементов в массиве (ввести N)? '); ReadLn(N); Write('Введите заданное число K (K < N): '); ReadLn(K); For I := 1 To N Do Begin A := -100 + Random(201); Write(A :...
Pascal ABC Заполнить квадратную матрицу порядка N Заполнить квадратную матрицу порядка N (порядок кратен 4), поделенную на 4 квадрата таким образом: I II III IV целыми числами по следующему правилу: сумма индексов элемента делится на номер квадрата. https://www.cyberforum.ru/ pascalabc/ thread755916.html	Pascal ABC Найти сумму величин, обратных к положительным элементам заданного массива Найти сумму величин, обратных к положительным элементам заданного массива. https://www.cyberforum.ru/ pascalabc/ thread755912.html
Точно и однозначно сформулировать условие задачи, решение которой приведено ниже Pascal ABC Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. Program Ex_4_1; Type Mas1 = Array Of Word; Var I, J, N : Integer; A : Mas1; Begin Randomize; Write('Сколько элементов в массиве? '); ReadLn(N); For I := 1 To N Do Begin A := Random(1001); Write(A : 6) End; WriteLn; I := 1;	Pascal ABC Записи: организовать массив, содержащий сведения о 16 веществ https://www.cyberforum.ru/ pascalabc/ thread755905.html Помогите организовать массив, содержащий сведения о 16 веществ: указать название вещества, его удельный вес и проводимость (проводник, полупроводник, изолятор). а) найти удельный вес и название всех полупроводников. б) выбрать данные о проводники и упорядочить их по убыванию удельного веса; в) вывести на экран названия веществ, которые являются изоляторами с выяснением удельного веса. вот...
Pascal ABC переделать код https://www.cyberforum.ru/ pascalabc/ thread755899.html Дано действительное число a, натуральное число n, вычислить a^n (цикл while-do) Program z; var a,n: integer; x: real; i: byte; begin write('Введите число: '); readln(a);	Pascal ABC Написать программу что бы шарик шел по часовой стрелке Напишите программу что бы шарик шел по часовой стрелке, самыми простыми командами типа while и т.д Без for!
Pascal ABC Двумерный массив. Упорядочить строки по неубыванию наибольших элементов строк. Уважаемые форумчане, помогите пожалуйста через пару дней экзамен а программы написать немогу. Уже не знаю что делать, пишу вам) 3. Упорядочить строки данной вещественной матрицы по неубыванию наибольших элементов строк. Зарание спасибо вам огромное Добавлено через 2 часа 38 минут ни как? https://www.cyberforum.ru/ pascalabc/ thread755704.html	Pascal ABC Преобразовать строку таким образом, чтобы цифры каждого слова были перенесены в начало слова, изменив порядок следования цифр в слове на обратный https://www.cyberforum.ru/ pascalabc/ thread755699.html Уважаемые форумчане, помогите пожалуйста через пару дней экзамен а программы написать немогу. Уже не знаю что делать, пишу вам) 2.Преобразовать строку таким образом, чтобы цифры каждого слова были перенесены в начало слова, изменив порядок следования цифр в слове на обратный Зарание спасибо вам огромное
Pascal ABC Определить день недели Уважаемые форумчане, помогите пожалуйста через пару дней экзамен а программы написать немогу. Уже не знаю что делать, пишу вам) 1.Определить день недели для данной даты, если известен день недели какой либо даты. Зарание спасибо вам огромное	Pascal ABC Строки. Подсчитать, сколько раз в дробной части исходного числа встречается комбинация цифр 33 Дано вещественное число a. Подсчитать, сколько раз в дробной части исходного числа встречается комбинация цифр 33. Использовать стандартные процедуры и функции в действиях над строками. https://www.cyberforum.ru/ pascalabc/ thread755676.html

ermolay

3451 / 2389 / 2135

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

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

08.01.2013, 19:03

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

08.01.2013, 19:03. Показов 1071. Ответов 1

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

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

Решение

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j,p,res: integer;
begin
  write('Введите размер матрицы n: ');
  readln(n);
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      res:=1;
      for p:=1 to j do res:=res*i;
      a[i,j]:=res;
      write(a[i,j]:8);
    end;
    writeln;
  end;
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

08.01.2013, 19:03

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

08.01.2013, 19:03

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

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

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

Получить квадратную матрицу по правилу
Получить квадратную матрицу n 0 0 0 ... 0 0 0 1 0 ... 0 0 0 2 0 ... 0 0 ...

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

Наверх