Программирование на алгоритмическом языке Turbo Pascal

[Дима82]

c[i]:=random(m-1)+random+1;

А что, вообще, означает это выражение...

[Дима82]

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

Если в Ваш код то так:

Writeln('Kontrolnyi Byvod matricy: ');
For I:=1 to P do
Begin
For J:=1 to Q do Write (A[I,J]:5:2);
Writeln;
End;
//вставка
for i:=1 to p do
     begin
       c[i]:=random(m-1)+random+1;
       a[i,i]:=c[i];
     end;
writeln('Rezultat:');
For I:=1 to P do
    begin
      For J:=1 to Q do
     Write(A[I,J]:5:2);
     writeln;
   End;
readln
End.

Если вводить любые числа, то на главной диагонали результат один и тот же...

[puporev]

Вы написали

А можно сделать так, чтобы не самому вводить С(М), а чтобы она автоматичеки вводилась (любые произвольные числа от 1..М)

Поскольку у вас числа вещественные, то точно 1 и M вы не получите, но диапазон сохранить можно. Например М=5, тогда random(m-1) даст диапазон [0,3]. random - это вещественные числа из интервала (0,1).
random(m-1)+random = (0,4), а еще +1 = (1,5). То, что вы хотели.

[Дима82]

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

Поскольку у вас числа вещественные, то точно 1 и M вы не получите, но диапазон сохранить можно. Например М=5, тогда random(m-1) даст диапазон [0,3]. random - это вещественные числа из интервала (0,1).
random(m-1)+random = (0,4), а еще +1 = (1,5). То, что вы хотели.

Ну, а если сделать через целый тип (integer), то что получится?

[Дима82]

Я попробовал через integer, что-то не получается, как это должно выглядить? Вместо Random, что должно использоваться?

[Дима82]

Кто-нибудь ответить на мой вопрос, пожалуйста?

[eoln]

Random - вещественное число от 0 до 1
Random(5) - целое число от 0 до 4

Просто везде надо использовать Random(M) и всё

[puporev]

Я вам просто поражаюсь Дима. Вы понятия не имеете, чего хотите в своих поисках главной диагонали в прямоугольной матрице, какого-то метания от вещественного типа к целому, при этом не имея знаний об элементарных вещах. Да прочитайте один учебник, хотя бы не до конца и почти все, что вы спрашиваете, узнаете. 18 постов переливания из пустого в порожнее, а вы по-моему так ничего и не поняли.

[Дима82]

Я вам просто поражаюсь Дима. Вы понятия не имеете, чего хотите в своих поисках главной диагонали в прямоугольной матрице, какого-то метания от вещественного типа к целому, при этом не имея знаний об элементарных вещах. Да прочитайте один учебник, хотя бы не до конца и почти все, что вы спрашиваете, узнаете. 18 постов переливания из пустого в порожнее, а вы по-моему так ничего и не поняли.

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

[Дима82]

Большое СПАСИБО всем, кто ответил на интересующие мною вопросы.