Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите ввести матрицу...!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
sanek
Задана квадратная матрица A вещественных чисел размера NxN(т.е 20 на 20)(n<=20, задается как параметр). Построить по ней матрицу B такого же размера
НЕ понимаю как ввести матрицу А ну и Б по ней...
Rom1k
напиши то,что смог сделать
compiler
используй вложеные цыклы.. во внешнем проходиш по одному индексу, а во втором по второму... в теле вложеного цикла читаеш/присваеваеш значение...

на форуме обсуждалось не раз...
я лично выкладывал решение(всегда мечтал это сказать :) )
sanek
Да блин , если все такие умники, то напишите блин как ввести эту матрицу!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
мисс_граффити
for i:=1 to N do
for j:=1 to N do
readln(A[i,j];

sanek
20 на 20? что блин трудно написать что ли?
samec
Цитата(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:=1 to N do
for j:=1 to N do
readln(A[i,j];
end.

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

Если даже тебе и напишут полное решение, кто тебе сказал, что ты поймешь его? Оно будет специально написано так, что ты поседеешь, пока будешь разбираться в том, что там происходит, чтоб в следующий раз думал, КАК задавать вопросы!
sanek
Задана квадратная матрица A вещественных чисел размера NxN(т.е 20 на 20)(n<=20, задается как параметр). Построить по ней матрицу B такого же размера
Я что блин полное решение прошу? я просто не понимаю как n<=20 сделать?
мисс_граффити
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
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;
вот вроде так?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.