Создать матрицу из членов геометрической прогрессии - Turbo Pascal

Формулировка задачи:

Ask the user to input three positive integers M, N and q. Make the 2 dimensional array of integers with size MxN, where all the elements of I (I = 1,…,M) line will be members of geometrical progression with first element equal to the number of line (I) and denominator q. Просим пользователя ввести три положительных целых числа M, N и q. Сделать 2-мерный массив целых чисел размером MxN, где все элементы I (I = 1,...,M) линии будут членами геометрической прогрессии с первым элементом, равным номеру строк (I) и знаменатель q.

Код к задаче: «Создать матрицу из членов геометрической прогрессии - Turbo Pascal»

textual
var
  a : array [1..100, 1..100] of integer;
  q, n, m, i, j, b : integer;
begin
  write('введите q: ');
  readln(q);
  repeat
    writeln('введите M и N: ');
    readln(m, n)
  until (m in [2..100]) and (n in [2..100]);
  for i := 1 to n do
  begin
    b := i;
    for j := 1 to m do
    begin
      a[i,j] := b * round(exp((j - 1) * ln(q)));
      write(a[i,j]:4)
    end;
    writeln
  end;
  readln 
end.

5   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