Results 1 to 4 of 4

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Dec:2008
    Location: Sofiq
    Posts: 2

    Ïðîãðàìà íà Pascal - Ïîìîãíåòå

    Çäðàâåé òå è áëàãîäàðÿ ïðåäâàðèòåëíî...

    Äàäåíè ñà 3 äâóìåðíè ìàñèâà À[M,N], B[M,N], C[M,N] (M<=20, N<=20 M è N ñå âúâåæäàò îò êëàâèàòóðàòà) ñ ðåàëíè åëåìåíòè. Äà ñå ðàçðàáîòÿò 3 ïðîöåäóðè çà èçïúëíåíèå íà ñëåäíèòå äåéñòâèÿ:
    -âúâåæäàíå íà åëåìåíòèòå â ìàñèâèòå
    -îòïå÷àòâàíå íà âúâåäåíèòå åëåìåíòè â ìàñèâèòå
    -ñîðòèðàíå íà ìàñèâèòå â íèçõîäÿù ðåä ïî êîëîíè è îïðåäåëÿíå íà íîìåðà íà êîëîíàòà ñ íàé-ìàëúê ïî ñòîéíîñò ìèíèìàëåí åëåìåíò
    Â ãëàâíàòà ïðîãðàìà ïðîöåäóðèòå ñå èçâèêâàò ïîñëåäîâàòåëíî çà âñåêè ìàñèâ.

  2. #2
    ɐ-əpoɔᴉu⋂ ɐí íəÔ anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    Ïúðâî, êàòî çà íà÷àëî, íàäÿâàì ñå ñè ïðî÷åë òîâà.

    À çàäà÷êàòà å åëåìåíòàðíà. Ñúçäàâàø ñè ìàñèâèòå äà ñà òè 20õ20. ×åòåíåòî è îòïå÷àòâàíåòî íàäÿâàì ñå òè å ÿñíî, çà ñîðòðàíå ìîæåø äà ïîëçâàø êîé äà å àëãîðèòúì çà ñîðòèðàíå - íàïðèìåð ìåòîäà íà ìåõóð÷åòî (âèæ è àíãëèéñêàòà âåðñèÿ, òàì å îáÿñíåíî ïî-ïîäðîáíî).
    Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
    "640K îught to be enough for anybody" - Bill Gates, 1981
    Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel

  3. #3
    Registered User
    Join Date: Dec:2008
    Location: Sofiq
    Posts: 2

    Ïîìîù çà ïðîãðàìà íà Pascal

    Çäðàâåéòå, èçâèíÿâàì ñå, ÷å íå áÿõ ïóñíàë êîä â ïðåäèøíàòà òåìà

    Äàäåíè ñà 3 äâóìåðíè ìàñèâà À[M,N], B[M,N], C[M,N] (M<=20, N<=20 M è N ñå âúâåæäàò îò êëàâèàòóðàòà) ñ ðåàëíè åëåìåíòè. Äà ñå ðàçðàáîòÿò 3 ïðîöåäóðè çà èçïúëíåíèå íà ñëåäíèòå äåéñòâèÿ:
    -âúâåæäàíå íà åëåìåíòèòå â ìàñèâèòå
    -îòïå÷àòâàíå íà âúâåäåíèòå åëåìåíòè â ìàñèâèòå
    -ñîðòèðàíå íà ìàñèâèòå â íèçõîäÿù ðåä ïî êîëîíè è îïðåäåëÿíå íà íîìåðà íà êîëîíàòà ñ íàé-ìàëúê ïî ñòîéíîñò ìèíèìàëåí åëåìåíò
    Â ãëàâíàòà ïðîãðàìà ïðîöåäóðèòå ñå èçâèêâàò ïîñëåäîâàòåëíî çà âñåêè ìàñèâ.

    à åòî è äî êúäå ñúì ñòèãíàë...

    CODE
    program var5(Input,Output);
    const
    max=20;
    type
    Matrix=array[1..20,1..20] of Real;
    var
    A,B,C:Matrix;
    m,n:integer;

    procedure Inp(var E:Matrix; name: char);
    var
    i,j:integer;
    begin
    for i:=1 to m do
    for j:=1 to n do
    begin
    write(name,'[',i,',',j,']=');
    readln(E[i,j]);
    end;
    end;
    procedure Sortcolumn(var E:Matrix);
    var
    i,j,b,col:integer;
    F:Boolean;
    max:Real;
    begin
    col:=1;
    max:=E[1,1];
    for j:1 to m do
    begin
    repeat
    F:=True;
    for i:=1 to n-1 do
    if(E[i,j]<E[i+1,j]) then
    begin
    b:=E[i,j];
    E[i,j]:=E[i+1,j];
    E[i+1,j]:=b;
    F:False;
    end;
    until F:=True;
    write(E[i,j]:6:2);
    write('Kolonkata s nai-malyk po stoinost minimalen element e: ',col);
    end;
    procedure Otp(var E:Matrix; name: char);
    var
    i,j:integer;
    begin
    for i:=1 to m do
    begin
    for j:=1 to n do
    begin
    writeln(name,'[',i,',',j,']=',E[i,j]:6:2);
    end;
    end;
    end;

    begin
    repeat
    begin
    write('Vyvedete redovete na masivite (maksimalno',max,'): ');
    readln(m);
    end;
    until (m>1) and (m<=20);
    repeat
    begin
    write('Vyvedete stulbovete na masivite (maksimalno',max,'): ');
    readln(n);
    end;
    until (n>1) and (n<=20);
    writeln('Vyvedohte slednata matrica: [',m,',',n,']');
    end;
    Inp(A, 'A');
    Otp(A, 'A'); readln;
    Inp(B, 'B');
    Otp(B, 'B'); readln;
    Inp(C, 'C');
    Otp(C, 'C'); readln;
    end.

  4. #4
    Registered User
    Join Date: Nov:2005
    Location: Bulgaia, Sofiq
    Posts: 1
    Äî êúäå ñòèãíà ñ ïðîãðàìêàòà?

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