chcel by som vás poprosiť, či by mi niekto vedel pomôcť.
Potreboval by som tento kód prekresliť na vývojový diagram.
Najlepšie by bolo v programe Flowgorithm. (Alebo v nieakom programe v ktorom robíte vy ja by som uz nieako prekreslil)
Kód: Vybrať všetko
Code:
var cislo,prvocislo : integer;
...
begin
readln(cislo);
write(cislo,' = ');
prvocislo := 2;
while cislo <> 1 do {hlavní cyklus while, zadané číslo ještě pořád lze rozložit na nějaký součín prvočísel}
begin
while cislo mod prvocislo = 0 do {dokud je zadané číslo beze zbytku dělitelné akt. hodnotou v proměnné prvocislo}
begin
write(prvocislo, ' * ');
cislo := cislo div prvocislo; {zadané číslo zmenším - vydělím ho jedním tím pročíslem, které jsem nyní vypsal}
end;
prvocislo := prvocislo + 1; {další zkoušení potenciální prvočíslo}
end;
writeln; {konec výpisu prvočísel}
end.
