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

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

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

Разработать алгоритм и написать программу на языке 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
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
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
1
2
3
4
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
1
2
3
4
5
6
7
8
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.

Прогон:

Code
1
Привет!

@Cyborg Drone · 16.04.2014, 12:39

Не по теме:

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

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@cempel 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 28

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

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

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

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