Da Pascal a diagramma a blocchi

[Porippoppero]

dunque ho iniziato a fare questo diagramma di flusso del seguente programma:

Program DivisoriPrimi;

Uses Crt;

Var a:integer; (* primo numero *)
    b:integer; (* secondo numero *)
    tmp:integer; (* variabile che conterrà l'i-esimo divisore *)
    min: integer; (* il minimo fra a e b *)
    max: integer; (* il massimo fra a e b *)
    trovato: boolean; (* flag: true se esiste un divisore comune *)

Begin
   clrscr;
   Write('Introdurre primo valore: ');
   Readln(a);
   Write('Introdurre secondo valore: ');
   Readln(b);
   If (a<b) Then
    Begin
      min := a;
      max := b;
    End
   Else
    Begin
      min := b;
      max := a;
    End;

   trovato := false;
   tmp := min;
   While (Not(Trovato) And (tmp > 1)) do
   Begin
      If (((min mod tmp) = 0) and ((max mod tmp) = 0)) Then
         trovato := true
      Else
         tmp := tmp - 1;
   End;

   If (trovato) Then
      Writeln('I due numeri non sono primi tra di loro: ',tmp,' li divide!')
   Else
      Writeln('I due numeri sono primi tra di loro!');
   
End.

:quote: :quote:

sono però bloccato..vi allego il file da modificare (*.ppt).

Non riesco a sistemare il while con l'if e a finire.

Grazie x l'aiuto

DOWNLOAD ME

[Johnny_Depp]

Ho editato il titolo... così si legge meglio
ed è in linea con il regolamento di questo forum.

Regolamento_forum

[LeleFT]

Ehm... il flow chart che hai cominciato non è del tutto corretto... l'ho sistemato e completato.

Ricorda che da un'istruzione IF (un rombo), quando hai entrambi i rami, then ed else, escono sempre due freccie distinte. Non puoi scendere con una freccia e dividerla in then e else, o almeno non ne ho mai visti di flow chart fatti così... Quindi i due sottoprogrammi hanno strade separate, anche se sono composti di più di una istruzione.

Un While non è ientemeno che un IF iniziale in cui i due rami then e else, alla fine, convergono nello stesso cammino e ritornano a testare la condizione.

Se mi dai l'indirizzo e-mail, ti mando il flow-chart completo (in formato DOC).


Ciao.

[Porippoppero]

ecco la mia email:

d4v3@email.it


Grazie mille LeleFT

[LeleFT]

Ho appena mandato la mail... comunque non serviva che rendessi pubblico il tuo indirizzo e-mail: esistono i messaggi privati!


Ciao.