Results 1 to 7 of 7
Thread: Ïîìîù çà Ïðîãðàìà-ÏÀÑÊÀË
Hybrid View
-
1st December 2008 00:53 #1Registered User
Join Date: Nov:2008
Location: Sofia
Posts: 15
Ïîìîù çà Ïðîãðàìà-ÏÀÑÊÀË
Äàäåíè ñà òðè äâóìåðíè ìàñèâà À[M,M] , B[M,M] , C[M,M] (M<=20, M ñå âúâåæäà îò êëàâèàòóðàòà) ñ ðåàëíè åëåìåíòè.Äà ñå ðàçðàáîòÿò òðè ïðîöåäóðè çà èçïúëíåíèå íà ñëåäíèòå äåéñòâèÿ:
- âúâåæäàíå åëåìåíòèòå â ìàñèâèòå
- îòïå÷àòâàíå íà âúâåäåíèòå åëåìåíòè â ìàñèâèòå
- îïðåäåëÿíå íà ìàêñèìàëíèÿò ïî ñòîéíîñò åëåìåíò , ëåæàù âúðõó âòîðîñòåïåííèÿ äèàãîíàë íà ìàòðèöàòà çàåäíî ñ íåãîâèòå èíäåêñè(ïúðâèÿò îòêðèò àêî èìà ñúâïàäàùè ñòîéíîñòè íà åëåìåíòèòå)
 ãëàâíàòà ïðîãðàìà ïðîöåäóðèòå ñå èçâèêâàò ïîñëåäîâàòåëíî çà âñåêè ìàñèâ.
Åòî òîâà èçìèñëèõ:
Program Zad;
uses crt;
type
matrix=array[1..20,1..20] of real;
var
A,B,C:matrix;
M,I,J:integer;
MaxELA,MaxELB,MaxELC:real;
Procedure Inp(var D:matrix);
begin
write('vyvedete stoinost za M(<=20) ==> ');
readln(M);
for I:=1 to M do
for J:=1 to M do
begin
write('D[',I,','J,']= ');read(D[I,J]);
end;
end;
Procedure Otp(var D:matrix);
begin
for I:=1 to M do
begin
for J:=1 to M do write (D[I,J]:8:2);
writeln;
end;
end;
Function MaxSD(D:matrix):real;
var max:real;
begin
max:=D[1,M];
for I:=2 to M do if max<D[I,M-I+1] then max:=D[I,M-I+1];
writeln('maximalniqt element po vtorostepenniqt diagonal e: ',max:6:2);
MaxSD:=Max;
end;
begin
clrscr;
writeln('vyvedete stoinosti za A');
inp(A);
writeln('vyvedete stoinosti za B');
inp(B);
writeln('vyvedete stoinosti za C');
inp(C);
writeln('stoinostite za A sa: ');
otp(A);
MaxELA:=MaxSD(A);
writeln('stoinostite za B sa: ');
otp(B);
MaxELB:=MaxSD(B);
writeln('stoinostite za C sa: ');
otp(C);
MaxELC:=MaxSD(C);
readkey;
end.
Ïðîãðàìàòà ñè òðúãâà , ñàìî àêî ìîæå íÿêîè äà ìè êàæå êàê ìîãà äà íàïðàâÿ òàêà ÷å êàòî âúâåäà Ì òî äà ñå îòíàñÿ çà âñè÷êè ìàòðèöè , à íå çà âñÿêà ïî îòäåëíî äà ãî âúâåæäàì êàêòî àç ñúì ãî íàïðàâèë , çàùîòî íå ìîãà äà ñå ñåòÿ êàê è òîâà çà èíäåêñèòå íà ìàêñèìàëíèÿò åëåìåíò :S
-
1st December 2008 09:21 #2
-
1st December 2008 11:21 #3Registered User
Join Date: Nov:2008
Location: Sofia
Posts: 15
ìåðñè îïðàâèõ ãî òîâà .. àìè äðóãèÿ ìè âúïðîñ ñå îòíàñÿ êúì åòî òîâà óñëîâèå
îïðåäåëÿíå íà ìàêñèìàëíèÿò ïî ñòîéíîñò åëåìåíò , ëåæàù âúðõó âòîðîñòåïåííèÿ äèàãîíàë íà ìàòðèöàòà çàåäíî ñ íåãîâèòå èíäåêñè(ïúðâèÿò îòêðèò àêî èìà ñúâïàäàùè ñòîéíîñòè íà åëåìåíòèòå) íåçíàì êàê äà ãî íàïðàâÿ äà ãî èçíàñÿ çàåäíî ñ íåãîâèòå èíäåêñè ..
-
1st December 2008 11:39 #4
Àêî ãîâîðèø çà òîâà:
òî ïðîñòî äîáàâè îòçàä ñúñ çàïåòàéêè äâàòà èíäåêñà, êîèòî èçïîëçâàø â öèêúëà - I è M-I+1, íàïðèìåð òàêà:Code:writeln('maximalniqt element po vtorostepenniqt diagonal e: ',max:6:2);
(ìîæå äà ñúì èçòúðâàë íÿêîÿ çàïåòàéêà â áúðçèíàòà)Code:writeln('maximalniqt element po vtorostepenniqt diagonal e s indeksi: ', I, , ' i ', M-I+1, ' i stojnost: ',max:6:2);
-
1st December 2008 12:07 #5Registered User
Join Date: Nov:2008
Location: Sofia
Posts: 15
-
1st December 2008 12:23 #6
Äà, ïðàâ ñè, íå ñúì äîãëåäàë â áúðçèíàòà.
Ùå òðÿáâà â ïðîöåäóðàòà äà äåêëàðèðàø îùå åäíà öåëî÷èñëåíà ïðîìåíëèâà, äà ÿ èíèöèàëèçèðàø ñ 1, è â òîçè öèêúë:
êúäåòî ïðèñâîÿâàø ñòîéíîñò íà max, äà ïðèñâîèø ñòîéíîñòòà íà I íà íîâàòà ïðîìåíëèâà.Code:for I:=2 to M do if max<D[I,M-I+1] then max:=D[I,M-I+1];
Ïðè ïå÷àòàíåòî îò ïðåäèøíîòî ìíåíèå çàìåíè I ñ èìåòî íà íîâàòà ïðîìåíëèâà.
-
1st December 2008 12:36 #7Registered User
Join Date: Nov:2008
Location: Sofia
Posts: 15
ìåðñè ìíîãî íàïðàâèõ ãî
Last edited by CuST0M1z3; 1st December 2008 at 22:59.




Reply With Quote

Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè