Паскал: Интересна задача

[xzone]

Здравейте, видях една много интересна задача, обаче не съм запознат с матриците.
Да се състави програма за обработка на масива A[N,N] където данните са реални числа в интервала [- 1000 - 1000], да извършват следните действия:
- въвеждане на входните данни
- отпечатване на входните данни
- а) да се образува едномерен масив С, елемените на който са елементите от масива А намиращи се под главния диагонал.
б) Получения масив да се сортира по големина.
- отпечатване на получените резултати след обработка a) и обработка б).


бирата е от мен

[etg]

Здравей, имам много интересно лозе за прекопаване, на баир, обаче не знам как се държи мотиката.
Бирата е от мен.

[xzone]

дай ще измислим нещо

[Black Adder]

дай ще измислим нещо

За данъчен ли учиш Правилната реплика не бива да започва с 'ДАЙ', а с 'Вземи да измислим нещо'
Ноо, както всички знаят в тоя форум, понеже съм добър по душа, ето ти насока за работа (копане):

Program Interesna_Zadacha;
uses Crt;
Const N=10; //broi na dannite v masiva
Var 
A:array[1..n,1..n] of integer;
C:array[1..n,1..n] of integer;


Procedure EnterMasiv(m:integer);
VAR I,J:integer;
 begin
 For I:=1 to M do
 For J:=1 to M do
 begin
 Write('N ',I,'-',j,'=');Readln(A[i,j]);
 end;
 end;


 Procedure PrintMasiv(M:integer);

 Var I,J:Integer;
 begin
 ClrScr;
For I:=1 to M do
For J:=1 to M do
 begin
 WriteLn('N ',I,'-',J'=',A[i,j]);
 end;
 end;

  begin
   ClrScr;
   EnterMasiv(n);
   PrintMasiv(n)
   Preobraz(n);
   Sort(N);
   PrintMasivNew(n)
  end.

Ако си по-наблюдателен, ще забележиш, че някой процедури липсват, но нали и ти все нещо трябва да свършиш.
Щото ако от началото си тръгнал да мързелуваш и друг да ти върши работата - друго освен директор няма да станеш, както мъдро разказва Страхил Божикравов в епизод от УЛИЦАТА

PS. Коригирах малко кода, в бързането да помогна съм недогледал 10x на dmanov

[stekyman]

За данъчен ли учиш Правилната реплика не бива да започва с 'ДАЙ', а с 'Вземи да измислим нещо'
.....
Щото ако от началото си тръгнал да мързелуваш и друг да ти върши работата - друго освен директор няма да станеш, както мъдро разказва Страхил Божикравов в епизод от УЛИЦАТА

@Black Adder:
Добавено към Blacky's Pearls!!!

Извинявам се за -а, но бисерчето си е чудно!!!

[dmanov]

Напълно съм съгласен, че подсказката е най-доброто за човека, още повече, че никъде не иска готово решение на задачата.
Позабравил съм Pascal-а, но мисля, че има малки грешки, които в "подсказка" не би трябвало да ги има:
1. Входният масив е двумерен NxN
2. Изходният масив съдържа елементите под диагонала на входния. Т.е. неговите елементи са Nx(N-1)/2

[xzone]

Еййй велики сте хора ! Казвайте сега къде си искате бирите :D


Значи имам малък проблем,
стигнах до тук

Код:
program kursova1;
uses crt;
const z=1000; y=1000;
var n,m,i,j,k,r,min:integer;
flag:boolean;
a : array [1..z,1..y] of integer;
b : array [1..z] of integer ;
label et1,et2;
begin
writeln ('-------------------------------------------------------------');
writeln ('This program was made by G. Ivanov , N: . ');
writeln (' TU - Sofia , Departament of ThermalPower Engineering ');
writeln ('*************************************************************');
writeln (' ---===<<< Kursova Zadacha N:1 >>>===---');
writeln ('___________________________________________________________');
writeln (' Да се състави програма за обработка на масива A[N,N] където данните са реални числа в интервала [- 1000 - 1000], да извършват следните действия:
- въвеждане на входните данни
- отпечатване на входните данни
- а) да се образува едномерен масив С, елемените на който са елементите от масива А намиращи се под главния диагонал.
б) Получения масив да се сортира по големина.
- отпечатване на получените резултати след обработка a) и обработка б).
');
writeln ('_____________________________________________________________');
writeln;
write ('Molq vuvedete broja Redowe na mnojestwoto A: ');
readln (n);
write ('Molq vuvedete broja Stulbowe na mnojestwoto A: ');
readln (m);
writeln ('Molq vuvedete stojnostite na mnojestwoto A: ');
for i:=1 to n do
for j:=1 to m do
begin
et1:
write ('A[',I,',',J,']:');
readln (A[I,J]);
if sqr(A[i,j])>1000000 then
begin
Writeln ('Stojnostta triabva da e v intervalut [-1000 - 1000]');
goto et1;

