Results 1 to 6 of 6

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    _
    Join Date: Apr:2006
    Location: _
    Posts: 1,128

    Ïîìîù çà êóðñîâà ðàáîòà

    Çäðàâåéòå,
    Áèõ èñêàë äà ïîìîëÿ íÿêîé êîéòî ðàçáèðà îò Ïàñêàë è èìà âúçìîæíîñò äà ñå ïîçàíèìàâà ñ ìîÿ ïðîáëåì àêî èìà âîëÿ äà ìè ïîìîãíå.

    Óñëîâèåòî íà çàäà÷àòà å

    Äà ñå ñúñòàâè ïðîãðàìà êîÿòî äà ñîðòèðà åëåìåíòèòå íà åäíîìåðåí ìàñèâ è äà âúâåæäà:
    - âúâåæäà öåëî÷èñëåíà ìàòðèöà ÌÀÒ (3,3)
    - îòïå÷àòâà ÿ
    - ñîðòèðà åëåìåíòèòå íà âñåêè ÷åòåí ñòúëá â âúçõîäÿù ðåä è åëåìåíòèòå îò íå÷åòåí ñòúëá â íåñõîäÿù ðåä
    - îòïå÷àòâà òàêà ïîëó÷åíàòà ìàòðèöà




    program demo1;
    const
    m = 3;
    var
    flag : boolean;
    rez : real;
    I, J, k, L : Integer;
    type
    mat = array[1..m,1..m] of Integer;
    A = array[1..m] of real;
    begin
    for I := 1 to m do
    for J := 1 to m do
    repeat
    write ('Vavedete stoinostta na matritzata [',I,',',J,') = ');
    readln (mat [I,J]);
    until ((mat[I,J] >= -10000) and (mat[I,J] <= 10000));
    writeln;
    writeln (' Vavedenite stoinosti na masiva sa: ');
    writeln;
    ----------------------------------------------------------------------------------
    Äî òóê ñòîéíîñòèòå ñå âúâåæäàò êîðåêòíî.
    begin
    for I := 1 to m do
    begin
    for J := 1 to m do
    write (mat [I,J]:5);
    writeln;
    writeln;
    end;
    begin
    for k := 1 to L do
    if (k mod 2 = 0) then
    for I := 1 to L - 1 do
    for J := I+1 to L do
    if (A[I] < A[J]) then
    begin
    flag := false;
    rez := a[J];
    a[J] := a[I];
    a[I] := rez;
    end
    else
    for I := 1 to L - 1 do
    for J := I+1 to L do
    if (a[I] > a[J]) then
    begin
    rez := a[J];
    a[J] := a[I];
    a[I] := rez;
    end;
    writeln ('Sortiraniqt masiv e:');
    writeln;
    for I := 1 to m do
    write (A[I]:6:1);
    readln;
    end;
    end;
    end.

    Ñïðàâèõ ñå ñúñ çàäà÷àòà íî ñàìî äî íÿêàäå. Ïðè êîìïèëèðàíåòî íà êîäà ñå ïîëó÷àâà ãðåøêà êîÿòî íå çíàì êàê äà ïîïðàâÿ.

    Áëàãîäàðÿ íà âñè÷êè îòçîâàëè ñå?


    ï. ï. Ìîëÿ àäìèíà äà èçòðèå çàäà÷àòà îò ñòàðàòà òåìà Pascal.
    Last edited by Red_Leader; 23rd October 2007 at 18:15.

  2. #2
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    Àêî áåøå êàçàë ãðåøêàòà, ùåøå äà å ìíîãî ïî-ëåñíî.
    Íà ïðúâ ïîãëåä íèêúäå íå âèæäàì äà ñè çàäàë ñòîéíîñò íà ïðîìåíëèâàòà L. Ïðåäïîëàãàì, ÷å öèêúëúò for òðÿáâà äà å íå îò 1 äî L, à îò 1 äî m.
    Îñâåí òîâà íå çàòâàðÿø ïðàâèëíî äâàòà öèêúëà çà îòïå÷àòâàíå - âñúùíîñò çàòâàðÿø ñàìî âúòðåøíèÿ. Äàæå êàòî ñå çàãëåäàõ, ìàé è äðóãèòå âëîæåíè öèêëè íå ñà çàòâîðåíè ïðàâèëíî.
    Çà äà ñå íàìàëÿò òàêèâà îáúðêâàíèÿ, ñà èçìèñëåíè îòñòúïèòå ïðè ïèñàíå íà êîä. Íåùî, êîåòî áè òðÿáâàëî ïðåïîäàâàòåëÿò íàé-ìàëêîòî äà âè å ïîêàçàë, äîðè è äà íå å îáÿñíèë çàùî ñå ïðàâè òàêà.

  3. #3
    Áåëûé è ïóøèñòûé Bombera's Avatar
    Join Date: Jul:2001
    Location: Êàçàíëúê 4EVA
    Posts: 13,833
    ìîæå è äà å ñ îòñòúïè, ôîðóìà ìàõà ñïåéñîâåòå â íà÷àëîòî. Äðóãà äîáðà ïðàêòèêà å ñ ïèñàíåòî íà äóìàòà/ñèìâîëà çà îòâàðÿíå íà áëîê, âåäíàãà äà ñå ïèøå òîçè çà çàòâàðÿíå, ñòðåëêà íàëÿâî è ïðîäúëæàâàø äà ïèøåø.
    EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|Êèëî è ïîëîâèíà âîäà
    Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|Áåç èñòèíñêî âîäíî

  4. #4
    _
    Join Date: Apr:2006
    Location: _
    Posts: 1,128
    ùå ìîæå ëè íàïðàâî äà ñëîæèòå â îòãîâîðà öåëèÿ êîä ñ íàíåñåíè ïîïðàâêè òàêà ìè å òðóäíî ðàçáèðàì èäåéòå âè

  5. #5
    Registered User
    Join Date: Jul:2006
    Location: Ñîôèÿ
    Posts: 480
    Quote Originally Posted by Bombera View Post
    ìîæå è äà å ñ îòñòúïè, ôîðóìà ìàõà ñïåéñîâåòå â íà÷àëîòî. Äðóãà äîáðà ïðàêòèêà å ñ ïèñàíåòî íà äóìàòà/ñèìâîëà çà îòâàðÿíå íà áëîê, âåäíàãà äà ñå ïèøå òîçè çà çàòâàðÿíå, ñòðåëêà íàëÿâî è ïðîäúëæàâàø äà ïèøåø.
    Ìàëêî òúïî, íàèñòèíà. Íîðìàëíî å âñè÷êî â [CODÅ]...[/CODÅ] äà å íåïîêúòíàòî, òàêà êàêòî àâòîðúò ãî å íàïèñàë ñ âñè÷êèòå ìó èíòåðâàëè, òàáóëàöèè è ò.í. Òàêà êàêòî ñå èíòåðïðåòèðà <PRE>...</PRE> â HTML.
    Ðåäàêòîðúò ìè ïðåâðúùà òàáóëàöèèòå â èíòåðâàëè, êîåòî å ðàçóìíî, êàòî ñå èìà âïðåäâèä, ÷å òàáóëàöèÿòà ñå èíòåðïðåòèðà ðàçëè÷íî îò ðàçëè÷íèòå ïðîãðàìè, à àç èñêàì äà âèæäàì êîäà ñè ôîðìàòèðàí ïðàâèëíî.
    À ôîðóìúò ìè ñêàïâà öåëèÿ êîä, äîðè äà å ôîðìàòèðàí ïåðôåêòíî. Òîâà ñè å ÷èñòà ïðîáà íåäîìèñëèöà...

  6. #6
    _
    Join Date: Apr:2006
    Location: _
    Posts: 1,128
    åòî êîäà íàáðàí íà Ïàñêàë
    Êàòî ãî èçòåãëèòå çà äà ãî îòâîðèòå èçòðèèòå .txt
    Attached Files

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 | Ìàãàçèí çà åëåêòðîííè öèãàðè