Задача с матрицей. Нужна проверка специалиста.

[Ella]

Задача с матрицей. Нужна проверка специалиста.

Дана матрица G(n,m). Переписать элементы её главной диагонали в одномерный массив H. Вывести оба массива (n=9, m=6).

Проверьте пожалуйста если я правильно написала код программы....

program matrice;
uses crt;
type tab=array [1..9, 1..6] of integer;
var G:array [1..9, 1..6] of tab;
B: tab;
i,j,n,m: integer;
begin
clrscr;
write ('introduce n,m');
readln (n,m);
for i:=1 to n do
for j:=1 to m do
read (G[i,j]);
write ('главная диагональ');
for i:=1 to no do
begin
B:=G[i,i];
write (B:4);
end;
readln;
end.

Благодарю за помощь.

 

[Fenix]

вопрос типы использовать обязательно? выложи задание как оно дано. со всеми условиями

 

[Ella]

нет, не обьязательно

 

[Ella]

Дана матрица G(n,m). Переписать элементы её главной диагонали в одномерный массив H. Вывести оба массива (n=9, m=6).

Это все что дано... больше ничего нет.

 

[Fenix]

я тебе в личку( справа сверху Личные сообщения) отправил свой адрес если есть агент то давай через него.

 

[Vladimir_S]

Дана матрица G(n,m). Переписать элементы её главной диагонали в одномерный массив H. Вывести оба массива (n=9, m=6).

Это все что дано... больше ничего нет.

Полный бред! Хотел бы я понять, что вы тут вдвоем усиленно решаете? Ибо сколь я понимаю в медицине, диагонали (главная и побочная) бывают ТОЛЬКО у квадратных матриц. Для матриц неквадратных (прямоугольных) понятие "диагональ" не вводится. И о каких "обоих массивах" речь?

 

[Fenix]

вот и я пытаюсь узнать какая задача была изначально. оба массива как я понял, это матрица и массив в котором диагональ. я так понимаю в задаче значения m и n не фиксированы. хотя все равно зачем было указывать разными буквами если это одно и тоже число. непонятно

 

[Mr.Програмист]

Я всё исправил вот листинг:

program matrice;
uses crt;
var G:array [1..9, 1..6] of integer;
B:array [1..100] of integer;
i,j,n,m: integer;
begin
clrscr;
write ('introduce n,m');
readln (n,m);
for i:=1 to n do
for j:=1 to m do
read (G[i,j]);
write ('главная диагональ');
for i:=1 to n do
for j:=i to i do
begin
B[i]:=G[i,j];
write (B[i]:4);
end;
Writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
Write(g[i,j]);
end;
Writeln;
end;
readln;
end.

Писал на Pascal ABC (Если не будет работать).

 

[Vladimir_S]

Я всё исправил вот листинг:

Так - продолжается безграмотный флуд.
Вы хоть удосужились прочесть посты выше, из которых следует, что сама формулировка задачи - некорректна? Вижу, что нет.
Знаете что - отдохните денек в порядке первого предупреждения. И займитесь исправлением своего бредового кода в теме http://www.tehnari.ru/f41/t45671/. Повторяю - если программа не будет отлажена, мы расстаемся уже навсегда.

 

[Mr.Програмист]

Уважаемый Vladimir_S вы сами написали, что главная диагональ есть только в квадратной матрице. И следуя вашему высказыванию и некорректному условию я написал задачу.

 

[Vladimir_S]

Уважаемый Vladimir_S вы сами написали, что главная диагональ есть только в квадратной матрице. И следуя вашему высказыванию и некорректному условию я написал задачу.

Правильно. Только в квадратной. А Вы задаете прямоугольную - 9х6. Никаких диагоналей в такой матрице нет, а потому условие задачи сформулировано неверно, решения она не имеет принципиально и написание каких-либо программ просто бессмысленно.

 

[Mr.Програмист]

