Pascal pomoc__HITNO
Prikazujem rezultate 1 do 2 od 2

Tema: Pascal pomoc__HITNO

  1. #1
    misko_89
    Guest

    Podrazumevano Pascal pomoc__HITNO

    Potrebno je da uradim program u pascalu:

    2D matrica 7x7, tako da dijagonala ispisuje osmice, a ostalo da budu trojke...

    Molim Vas pomozite mi... HITNO JE!!!

    Unapred HVALA



  2. #2
    Guest

    Podrazumevano

    Ovo ce naravno da izgleda ruzno ali snadji se sam mozes i da prekopiras sve ovo dole u tekstualnu datoteku i da je nazoves *.pas i otvoris je u pascal-u.

    program Dijagonala(input, output);
    const
    {maksimalna dimenzija matrice}
    Max_duzina = 7;
    {tip koji definise matrice}
    type
    T_matrica = array[1..Max_duzina, 1..Max_duzina] of integer;
    var
    matrica : T_matrica;
    i, j : integer;
    begin
    {popunjavanje matrice po dijagonali}
    for i := 1 to Max_duzina do
    for j := 1 to Max_duzina do
    if i = j then matrica[i, j] := 8
    else matrica[i, j] := 3;
    {ispisivanje matrice}
    for i := 1 to Max_duzina do
    begin
    for j := 1 to Max_duzina do
    write(' ',matrica[i, j]);
    writeln;
    end;
    {prazan red cisto razdvajanja radi}
    writeln;
    {popunjavanje matrice po suprotnoj dijagonali}
    for i := 1 to Max_duzina do
    for j := 1 to Max_duzina do
    if i = (Max_duzina - j + 1) then matrica[i, j] := 8
    else matrica[i, j] := 3;
    {ispisivanje matrice}
    for i := 1 to Max_duzina do
    begin
    for j := 1 to Max_duzina do
    write(' ',matrica[i, j]);
    writeln;
    end;
    {glupi izlaz iz programa}
    writeln('Pritisnite Enter za kraj');
    readln;
    end.

Slične teme

  1. Pascal...
    Autor gost 30561 u forumu Softver
    Odgovora: 7
    Poslednja poruka: 03.12.2009., 20:48
  2. c++ i pascal
    Autor ferrero u forumu Programiranje
    Odgovora: 0
    Poslednja poruka: 11.01.2008., 21:23
  3. PASCAL
    Autor BlEjAcHiCa_90 u forumu Programiranje
    Odgovora: 17
    Poslednja poruka: 18.09.2007., 17:33
  4. pascal...
    Autor Lota u forumu Filozofija
    Odgovora: 1
    Poslednja poruka: 13.03.2007., 18:39
  5. asm,pascal
    Autor Professor Frink u forumu Programiranje
    Odgovora: 3
    Poslednja poruka: 08.07.2006., 12:55

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •