Results 1 to 2 of 2

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User Mortos's Avatar
    Join Date: Mar:2008
    Location: bg
    Posts: 116

    C[10,10] D[12,12]. [-999 - 999]. :

    ;
    ;
    , - ;
    ;
    : DATA08.DAT.


    program task08;

    type
    matrix=array[1..50, 1..50] of integer;

    procedure uslovie;
    begin
    writeln('Da se systavi glavna programa za obrabotka na ............');
    end;

    procedure readMatrix(var m: matrix; n:integer);
    var
    i, j: integer;
    begin
    for i := 1 to n do
    for j := 1 to n do
    begin
    write('cell at row ', i, ', column ', j, ': ');
    readln(m[i, j]);
    end;
    end;

    procedure printMatrix(m: matrix; n:integer);
    var
    i, j: integer;
    begin
    for i := 1 to n do
    begin
    for j := 1 to n do
    write(m[i, j]:2, ' ');
    writeln;
    end;
    end;

    procedure countNeg(a: matrix; n: integer; var negR, negC: array of integer; var minR, minC: integer);
    var
    i, j: integer;
    begin
    for i := 1 to n do
    begin
    negR[i] := 0;
    negC[i] := 0;
    end;
    for i := 1 to n do
    for j := 1 to n do
    if a[i, j] < 0 then
    begin
    negR[i] := negR[i] + 1;
    negC[j] := negC[j] + 1;
    end;
    minR := 1;
    for i := 1 to n do
    if negR[i] < negR[minR] then
    minR := i;
    minC := 1;
    for i := 1 to n do
    if negC[i] < negC[minC] then
    minC := i;
    end;

    procedure printArray(m: array of integer; n:integer);
    var
    i, j: integer;
    begin
    for i := 1 to n do
    write(m[i], ' ');
    writeln;
    end;

    procedure printArrayToFile(var f: text; m: array of integer; n:integer);
    var
    i, j: integer;
    begin
    for i := 1 to n do
    write(f, m[i], ' ');
    writeln(f);
    end;

    var
    a, b: matrix; (* vmesto C i D sym gi narekyl A i B zaradi copy-paste *)
    negRA, negCA, negRB, negCB: array[1..50] of integer;
    minRA, minCA, minRB, minCB: integer;
    f: text;
    begin

    (* izvejdane na uslovieto i avtora *)
    uslovie;

    writeln;

    (* vyvejdane na vhodnite danni *)

    writeln('matrix A:');
    readMatrix(a, 2); (* vmesto 10, 12 - 2, 3, za po-byrzo vyvejdane ot klaviaturata *)

    readMatrix(a,2), , (.. 2 ) ? ? (* vmesto 10, 12 - 2, 3, za po-byrzo vyvejdane ot klaviaturata *

  2. #2
    Registered User
    Join Date: Oct:2006
    Location: Plovdiv
    Posts: 305
    . 2- - .. 22.
    prepBut nI vrbLike adjHungarian! qWhat's artThe adjBig nProblem?

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 |