4736387698

4736387698



begin

for i:=l to n do for j:=1 to n do begin s:=0;

for t:=l to n do

s:=s+A[i,t]*B[t,j] ;

C[i,j]:=s;

end;

end.

(b) program, który dla danej liczby naturalnej n > 0 oblicza n!: begin

if n=0 or n=l then silnia:=1 else begin

silnia:=1; for i:=2 to n do silnia:=silnia*i;

end;

end.

4. Uzasadnić, że pesymistyczna złożoność czasowa algorytmu Bellmana-Forda wynosi <9(|Vj • \E\).

18



Wyszukiwarka

Podobne podstrony:
img171 171 12.1. Parsing ekspansywnych języków grafowych procedurę ExpRec (var rec); begin for i :=
img106 106 8. Metody probabilistyczne begin for i := 1 to numclass do fun[i] := log ( density(i, obj
img171 171 12.1. Parsing ekspansywnych języków grafowych procedurę ExpRec (var rec); begin for i :=
obraz0 (84) Analiza algorytmu Algorytm begin for i:= 1 to n do for j := 1 to n do begin end k:= I t
Program sekwencyjny begin for i:=l to n do read(a[k]); sort(1,n); for k:=l to n do
2 13 How to succeed in negotiation? The negotiations are a long-term process and do not begin with s
zdj4 (5) Dobre rady Rozmieszczanie instrukcji, akapity a:=14: for i:=1 to 10 do begin x[i]:=0; h:=i
57 (278) var Liczba, I : Integer; begin Liczba 0; for I :-1 to 1000 do if not Odd (T[I]> the
30 (552) begin Write ( Podaj liczbę: ); Readln (N); Silnia 1; for I 1 to N do Silnia Silnia *
26289 zdj4 (5) Dobre rady Rozmieszczanie instrukcji, akapity a:=14: for i:=1 to 10 do begin x[i]:=0
DSC03227 4H6 Dodatek El:-TROK; FOR I:—1 TO H DO IF Y[I] >- EPS THEI BEGII S:-X[I]/T[I]S IF EX OR
26289 zdj4 (5) Dobre rady Rozmieszczanie instrukcji, akapity a:=14: for i:=1 to 10 do begin x[i]:=0
fragment programu dla tablicy F indeksowanej od 1 do N j:=1; for i:=1 to N do begin if j>i
Sortowanie proste Procedurę prostewybieranie; Var i,j,k : indeks; x:obiekt; Begin For I:=l to n-1 do
PLD24 ; Ponowne uaktywnienie zliczania SETF ENA FOR X:=0 TO 9 DO BEGIN CLOCKF CLK END TRACE_OFF FOR
DSC03227 4H6 Dodatek El:-TROK; FOR I:—1 TO H DO IF Y[I] >- EPS THEI BEGII S:-X[I]/T[I]S IF EX OR

więcej podobnych podstron