Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Симпатичные узоры http://www.cyberforum.ru/turbo-pascal/thread1426722.html
Компания BrokenTiles планирует заняться выкладыванием во дворах у состоятельных клиентов узоров из черных и белых плиток, каждая из которых имеет размер 1 х 1 метр. Известно, что дворы всех...
Если количество четных элементов массива меньше нечетных то подсчитать определитель Turbo Pascal
дан массив 7х7, если количество четное элементов меньше не четных то подщетать определитель,в противном случае построить симетричную матрицу и добиться выравнивания выводимых элементов элементы не...
При условии что a<10 или a>10 выполнить только одну из меток Turbo Pascal
как правильно написать чтоб при условии что a<10 или a>10 выполнялось только одна из меток. uses crt; label q1,q2; var a,b,c:integer; begin write('Vvedite a: ');
Turbo Pascal Построить график функции построить график функции y=(5+sqr(x))/x*(x+1) , x шаг 0.25 http://www.cyberforum.ru/turbo-pascal/thread1426568.html
Turbo Pascal Вычислить сумму площадей всех квадратов http://www.cyberforum.ru/turbo-pascal/thread1426545.html
Имеется m квадратов, вписанных последовательно друг в друга так, что их границы не пересекаются. Длина стороны самого большого квадрата равна d, длина следующего квадрата меньше на...
Turbo Pascal Составить программу для вычисления значений функции F(x) на отрезке [a,b] с шагом h
Составить программу для вычисления значений функции F(x) на отрезке с шагом h. Результат представить в виде таблицы, первый столбец который – значения аргумента, второй – соответствующие значения...
Turbo Pascal Создать изображение имеющие 5 графических элементов, 5 разных цветов, и 3 стиля заполнения фигур
Создать изображение имеющие 5 графических элементов, 5 разных цветов, и 3 стиля заполнения фигур. Я начал немного. Кто может, помогите дописать. uses crt,graph; var gd,gm:integer;...
Turbo Pascal Поменять элементы массива по правилу Столкнулся с проблемой такого порядка. Как ни крутил, решить оптимально не получается. Требуется мозговой штурм коллективного разума. Задача выглядит следующим образом. Имеется одномерный массив с... http://www.cyberforum.ru/turbo-pascal/thread1426263.html
Turbo Pascal Определить, принадлежит ли точка закрашенной области http://www.cyberforum.ru/turbo-pascal/thread1426259.html
Для Данный Областей составить линейную программу которая печатает true если точка с координатами (x,y) принадлежит закрашенной области и false -в противном случае
Turbo Pascal Найти все натуральные числа, не превосходящие заданного Найти все натуральные числа, не превосходящие заданного n,которые делятся на каждую из своих цифр http://www.cyberforum.ru/turbo-pascal/thread1426161.html
Николайс
0 / 0 / 0
Регистрация: 01.04.2015
Сообщений: 15
24.04.2015, 02:47  [ТС] 0

Получение матрицы, элементы которой равны произведению значений индексов строки и столбца

24.04.2015, 02:47. Просмотров 877. Ответов 13
Метки (Все метки)

Ответ

Здравствуйте! Программа верная, но препод сказал ее немного переделать. Вот сама программа, нужно нижнюю часть перенести выше переделать на процедуру. Вверху еще препод сказал писать Program. Помогите пожалуйста, а то в паскале не очень силен. Спасибо!
Кликните здесь для просмотра всего текста
1 const
2 nmax=10;
3 type
4 matrix=array [1..nmax,1..nmax] of integer;
5 var
6 x:matrix;
7 i,j:integer;
8 n: integer;
9 function matr(n:integer):matrix;
10 var
11 a:matrix;
12 i,j:integer;
13 begin
14 for i:=1 to n do
15 for j:=1 to n do
16 a[i,j]:=i*j;
17 matrx:matrix;:=a;
18 end;
{--------------------------------}
19 begin
20 readln(n);
21 x:=matr(n);
22 for i:=1 to n do
23 begin
24 writeln;
25 for j:=1 to n do
26 write(x[i,j]:5);
27 end;
28 readln;
29 end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
const
  nmax = 10;
 
type
  matrix = array [1..nmax, 1..nmax] of integer;
 
var
  x: matrix;
  i, j: integer;
  n: integer;
 
function matr(n: integer): matrix;
var
  a: matrix;
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := i * j;
  matrx:matrix;:= a;
end;
{--------------------------------}
begin
  readln(n);
  x := matr(n);
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(x[i, j]:5);
  end;
  readln;
end.


Вернуться к обсуждению:
Получение матрицы, элементы которой равны произведению значений индексов строки и столбца
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2015, 02:47

Найти и вывести номер первой строки, в которой все элементы равны нулю
1. С клавиатуры вводится матрица вещественных чисел размером N строк на M столбцов. N не...

Вывести номер столбца квадратной матрицы, у которого все элементы равны 0
Задача с квадратной матрицой: Вывести номер столбца, у которого все элементы равны 0, а если...

Если все элементы какой-либо строки данной матрицы равны между собой, то все элементы такой строки замените нулями
Если все элементы какой-либо строки данной матрицы равны между собой, то все элементы такой строки...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.