pascal

• Citovať príspevok

Príspevok od používateľa brano11 » 02 mar 2008, 20:31

• Citovať príspevok

Príspevok od používateľa audiotrack » 02 mar 2008, 20:35

• Citovať príspevok

Príspevok od používateľa brano11 » 02 mar 2008, 22:23

zajtra ti to napisem lebo nemam zosit doma...

• Citovať príspevok

Príspevok od používateľa juho » 03 mar 2008, 12:11

uses crt;
const pocet=3;
var pole:array[1..pocet,1..pocet] of integer;
      sucet:integer;
      a,b:byte;
BEGIN
clrscr;
sucet:=0;
for a:=1 to pocet do
for b:=1 to pocet do begin
write('zadaj ',a,'. riadok ',b,'. bunku: ');readln(pole[a][b]);
if a=b then inc(sucet,pole[a][b]);
                      end;
clrscr;
writeln('matica ',pocet,'x',pocet,': ');
for a:=1 to pocet do begin
for b:=1 to pocet do write(pole[a][b],' ');
writeln;               end;

writeln('sucet hlavnej diagonaly v danej matici: ',sucet);
readkey;
END.

• Citovať príspevok

Príspevok od používateľa audiotrack » 03 mar 2008, 18:39

juho napísal:ked to nevie vyriesit tak tam bude urcite ze dynamicke a este ze neviem ake hodnoty. ci nie?

neviem či pamätáš, ale už tu niekto raz chcel pomoc s vymenením hodnôt dvoch premenných a tiež to nebolo cez smerníky

a btw: to tvoje pole s dynamickým nemá absolútne nič, ale nevadí, hlavne že sa sa zahral na frajera

• Citovať príspevok

Príspevok od používateľa piton » 03 mar 2008, 18:58

audiotrack napísal:a btw: to tvoje pole s dynamickým nemá absolútne nič, ale nevadí, hlavne že sa sa zahral na frajera

On to myslel ironicky

• Citovať príspevok

Príspevok od používateľa juho » 03 mar 2008, 19:11

• Citovať príspevok

Príspevok od používateľa nosooo » 09 mar 2008, 17:15

poznate nejaku stranku al co kde sa naucim robit v pascale?nieco al niekde kde to podrobne vsetko vysvetluju.dik

• Citovať príspevok

Príspevok od používateľa "J" » 09 mar 2008, 18:44

• Citovať príspevok

Príspevok od používateľa brano11 » 09 mar 2008, 19:42

• Citovať príspevok

Príspevok od používateľa neppo » 09 mar 2008, 20:36

program pr1;
var a:array[1..5,1..5] of integer;
      i,j,suc:integer;
begin

randomize;
suc:=0;

for i:=1 to 5 do begin
     for j:=1 to 5 do begin
          a[i,j]:=random(10);  {nahodne priradenie cisel 0-9 do poli}
          write(a[i,j]);   {vypis daneho pola}
          if (i=j) then  suc:=inc(suc,a[i,j]);   {scitavanie cisel na hlavnej diagonale - ked sa suradnice pola rovnaju}
     end;
     writeln;
end;

writeln('Sucet cisel na hlavnej diagonale je: ',sum);
readln;
end.