Задана квадратная матрица 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:=1to N dofor j:=1to 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)
20 на 20? что блин трудно написать что ли?
program vvod;
var
A:array[1..20,1..20]of real;
N,i,j:integer;
begin
N:=20;
for i:=1to N dofor j:=1to 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;
beginrepeat
writeln('vvedite N<=20');
readln(N);
until N<=20;
for i:=1to N dofor j:=1to 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; вот вроде так?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.