write ('главная диагональ');
for i:=1 to n do
for j:=i to i do
Здесь вывод чисел по главной диагонали.

 

[Vladimir_S]

write ('главная диагональ');
for i:=1 to n do
for j:=i to i do
Здесь вывод чисел по главной диагонали.

Напишите, пожалуйста, программу, подсчитывающую количество крокодилов на Северном полюсе. Тут тоже главное - правильно организовать цикл.

 

[Mr.Програмист]

А теперь проверь эту

Uses Crt;
label met1;
var i,k:integer;
Begin
met1:For i:=1 to 2 do
begin
begin
textcolor(128+4);
sound(330); delay(500);  nosound;
Writeln('Крокодилов на северном полюсе нет!!!!');
end;
Writeln('Это так');
end;
For i:=1 to 1 do
begin
begin
textbackground(128+6); sound(330*k); delay(1000);
Writeln(' 0!!!!');
end;
Writeln('Это так');
goto met1;
end;
Readln;
End.

Без обид, но я всегда прав.

 

[Vladimir_S]

А теперь проверь эту

Проверять не буду, некогда, но, судя по всему, Ваша программа утверждает, что крокодилов на Северном полюсе нет. Если так, то это абсолютно правильный результат.
А теперь - к делу. Точно также, как нет крокодилов на Северном полюсе, нет и диагоналей у неквадратных матриц. Их просто нет, да и всё тут! А потому любые коды, циклы и пр., основанные на обратном, есть полная бессмыслица.

Без обид, но я всегда прав.

Ну что Вы, сударь, какие обиды? Но вот, видите ли, в чем закавыка: несмотря на то, что Вы всегда правы, а я кругом неправ, модератор здесь пока, увы, именно я. И будучи таковым, предупреждаю: увижу еще хоть один образчик программистского флуда - и будете отправлены в вечный бан. Со всей своей правотой.

 

[Ella]

Полный бред! Хотел бы я понять, что вы тут вдвоем усиленно решаете? Ибо сколь я понимаю в медицине, диагонали (главная и побочная) бывают ТОЛЬКО у квадратных матриц. Для матриц неквадратных (прямоугольных) понятие "диагональ" не вводится. И о каких "обоих массивах" речь?

Уважаемый Владимир,
Я написала задачу точь в точь как нам задал препод, почему вы так нервничаете? Не я придумала ее, а взяла от препода.... Как дали, так и пытаюсь решить... извините если я не специалист в данной области, я пока учусь, не все же были сразу ученными....

 

[Ella]

Владимир, не надо никого в бан отправлять, пожалуйста. Ведь парень хотел мне помочь и я ему благодарна. Покажу преподу хоть что есть, может он на самом деле ошибся когда задал нам задачу.

Ребята, давайте жить дружно
Спасибо за помощь.

 

[Vladimir_S]

Уважаемый Владимир,
Я написала задачу точь в точь как нам задал препод, почему вы так нервничаете? Не я придумала ее, а взяла от препода.... Как дали, так и пытаюсь решить... извините если я не специалист в данной области, я пока учусь, не все же были сразу ученными....

Я нервничаю? Да Господь с Вами, Ella, я спокоен, аки форель в озере. Просто, видите ли, математика - наука запредельно строгая, и потому если я вижу безграмотную формулировку, то так об этом прямо и сообщаю.

Владимир, не надо никого в бан отправлять, пожалуйста. Ведь парень хотел мне помочь и я ему благодарна.

А я и не отправляю. Пока. Только не обольщайтесь - не Вам он помочь хотел, а за Ваш счет покрасоваться, уж поверьте. И мои угрозы обусловлены не только и не столько Вашей темой, сколько вообще его выходками на форуме.

Покажу преподу хоть что есть, может он на самом деле ошибся когда задал нам задачу.

Гм... ну попробуйте, хотя...

Ребята, давайте жить дружно

Золотые Ваши (и кота Леопольда) слова.