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, objimg171 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 tProgram sekwencyjny begin for i:=l to n do read(a[k]); sort(1,n); for k:=l to n do2 13 How to succeed in negotiation? The negotiations are a long-term process and do not begin with szdj4 (5) Dobre rady Rozmieszczanie instrukcji, akapity a:=14: for i:=1 to 10 do begin x[i]:=0; h:=i57 (278) var Liczba, I : Integer; begin Liczba 0; for I :-1 to 1000 do if not Odd (T[I]> the30 (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]:=0DSC03227 4H6 Dodatek El:-TROK; FOR I:—1 TO H DO IF Y[I] >- EPS THEI BEGII S:-X[I]/T[I]S IF EX OR26289 zdj4 (5) Dobre rady Rozmieszczanie instrukcji, akapity a:=14: for i:=1 to 10 do begin x[i]:=0fragment programu dla tablicy F indeksowanej od 1 do N j:=1; for i:=1 to N do begin if j>iSortowanie proste Procedurę prostewybieranie; Var i,j,k : indeks; x:obiekt; Begin For I:=l to n-1 doPLD24 ; Ponowne uaktywnienie zliczania SETF ENA FOR X:=0 TO 9 DO BEGIN CLOCKF CLK END TRACE_OFF FORDSC03227 4H6 Dodatek El:-TROK; FOR I:—1 TO H DO IF Y[I] >- EPS THEI BEGII S:-X[I]/T[I]S IF EX ORwięcej podobnych podstron