Salve ospite, se leggi questo messaggio vuol dire che non sei registrato, cosa aspetti ? Premi qui per registrarti La registrazione è completamente gratuita e ti permetterà di usufruire di tutte le funzionalità del nostro forum. Buona navigazione.


Vendo, Compro, Scambio NosTale! Riapre il Black Market, concludi i tuoi scambi NosTale gratuitamente! Più info  -   Accedi alla sezione
Download file Server : File Retro Server NosTale
Visita la nuova sezione di BorderGame dedicata a Blade & Soul! Sezione Blade and Soul

 
Valutazione discussione:
  • 6 voti - 3.5 media
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi - Calcolatrice
09-03-2013 04:31 PM
Messaggio: #1
Delphi - Calcolatrice
Ð3V!L
Bannati
Utente Saggio
Utente Storico

Banned

Messaggi : 1,416

Registrato dal : Apr 2012


Stato : Offline


Premi :



Ecco a voi una calcolatrice realizzata da me in Delphi

Codice:
program Hello;

{$APPTYPE CONSOLE}

var a : Integer;
var b : Integer;
var c : Integer;

Function Somma(a , b : Integer) : Integer;
  begin
    Result := a + b;
end;

Function Sottrazione(a , b : Integer) : Integer;
  begin
    Result := a - b;
end;

Function Moltiplicazione(a , b : Integer) : Integer;
  begin
    Result := a * b;
end;

Function Divisione(a , b : Integer) : Integer;
  begin
    Result := a div b;
end;

begin
  a := 20;
  b := 4;

  Writeln('--------------------------------');
  Writeln('A = ' , a);
  Writeln('B = ' , b);
  Writeln('--------------------------------');

  c := Somma(a , b);
  Writeln('Somma: ' , c);

  c := Sottrazione(a , b);
  Writeln('Sottrazione: ' , c);

  c := Moltiplicazione(a , b);
  Writeln('Moltiplicazione: ' , c);

  c := Divisione(a , b);
  Writeln('Divisione: ' , c);

  ReadLn;
end.

OUTPUT:

Codice:
--------------------------------
A = 20
B = 4
--------------------------------
Somma: 24
Sottrazione: 16
Moltiplicazione: 80
Divisione: 5

Spero che questo linguaggio vi possa interessare..
(Questo messaggio è stato modificato l'ultima volta il: 09-03-2013 04:38 PM da Ð3V!L.)
Torna al primo messaggio
Email Cerca Rispondi

PubblicitàLa tua pubblicità qui, clicca per informazioni e per le offerte!

Stanno visualizzando la discussione : 1 Ospite(i)

  • Versione stampabile
  • Invia ad un amico
  • Sottoscrivi questa discussione