Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел

@cempel · Регистрация: 07.12.2012

Author24 — интернет-сервис помощи студентам

Разработать алгоритм и написать программу на языке Turbo Pascal.
Задана матрица (двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел. Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы.

@Svager · 14.04.2014, 21:11

Сообщение от cempel

Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы.

что???

@Cyborg Drone · 15.04.2014, 15:46

Сообщение от cempel

Где это необходимо ввести квадратную матрицу

Где это необходимо, по какой причине и о чём идёт речь - неясно.

Сообщение от cempel

Во всех вариантах

Полагаю, что Вы не знали, не поняли, забыли выложить к этому общему заданию Ваш индивидуальный вариант. Но... Каков вопрос, таков и ответ. Вот Вам программа, вводит с клавиатуры размер матрицы NxM до 15х15 включительно, так как большие размеры "в общепринятом виде" на экране не поместятся, генерирует действительные значения элементов матрицы и тут же их выводит на дисплей.

Pascal

const mx = 15;
var a: array [1..mx, 1..mx] of real;
    i, j, n, m: integer;
begin
  randomize;
  repeat
    write('N = ');
    readln(n);
    if n > mx
      then writeln('Error: N > ', mx)
      else begin
        write('M = ');
        readln(m);
        if m > mx then writeln('Error: M > ', mx)
      end;
  until (n <= mx) and (m <= mx);
  writeln('Source matrix:');
  for j := 1 to m do
    begin
      for i := 1 to n do
        begin
          a[i, j] := random * 20 - 10;
          write(a[i, j]:5:1)
        end;
      writeln
    end;
  readln
end.

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

@cempel · 15.04.2014, 21:58 **[ТС]**

Cyborg Drone, спасибо!

@Svager · 16.04.2014, 00:32

Сообщение от Cyborg Drone

for j := 1 to m do begin for i := 1 to n do

просто из интереса, почему именно по столбикам,а не как обычно ?

@Cyborg Drone · 16.04.2014, 01:07

Сообщение от Svager

почему именно по столбикам,а не как обычно ?

Вообще-то, это чистая условность. И что значит "как обычно"? Как принято? Если честно, мне всё равно, как и у кого что принято. Однако, если посмотреть, как элементы массива располагаются в памяти компьютера, то можно сказать, что я более прав, что ли...
одномерный массив, 3 элемента:
[1][2][3]
Двумерный массив, 3х3 элемента:
[1,1][2,1][3,1] [1,2][2,2][3,2] [1,3][2,3][3,3]
то есть, соседние элементы первого индекса (i) располагаются рядом, а второго индекса (j) - через километр. Поэтому внутренний цикл лучше делать по первому индексу, чтобы для индексирования соседних элементов можно было использовать более быстрые, чем сложение или вычитание, операции инкремента или декремента. Сбственно, если компилятор оптимизирующий, он и будет использовать внутренний цикл вида

Assembler

1
2
3

mov cx, max_i;
@1: ;....тело цикла
loop @1

а не

Assembler

mov cx, max_i
@1: ;...тело цикла
sub cx, str_len
jnz @1

Чувствуете разницу? В первом случае ещё и декремент неявный.

@Svager · 16.04.2014, 01:14

Cyborg Drone, ну вот когда на векторе и матрице Вы хорошо изложили...а вот с ассемблером я не знаком.

@Cyborg Drone · 16.04.2014, 01:53

Не по теме:

Ну, для того и создали языки высокого уровня, чтоб с ассемблером не знакомиться... Ассемблер, конечно, "самый лучший" язык... Каждая его инструкция транслируется в одну машинную команду... Что хошь, то и твори... Одна беда: программа, вследствие излишней "подробности", пишется очень долго. Типа, в паскале строчка, в ассемблере - десять. Да ещё и необходимо досконально знать аппаратную часть, не снаружи, а прям из ливера... Ну его, такое счастье. Однако, программисты ассемблер учат... Чтобы была возможность написать, как нравится (быстрее, оптимальнее, иногда даже короче...). Не зря же в любом языке высокого уровня до сих пор есть возможность ассемблерных вставок... В Паскале это

Pascal

1
2
3

asm
//здесь можно писать на ассемблере
end;

@bormant · 16.04.2014, 09:45

Cyborg Drone,

Двумерный массив, 3х3 элемента:
[1,1][2,1][3,1] [1,2][2,2][3,2] [1,3][2,3][3,3]

-- это в Фортране. В Turbo Pascal-е хранение построчное:
[1,1][1,2][1,3] [2,1][2,2][2,3] [3,1][3,2][3,3]
А поскольку с ассемблером знакомы, проверить будет несложно (на самом деле хватит и указателя).

Добавлено через 35 минут

Pascal

var
  a: array [1..3,1..3] of char;
begin
  a[1,1]:='П'; a[1,2]:='р'; a[1,3]:='и'; 
  a[2,1]:='в'; a[2,2]:='е'; a[2,3]:='т';
  a[3,1]:='!'; a[3,2]:=#0;
  WriteLn(PChar(@a));
end.

Прогон:

Код

Привет!

@Cyborg Drone · 16.04.2014, 12:39

Не по теме:

bormant, спасибо... В паскале не смотрел как следует... Глянул в дебаггере, действительно, не как в фортране... Что ж, век живи, век учись, и дураком помрёшь один фиг...

@cempel 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 28
		1
	Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел 13.04.2014, 19:16. Показов 2941. Ответов 9 Метки нет (Все метки) Разработать алгоритм и написать программу на языке Turbo Pascal. Задана матрица (двумерный массив) A размером N x М, состоящая из действительных элементов. Числа M и N вводятся с клавиатуры. Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел. Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы. 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	14.04.2014, 21:11	2
	Сообщение от cempel Где это необходимо ввести квадратную матрицу. Во всех вариантах вывести исходную матрицу в общепринятом виде и необходимые результаты работы программы. что??? 0

@cempel 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 28
	15.04.2014, 21:58 [ТС]	4
	Cyborg Drone, спасибо! 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	16.04.2014, 00:32	5
	Сообщение от Cyborg Drone for j := 1 to m do begin for i := 1 to n do просто из интереса, почему именно по столбикам,а не как обычно ? 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	16.04.2014, 01:14	7
	Cyborg Drone, ну вот когда на векторе и матрице Вы хорошо изложили...а вот с ассемблером я не знаком. 0

@Cyborg Drone
	16.04.2014, 12:39 Для задания исходной матрицы предусмотреть ввод с клавиатуры или ввод с помощью датчика случайных чисел #10
	Не по теме: bormant, спасибо... В паскале не смотрел как следует... Глянул в дебаггере, действительно, не как в фортране... Что ж, век живи, век учись, и дураком помрёшь один фиг... 0