Results 1 to 7 of 7

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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

  2. #2
    Wall-e delian's Avatar
    Join Date: May:2003
    Location: ::1
    Posts: 4,723
    Quote Originally Posted by CuST0M1z3 View Post
    ... ñàìî àêî ìîæå íÿêîè äà ìè êàæå êàê ìîãà äà íàïðàâÿ òàêà ÷å êàòî âúâåäà Ì òî äà ñå îòíàñÿ çà âñè÷êè ìàòðèöè , à íå çà âñÿêà ïî îòäåëíî äà ãî âúâåæäàì êàêòî àç ñúì ãî íàïðàâèë , çàùîòî íå ìîãà äà ñå ñåòÿ êàê ...
    Èçíåñè òîâà:
    Code:
    write('vyvedete stoinost za M(<=20) ==> ');
    readln(M);
    èçâúí ïðîöåäóðàòà Inp è ãî ñëîæè ïðåäè òîâà:
    Code:
    writeln('vyvedete stoinosti za A');
    Äðóãèÿò òè âúïðîñ íå ãî ðàçáðàõ.

  3. #3
    Registered User
    Join Date: Nov:2008
    Location: Sofia
    Posts: 15
    ìåðñè îïðàâèõ ãî òîâà .. àìè äðóãèÿ ìè âúïðîñ ñå îòíàñÿ êúì åòî òîâà óñëîâèå
    îïðåäåëÿíå íà ìàêñèìàëíèÿò ïî ñòîéíîñò åëåìåíò , ëåæàù âúðõó âòîðîñòåïåííèÿ äèàãîíàë íà ìàòðèöàòà çàåäíî ñ íåãîâèòå èíäåêñè(ïúðâèÿò îòêðèò àêî èìà ñúâïàäàùè ñòîéíîñòè íà åëåìåíòèòå) íåçíàì êàê äà ãî íàïðàâÿ äà ãî èçíàñÿ çàåäíî ñ íåãîâèòå èíäåêñè ..

  4. #4
    Wall-e delian's Avatar
    Join Date: May:2003
    Location: ::1
    Posts: 4,723
    Àêî ãîâîðèø çà òîâà:
    Code:
    writeln('maximalniqt element po vtorostepenniqt diagonal e: ',max:6:2);
    òî ïðîñòî äîáàâè îòçàä ñúñ çàïåòàéêè äâàòà èíäåêñà, êîèòî èçïîëçâàø â öèêúëà - I è M-I+1, íàïðèìåð òàêà:

    Code:
    writeln('maximalniqt element po vtorostepenniqt diagonal e s indeksi: ', I, , ' i ', M-I+1, ' i stojnost: ',max:6:2);
    (ìîæå äà ñúì èçòúðâàë íÿêîÿ çàïåòàéêà â áúðçèíàòà)

  5. #5
    Registered User
    Join Date: Nov:2008
    Location: Sofia
    Posts: 15
    Quote Originally Posted by delian View Post
    Àêî ãîâîðèø çà òîâà:
    Code:
    writeln('maximalniqt element po vtorostepenniqt diagonal e: ',max:6:2);
    òî ïðîñòî äîáàâè îòçàä ñúñ çàïåòàéêè äâàòà èíäåêñà, êîèòî èçïîëçâàø â öèêúëà - I è M-I+1, íàïðèìåð òàêà:

    Code:
    writeln('maximalniqt element po vtorostepenniqt diagonal e s indeksi: ', I, , ' i ', M-I+1, ' i stojnost: ',max:6:2);
    (ìîæå äà ñúì èçòúðâàë íÿêîÿ çàïåòàéêà â áúðçèíàòà)
    àìè ïî òîçè íà÷èí èçâåæäà ÷å âèíàãè ìàêñèìàëíèÿ åëåìåíò å ñ èíäåêñè 2 è 1 , âúïðåêè ÷å ïèøà åëåìåíòà ñ èíäåêñè 1 è 2 äà å ïî ãîëÿì :S

  6. #6
    Wall-e delian's Avatar
    Join Date: May:2003
    Location: ::1
    Posts: 4,723
    Äà, ïðàâ ñè, íå ñúì äîãëåäàë â áúðçèíàòà.
    Ùå òðÿáâà â ïðîöåäóðàòà äà äåêëàðèðàø îùå åäíà öåëî÷èñëåíà ïðîìåíëèâà, äà ÿ èíèöèàëèçèðàø ñ 1, è â òîçè öèêúë:

    Code:
    for I:=2 to M do if max<D[I,M-I+1] then max:=D[I,M-I+1];
    êúäåòî ïðèñâîÿâàø ñòîéíîñò íà max, äà ïðèñâîèø ñòîéíîñòòà íà I íà íîâàòà ïðîìåíëèâà.

    Ïðè ïå÷àòàíåòî îò ïðåäèøíîòî ìíåíèå çàìåíè I ñ èìåòî íà íîâàòà ïðîìåíëèâà.

  7. #7
    Registered User
    Join Date: Nov:2008
    Location: Sofia
    Posts: 15
    ìåðñè ìíîãî íàïðàâèõ ãî
    Last edited by CuST0M1z3; 1st December 2008 at 22:59.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè