Получить целочисленную матрицу. Pascal - Помощь студентам

Dilex · 17.12.2011, 20:59

Получить [aij] i=1..10, j=1..12 –целочисленную матрицу, для которой aij=i+2*j

Ребята всем добрый вечер подкорректируйте пожалуйста мой кодик программки

Код:

program matricaa;
Uses Crt;
var
   a:array [1..10,1..12] of Real;
   i, j :integer;
begin 
   Clrscr;
   for i:=1 to 10 do
   begin
      for j:=1 to 12 do
      begin
         Write ('Vvedite a[',i,',',j,']=');
         Read (a[i,j]);
      end;
   end;
   for i:=1 to 10 do
   begin
      for j:=1 to 12 do 
      begin
         Write (a[i,j]:2:0,'   '); 
      end;
      Writeln;
   end;
  for i:=1 to 10 do
  begin
    for j := 1 to 12 do
    begin
      a [i,j]:= i+2*j;
   
      end;
    end;
  
   WriteLn('a[i,j]=', a[i,j]:4:4);
   ReadLn;
   Readln;
end.

Dilex · 17.12.2011, 21:03

и еще 1 вопрос я не могу глянуть краска на листике потекла
если можно еще и с

Код:

a [i,j]:= i+2+j;

расписать

тутже так будет

Код:

program matricaa;
Uses Crt;
var
   a:array [1..10,1..12] of Real;
   i, j :integer;
begin 
   Clrscr;
   for i:=1 to 10 do
   begin
      for j:=1 to 12 do
      begin
         Write ('Vvedite a[',i,',',j,']=');
         Read (a[i,j]);
      end;
   end;
   for i:=1 to 10 do
   begin
      for j:=1 to 12 do 
      begin
         Write (a[i,j]:2:0,'   '); 
      end;
      Writeln;
   end;
  for i:=1 to 10 do
  begin
    for j := 1 to 12 do
    begin
      a [i,j]:= i+2+j;
   
      end;
    end;
  
   WriteLn('a[i,j]=', a[i,j]:4:4);
   ReadLn;
   Readln;
end.

Mad_Cat · 17.12.2011, 21:13

Код:

program matricaa;
Uses Crt;
var
   a:array [1..10,1..12] of Real;
   i, j :integer;
begin 
   Clrscr;
  for i:=1 to 10 do
  begin
    for j := 1 to 12 do
    begin
      a [i,j]:= i+2+j;
      write(a[i,j],' ');
      end;
writeln;
    end;
   Readln;
end.

Dilex · 17.12.2011, 21:21

Цитата:

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

Код:

program matricaa;
Uses Crt;
var
   a:array [1..10,1..12] of Real;
   i, j :integer;
begin 
   Clrscr;
  for i:=1 to 10 do
  begin
    for j := 1 to 12 do
    begin
      a [i,j]:= i+2+j;
      write(a[i,j],' ');
      end;
writeln;
    end;
   Readln;
end.

Большое спасибо !

Dilex · 17.12.2011, 21:39

Цитата:

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

Код:

program matricaa;
Uses Crt;
var
   a:array [1..10,1..12] of Real;
   i, j :integer;
begin 
   Clrscr;
  for i:=1 to 10 do
  begin
    for j := 1 to 12 do
    begin
      a [i,j]:= i+2+j;
      write(a[i,j],' ');
      end;
writeln;
    end;
   Readln;
end.

А если вот так оформить

Код:

program matricaa;
Uses Crt;
var
   a:array [1..10,1..12] of Real;
   i, j :integer;
begin 
   Clrscr;
  for i:=1 to 10 do
  begin
    for j := 1 to 12 do
    begin
      a [i,j]:= i+2+j;
      write('  ','a=', a[i,j]:4:1);
      end;
writeln;
    end;
   Readln;
end.

некоторые строки матрицы не влезают что делать ?

Mad_Cat · 17.12.2011, 22:10

Цитата:

некоторые строки матрицы не влезают что делать ?

а зачем вам Real если элемент 100% целое число?
чем вам мой вывод не понравился?
зачем выводить букву 'a'?

Dilex · 18.12.2011, 00:38

Да действительно спасибо за подсказку ! я почемуто и правда в описаниях вместо типа integer написал тип Real что есть наверное грубая ошибка в данном примере ! вопрос решен тема закрыта ! еще раз огромное спасибо ваш вариант меня вполне устраивает

17.12.2011, 20:59	#1
Dilex Пользователь Регистрация: 04.11.2010 Сообщений: 76	Получить целочисленную матрицу. Pascal Получить [aij] i=1..10, j=1..12 –целочисленную матрицу, для которой aij=i+2j Ребята всем добрый вечер подкорректируйте пожалуйста мой кодик программки Код: `program matricaa; Uses Crt; var a:array [1..10,1..12] of Real; i, j :integer; begin Clrscr; for i:=1 to 10 do begin for j:=1 to 12 do begin Write ('Vvedite a[',i,',',j,']='); Read (a[i,j]); end; end; for i:=1 to 10 do begin for j:=1 to 12 do begin Write (a[i,j]:2:0,' '); end; Writeln; end; for i:=1 to 10 do begin for j := 1 to 12 do begin a [i,j]:= i+2j; end; end; WriteLn('a[i,j]=', a[i,j]:4:4); ReadLn; Readln; end.`

17.12.2011, 21:13	#3
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `program matricaa; Uses Crt; var a:array [1..10,1..12] of Real; i, j :integer; begin Clrscr; for i:=1 to 10 do begin for j := 1 to 12 do begin a [i,j]:= i+2+j; write(a[i,j],' '); end; writeln; end; Readln; end.` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Получите целочисленную квадратную матрицу того же порядка, в которой элемент равен единице	Makavelli	Microsoft Office Word	17	19.12.2011 19:07
дано целое число n. Получить целочисленную матрицу b размером n x n для которой b(i,j)=i-3j	Романн	Помощь студентам	1	07.06.2011 19:58
Получить действ. кв. матрицу	Владимир_король	Помощь студентам	0	03.05.2010 20:54
Дана действительная матрица А(i,j), i,j=1,...,n. Получить матрицу В(i,j)	alexandra2	Паскаль, Turbo Pascal, PascalABC.NET	3	26.04.2010 20:44
получить матрицу	vo_sa	Общие вопросы C/C++	6	26.06.2009 19:51

18.12.2011, 00:38	#7
Dilex Пользователь Регистрация: 04.11.2010 Сообщений: 76	Да действительно спасибо за подсказку ! я почемуто и правда в описаниях вместо типа integer написал тип Real что есть наверное грубая ошибка в данном примере ! вопрос решен тема закрыта ! еще раз огромное спасибо ваш вариант меня вполне устраивает