Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ организация циклов в паскале

Автор: otherside 7.5.2008, 15:40

Исходные данные задать самостоятельно генератором случайных чисел random.
Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов.
Найти среднее арифметическое элементов каждого из четных столбцов этой матрицы

Автор: tig81 7.5.2008, 15:46

Цитата(otherside @ 7.5.2008, 18:40)

что вы уже сделали?

Автор: otherside 7.5.2008, 16:07

Цитата(tig81 @ 7.5.2008, 23:46)

что вы уже сделали?

program ;
var
a:array[n,n] of integer; я не понимаю как написать размер матрицы
m,k,n,i,j,m2,n2,S:integer;
begin
randomize;
write ('введите n= ');
read(n);
write ('введите m= ');
read(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20)-10;
writeln('матрица а=');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln( );
end;
ну и как дальше делать

Автор: creer 7.5.2008, 20:31

Код

program task;
var
  a: array[1..10, 1..10] of real; //Думаю наиболее разумный способ задать двухмерный массив в данной задаче, написать фиксированный максимальный размер массива 10x10. Кроме того, в условии сказано использовать действительные числа, а не целые. Значит вместо integer нужно использовать, например, real.
  n, i, j: integer; //Оставим только те, которые используем.
begin
  randomize;
  write ('введите n= ');
  read(n);
  //write ('введите m= '); Массив "квадратный", значит m не нужно.
  //read(m);
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(20)-10;
  writeln('матрица а=');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j],' ');
    writeln( );
  end;
  //Далее необходимо написать нахождение среднего арифметического.
  //В паскале в цикле for нельзя задать увеличение счетчика на произвольную величину, значит удобнее использовать цикл while.
  i:=2;
  while i<=n do
  begin
    //Здесь нужно посчитать сумму элементов столбца.
  i:=i+2; //Увеличили номер столбца на 2
  end;
end. //Не хватает

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)