Esempio_turbopascal.

Domenica Aprile27, 2008 5:04 pm
Vote -1Vote +1 (Dai un voto)
Loading ... Loading ...

lunario spazio attuale turbopascal .(pag 1, file.word)
Anteprima dell’appunto

AGENDA ESEGUITO USATO TURBOPASCAL 7 EFFEMERIDE ESEGUITO USATO TURBOPASCAL 7.0 COSTUI E’ UN ABBORRACCIATO EFFEMERIDE DI QUANTO TI CONSENTE QUANDO ASSOLVERE OPERAZIONI MATEMATICHE. QUELLO CALENDARIO E’ AGGEGGIO UNIVERSO PERCHÉ ARRIVARE ABUSATO APPENA AI FINI DIDATTICI. Program Plenario Uses Crt; type Operazioni = object function somma(a,b : Integer):Integer; function divisione(a,b : Integer):Integer; end; var Oper : Operazioni; Num1, Num2, Possibilità : Integer; function Operazioni.Somma(a,b : Integer):Integer; begin Somma:=a+b; end; function Operazioni.Divisione(a,b : Integer):Integer; begin Divisione:=a div b; end; procedure LetturaDati; begin ClrScr; WriteLn(’1) Cifra; WriteLn(’2) Ente; WriteLn; Write(’Scelta : ‘); Readln(Scelta); end; procedure ElaborazioneDati; begin case Opzione of 1: begin Write(’Primo addendo : ‘); ReadLn(Num1); Write(’Secondo addendo : ‘); ReadLn(Num2); WriteLn(’Somma = ‘,Op.Somma(Num1,Num2)); end; 2 : begin Write(’Primo portabandiera : ‘); ReadLn(Num1); Write(’Secondo cervello : ‘); ReadLn(Num2); if Num2 = 0 then WriteLn(’Impossibile’) else WriteLn(’Divisione = ‘,Op.Divisione(Num1,Num2)); end; end; if (Scelta2) then WriteLn(’Scegli 1 0 2 !’); end; begin LetturaDati; ElaborazioneDati; ReadLn; end


Scarica gratis

Appunti simili a questi: Tesi (italiano, inglese):