end;

и се чудя
как да направя едномерен масив С, елемените на който са елементите от масива А намиращи се под главния диагонал?

може ли малко help

[etg]

Тая тема е бих я сложил в "Логически задачи".
Другите ми коментари и обяснения може да обидят някои хора, така че ще ги спестя. Ако някой се интересува, като се видим на маса ще да го споделя

[Black Adder]

begin
Writeln ('Stojnostta triabva da e v intervalut [-1000 - 1000]');
goto et1;

и се чудя
как да направя едномерен масив С, елемените на който са елементите от масива А намиращи се под главния диагонал?

"Божееееее, колко мъка има по тоя свят, Божееее! - промълви Моканина и продължи да скубе бялата лястовица"

Добре че не може да те види Никлаус Вирт как се гавриш с Pascal-a, щеше да грабне гьостерицата и чак от Швейцария да дойде да те направи двумерен.

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


Нейсе, така и така ще ставаш директор, вземи намери някое по-будно хлапе в махалата, черпи го една боза да ти напише задачката.

[xzone]

"Божееееее, колко мъка има по тоя свят, Божееее! - промълви Моканина и продължи да скубе бялата лястовица"

Добре че не може да те види Никлаус Вирт как се гавриш с Pascal-a, щеше да грабне гьостерицата и чак от Швейцария да дойде да те направи двумерен.

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


Нейсе, така и така ще ставаш директор, вземи намери някое по-будно хлапе в махалата, черпи го една боза да ти напише задачката.

ти изобщо не се заяждаш :D

[dmanov]

k:=1
for i:=1 to z // редове
 for j:=1 to z // колони
  if( j<i ) then // при i=j сме на диагонала, при i<j сме над него, а при j<i - под
	  begin
	   c[k]:=a[i,j]
	   k:=k+1
	  end

Не ти трябва константа "y", масивът a е N на N, както е по условие
Масивът c (а не b) трябва да с размерност N*(N-1)/2

Всъщност, може да се оптимизира така:

k:=1
for i:=2 to z // редове
 for j:=1 to i-1 // колони
	  begin
	   c[k]:=a[i,j]
	   k:=k+1
	  end

[xzone]

Добре де ама защо ми дава грешка в "WriteLn('N ',I,'-',J'=',A[i,j]); " нещо не мога да си го обясня ? Иначе програма трябва да изглежда така, нали ?

Program Interesna_Zadacha;
uses Crt;
Const N=10; //broi na dannite v masiva
Var 
A:array[1..n,1..n] of integer;
C:array[1..n,1..n] of integer;


Procedure EnterMasiv(m:integer);
VAR I,J:integer;
 begin
 For I:=1 to M do
 For J:=1 to M do
 begin
 Write('N ',I,'-',j,'=');Readln(A[i,j]);
 end;
 end;


 Procedure PrintMasiv(M:integer);

 Var I,J:Integer;
 begin
 ClrScr;
For I:=1 to M do
For J:=1 to M do
 begin
 WriteLn('N ',I,'-',J'=',A[i,j]);
 end;
 end;
  k:=1
for i:=2 to z // ðåäîâå
 for j:=1 to i-1 // êîëîíè
	  begin
	   c[k]:=a[i,j]
	   k:=k+1
	  end
  begin
   ClrScr;
   EnterMasiv(n);
   PrintMasiv(n)
   Preobraz(n);
   Sort(N);
   PrintMasivNew(n)
   end.

Извинявам се за невежеството си... Просто програмата ми трябва за петък и нямам време да попрочета повече за Паскал

[xzone]

дали тази блок схема е удачна ? http://img235.imageshack.us/my.php?image=blokao8.jpg

[MitkoS]

защо ми дава грешка в "WriteLn('N ',I,'-',J'=',A[i,j]); " нещо не мога да си го обясня ? ...

Една запетайка си пропуснал - WriteLn('N ',I,'-',J,'=',A[i,j]);
Успех в петък