dijagram toka u Pascal-u?

[ dalmasica @ 09.10.2006. 20:13 ] @

Kako bi trebao izgledati dijagram toka u Pascal-u za ovaj problem:

Napišite program koji unosi prirodan broj n i ispisuje najveću znamenku tog broja?

Za svaki prijedlog ili rješenje ZAHVALJUJEM!

[ Nemanja Avramović @ 10.10.2006. 00:57 ] @

I da znam, domaće zadatke ovde ne rešavamo

[ broker @ 10.10.2006. 08:50 ] @

Resvamo ako se placa :)
Primamo sve konvertibilne valute kao i naturu :)

[ dalmasica @ 10.10.2006. 10:52 ] @

Nije potrebno, rješila sam ga!!!

[ dalmasica @ 11.10.2006. 20:43 ] @

Ovaj mi zadatak stvarno ne ide...

Treba napisati program koji će za upisan broj n ispisati prvi prirodan broj koji ima najviše dijeljitelja?

npr,
ulaz:n=10
--- d
1- 1
2 - 1 - 2
3 - 1 - 3
4 - 1- 2 - 4
5 - 1- 5
6 - 1 - 2 - 3 - 6
7 - 1- 7
8 - 1- 2 - 4 - 8
9 - 1 - 3 - 9
10 - 1 - 2 - 5 -10

izlaz: 6

Molim Vas da mi barem otprilike kažete šta bih trebala da naprvim (dijagram toka)?

Zna li tko kakav sajt gdje ima ovakvih zadataka iz Pascal-a, plizzz recite ako znate koji?

_{[Ovu poruku je menjao dalmasica dana 11.10.2006. u 21:53 GMT+1]}

_{[Ovu poruku je menjao dalmasica dana 14.10.2006. u 12:27 GMT+1]}

[ dalmasica @ 14.10.2006. 11:30 ] @

Ljudi POMAGAJTE!!!!!!!

[ Nemanja Avramović @ 14.10.2006. 14:50 ] @

Kao što smo već rekli, obično domaće zadatke ne radimo (besplatno) a ja bih ti rado pomogao ali matematiku nisam dao tako da zaista nemam predstavu kako odraditi ovo :/

[ Srki_82 @ 14.10.2006. 14:53 ] @

Zadatak je prilicno jednostavan. Brute Force resenje bi bilo da za svaki broj nadjes koliko ima delitelja i da na kraju vidis koji je broj koji trazis.

Pseudokod bi ovako izgledao

Code:
maxR = 0
Br = 0

za svaki broj X od 1 do N
R = broj delitelja broja X
ako je R > maxR onda je Br = X

Resenje se nalazi u Br

[ dalmasica @ 14.10.2006. 18:11 ] @

Da, ali kako da nađem broj djeljitelja?

Ja sam početnik u programiranju (očito) pa bi želila da mi napisee SVE!

Hvala

[ reiser @ 14.10.2006. 18:26 ] @

Code:

var
  n        : Integer;
  C1, C2   : Integer;
  totalDiv : Integer;
  maxDiv   : Integer;
  currNum  : Integer;

begin
  Write('n = ');
  ReadLn(n);

  maxDiv := 0;
  currNum := 1;
  For C1 := 1 to n Do
  Begin
    totalDiv := 1;
    For C2 := 2 to (C1 div 2) Do
      If C1 mod C2 = 0 Then
        Inc(totalDiv);
    If totalDiv > maxDiv Then
    Begin
      currNum := C1;
      maxDiv := totalDiv;
    End;
  End;

  WriteLn('Broj koji ima najvise deljenika je: ', currNum);
  ReadLn;
end.