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

Автор: sanek 16.05.2007 19:12

Задана квадратная матрица A вещественных чисел размера NxN(т.е 20 на 20)(n<=20, задается как параметр). Построить по ней матрицу B такого же размера
НЕ понимаю как ввести матрицу А ну и Б по ней...

Автор: Rom1k 16.05.2007 20:55

напиши то,что смог сделать

Автор: compiler 16.05.2007 22:07

используй вложеные цыклы.. во внешнем проходиш по одному индексу, а во втором по второму... в теле вложеного цикла читаеш/присваеваеш значение...

на форуме обсуждалось не раз...
я лично выкладывал решение(всегда мечтал это сказать :) )

Автор: sanek 16.05.2007 23:23

Да блин , если все такие умники, то напишите блин как ввести эту матрицу!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Автор: мисс_граффити 17.05.2007 3:33

for i:=1 to N do
  for j:=1 to N do
    readln(A[i,j]; 

Автор: sanek 18.05.2007 10:49

20 на 20? что блин трудно написать что ли?

Автор: samec 18.05.2007 10:54

Цитата(sanek @ 18.05.2007 10:49)

program vvod;
 var
 A:array[1..20,1..20]of real;
 N,i,j:integer;
begin
N:=20;
for i:=1 to N do
  for j:=1 to N do
    readln(A[i,j];
end.

Автор: sanek 18.05.2007 20:18

размера NxN(т.е 20 на 20)(n<=20, задается как параметр).
N<20!

Автор: volvo 18.05.2007 20:28

Послушай, тебе же ясно сказали, поиск тебе поможет... Ты что, решил что в сказку попал? И по первому твоему ПРИКАЗУ (а иначе твои посты я просто не могу трактовать) все просто ОБЯЗАНЫ кинуться и выполнять то, что тебе надо? А с какой стати, ты не подумал?

Если даже тебе и напишут полное решение, кто тебе сказал, что ты поймешь его? Оно будет специально написано так, что ты поседеешь, пока будешь разбираться в том, что там происходит, чтоб в следующий раз думал, КАК задавать вопросы!

Автор: sanek 18.05.2007 21:01

Задана квадратная матрица A вещественных чисел размера NxN(т.е 20 на 20)(n<=20, задается как параметр). Построить по ней матрицу B такого же размера
Я что блин полное решение прошу? я просто не понимаю как n<=20 сделать?

Автор: мисс_граффити 19.05.2007 3:37

program vvod;
 var
 A:array[1..20,1..20]of real;
 N,i,j:integer;
begin
repeat
  writeln('vvedite N<=20');
  readln(N);
until N<=20;
for i:=1 to N do
  for j:=1 to N do
    readln(A[i,j];
end.

Автор: sanek 19.05.2007 23:37

program upr;
uses crt;
const n=4;
type mas=array[1..20,1..20] of integer;
var a,b,c:mas;i,j:integer;
for i:=1 to n do begin
for j:=1 to n do begin
write('a[',i,','j,']=');
read(a[i,j]);
gotoxy(j*10,i);end;end;
вот вроде так?