Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Исправить код program P4; type school = record nm:integer; name: string; surname: string; god: integer; bukva:set of char= {Множество русских букв:} ; end; https://www.cyberforum.ru/ turbo-pascal/ thread1672294.html	В одномерном массиве определить количество соседств двух чисел одного знака и вывести на экран пары этих чисел Turbo Pascal Задан одномерный массив из 15 целых положительных и отрицательных чисел. Составить программу которая определяет количество соседств двух чисел одного знака и выводит на экран пары этих чисел
Turbo Pascal Найти среди элементов массива два элемента, модуль разности которых имеет наименьшее значение https://www.cyberforum.ru/ turbo-pascal/ thread1671629.html Дан массив X(215). Найти среди его элементов два элемента, модуль разности которых имеет наименьшее значение	Turbo Pascal Как нарисовать свиток https://www.cyberforum.ru/ turbo-pascal/ thread1671383.html Помогите
Turbo Pascal Удалить элемент последовательности, наиболее близкий по значению к максимальному в данной последовательности Задана последовательность А1,......А20), не содержащая одинаковых элементов. 1. Удалить элемент последовательности, наиболее близкий по значению к максимальному в данной последовательности. Под удалением элемента из массива понимать исключении этого элемента путём смещения всех следующих за ним элементов влево на 1 позицию и присвоение последнеиу элементу массива —0. 2. преобразованную...	Turbo Pascal Вывести вторую и предпоследнюю строки файла https://www.cyberforum.ru/ turbo-pascal/ thread1671005.html Ввести вторую и предпоследнюю строки файла. Если в файле только одна строка, то выводить сообщения нет решения
Turbo Pascal Найти трёхзначные числа, делящиеся нацело на сумму своих цифр While Вывести на экран в строку через пробел такие трёхзначные числа, у которых само число делится на сумму цифр его. https://www.cyberforum.ru/ turbo-pascal/ thread1670914.html	Turbo Pascal Из текстового файла записать в файл целых чисел все числа кратные заданному K Добрый вечер! Помогите написать код на Паскале,.
Turbo Pascal Задана строка S, найти все слова заданной длины и вывести их на экран Помогите решить -написать код на Паскале.Пожалуйста. https://www.cyberforum.ru/ turbo-pascal/ thread1670706.html	*Turbo Pascal Написать программу выводящую на экран снежинку из символа ""** - Написать программу выводящую на экран снежинку из символа "*" (Через: Procedure/Function) https://www.cyberforum.ru/ turbo-pascal/ thread1670652.html
Определить число всевозможных "маршрутов" мячика с вершины на землю Turbo Pascal На вершине лесенки, содержащей N ступенек, находится мячик, который начинает прыгать по ним вниз, к основанию. Мячик может прыгнуть на следующую ступеньку, на ступеньку через одну или через 2. (То есть, если мячик лежит на 8-ой ступеньке, то он может переместиться на 5-ую, 6-ую или 7-ую.) Определить число всевозможных "маршрутов" мячика с вершины на землю. Входные данные Вводится одно число 0...	Turbo Pascal Создать иллюзию движения по дороге https://www.cyberforum.ru/ turbo-pascal/ thread1670073.html Слева от елочек (или справа неважно), должна появиться дорога(непринципиально какая), при этом должна быть иллюзия нашего движения( к примеру мы едем по дороге), а елочки изменяют свою высоту, (в дали маленькие, ближе к нам большие). Огромное спасибо!!!!! Program newyear; uses graph,crt; Var g,m:integer; t,s:pointer; a:arrayof integer; Begin g:=detect;

bormant

Модератор

7534 / 4394 / 2785

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

Сообщений: 12,588

Записей в блоге: 1

28.02.2016, 11:56

Составить процедуру для создания матрицы А - Turbo Pascal - Ответ 8811226

28.02.2016, 11:56. Показов 1333. Ответов 1

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

Ответ

Pascal

const n=8;
type
  TVector = array [1..n] of Longint;
  TMatrix = array [1..n] of TVector;
procedure mGen(const v: TVector; var m: TMatrix);
var i, j: Integer;
begin
  m[1]:=v;
  for i:=2 to n do for j:=1 to n do m[i,j]:=m[1,j]*m[i-1,j];
end;
var
  x: TVector;
  a: TMatrix;
  i, j: Integer;
begin
  for i:=1 to n do x[i]:=i; mGen(x,a);
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:9); WriteLn;
  end;
end.

Добавлено через 4 минуты
Исходный вариант без процедуры вполне мог быть таким:

Pascal

const n=8;
type
  TVector = array [1..n] of Longint;
  TMatrix = array [1..n] of TVector;
var
  x: TVector;
  a: TMatrix;
  i, j: Integer;
begin
  for i:=1 to n do x[i]:=i;
  a[1]:=x; for i:=2 to n do for j:=1 to n do a[i,j]:=a[1,j]*a[i-1,j];
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:9); WriteLn;
  end;
end.

Вернуться к обсуждению:
Составить процедуру для создания матрицы А Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.02.2016, 11:56

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

Составить процедуру для получения из квадратной матрицы A(n,n), n<=6 матрицы B(n,n-1) путем вычеркивания элементов главной диагонали исходной
Помогите пожалуйста составить процедуру для Паскаля: Составить процедуру для получения из...

Процедура (Составить процедуру для нахождения макс. элемента матрицы)
Помогите написать программку. Задание: Составить процедуру для нахождения макс. элемента...

Составить процедуру для нахождения индексов максимального элемента квадратной матрицы
помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной...

Составить процедуру и функцию для вычисления значений элементов матрицы по заданной формуле
Составить подпрограмму-процедуру и подпрограмму-функцию для вычисления значений элементов а ij...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.02.2016, 11:56

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

Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n)
Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n)...

Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы
Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы A(m*n)...

Написать процедуру создания типизированного файла из первых строк целочисленной матрицы
Процедура создания файла типизированного из первых строк целочисленный матриц 4-го порядка,...

Подскажите процедуру для создания таблицы умножения
Подскажите пожалуйста процедуру для создания таблицы умножения в VBA,и чтобы msgbox выдавал кол-во...

Наверх