[turbo pascal] si può inserire come libreria un file?

[ascatem]

in senso... posso fare come in delphi e inserire come libreria un file pre esistente??

program numeri;
uses crt,bo.pas;
var a,b,c,d:integer;
begin
clrscr;
writeln(' il programma ordina 3 numeri in ordine e trova un quarto numero che è la loro media ');
readln(a,b,c);

ora... se io programma bo,.pas ordina i tre numeri in ordine crescente...

come faccio a richiamarlo in modo che lui oprdini i numeri e poi il programma numeri.pas trovi solo il numero medio???

grassie

[alka]

Devi creare la tua unit bo.pas (anche se io ti suggerirei un nome più significativo) e inserire al suo interno una funzione che ti restituisca il risultato dell'operazione che devi eseguire, cioè ordinare numeri in modo crescente.

L'intestazione e il corpo della funzione risiedono nella sezione implementation della nuova unit, mentre la dichiarazione (intestazione) della funzione va riportata nella sezione interface se desideri che tale funzione sia visibile anche a moduli esterni.

Nella clausola uses del programma principale, inserisci il nome della unit senza estensione per poter utilizzare le funzioni e le procedure incluse in quest'ultima.

[ascatem]

Originariamente inviato da alka
Devi creare la tua unit bo.pas (anche se io ti suggerirei un nome più significativo) e inserire al suo interno una funzione che ti restituisca il risultato dell'operazione che devi eseguire, cioè ordinare numeri in modo crescente.

L'intestazione e il corpo della funzione risiedono nella sezione implementation della nuova unit, mentre la dichiarazione (intestazione) della funzione va riportata nella sezione interface se desideri che tale funzione sia visibile anche a moduli esterni.


non è che potresti farmi un esempio in codice di bo.pas(non il programma in se ma dove si mettono implementation e interface) e del file principale che dovrebbe sfruttare il file secondario??

grazie.

Nella clausola uses del programma principale, inserisci il nome della unit senza estensione per poter utilizzare le funzioni e le procedure incluse in quest'ultima.

[alka]

Ecco un esempio di unit esterna. L'ho scritta in Delphi ma dovrebbe andare bene comunque:

unit MyUnit;

interface

function Media(A, B, C: Integer): Integer;

implementation

function Media(A, B, C: Integer): Integer;
begin
  Media := (A + B + C) div 3;
end;

end.

Nel file che utilizza la unit:

program MediaNumeri;
uses
  Crt, MyUnit;
var
  a, b, c, m: Integer;
begin
  ClrScr;
  WriteLn('Inserire 3 numeri per calcolarne la media');
  ReadLn(a,b,c);
  m := Media(a, b, c);
  WriteLn('La media è: ' + m);
end.

P.S.: stai attento a quotare le frasi!

[ascatem]

grazie.....


scusa per il quote sbagliato manon ci avevo fatto caso..