EXPORT DIAM_TUBO()
BEGIN
  LOCAL Q, v, D, scelta;
  LOCAL fluidi;
  // Definizione lista fluidi
  fluidi := {"Acqua","Olio","Gas","Vapore"};
  // Menu fluidi
  CHOOSE(scelta, "Fluido", fluidi);
  IF scelta == 0 THEN
    RETURN; // Annullato
  END;
  // Imposta velocità
  CASE
    IF scelta == 1 THEN v := 3; END;     // Acqua
    IF scelta == 2 THEN v := 2; END;     // Olio
    IF scelta == 3 THEN v := 15; END;    // Gas
    IF scelta == 4 THEN v := 25; END;    // Vapore
  END;
  // Input portata
  INPUT(Q, "Portata", "Q (m^3/s):");
  IF Q <= 0 THEN
    MSGBOX("La portata deve essere positiva.");
    RETURN;
  END;
  // Calcolo diametro
  D := √((4*Q)/(π*v));
  // Output
  PRINT();
  PRINT("Fluido: " + fluidi(scelta));
  PRINT("Velocità adottata: " + STRING(v) + " m/s");
  PRINT("Portata: " + STRING(Q) + " m^3/s");
  PRINT("Diametro interno: " + STRING(D) + " m");
END;
