Zdravím, potreboval by som navrhúť vývojový diagram k tomuto kódu:
Kód:
function Rozklad(k:integer):string;
var i: integer;
s: string;
begin
i := 1;
if k > 1 then repeat i := i + 1; until (k mod i) = 0;
Str(k,s);
if k = i then Rozklad := Rozklad + s
else begin
Str(i,s);
Rozklad := Rozklad + s + ' * '+ Rozklad(k div i);
end;
end;
ani za boha na to nemôžem prísť, a do zajtra mi to treba odovzdať, naprogramované to mám ale vývojový neviem nakresliť...
