PROGETTO DI INFORMATICA - Testo esercitazione proposta

informatica

PROGETTO DI INFORMATICA N.1

Testo esercitazione proposta

ESEGUIRE UN PROGRAMMA IN DELPHI CHE SIMULI L'UTILIZZO DELLE 4 FUNZIONI BASE DELLA CALCOLATRICE.

ANALISI DEL PROBLEMA

PROGETTAZIONE DEL PROGRAMMA

Per eseguire questo programma ho scomposto pensato di fare una procedura principale che facesse l'operazione necessaria a seconda di quale fosse la mia scelta(+,-,*,/) attraverso 4 bottoni.Nel main program di ogni bottone ho poi richiamato la procedura calcola,sostituendo le variabili formali con quelle globali

PROCEDURA CALCOLA

VAR (N1,N2:INTEGER;OPT:CHAR;N3:REAL)

INIZIO

SE OPT:="+" ALLORA N3=N1+N2;

SE OPT:="-" ALLORA  N3=N1-N2;

SE OPT:="*" ALLORA  N3:=N1*N2;

SE OPT:="/" ALLORA  N3:=N1/N2;

FINE.

Poi in ogni button ho sostituito ad n1,n2,n3 rispettivamente add1,add2 e risultato ,e li ho trasferiti su text1,text2 e text3 in modo da essere visibili.E' qui di seguito riportato un esempio di uno dei 4 bottoni,in questo caso del button "+".

PROGRAMMA BUTTON1

VAR ADD1,ADD2:INTEGER:

VAR RISULTATO:REAL

INIZIO

ADD1:=STRTOINT(TEXT1.TEXT);

ADD2:=STRTOINT(TEXT2.TEXT);

CALCOLA(ADD1,ADD2,+,RISULTATO);//QUI AVVIENE LO SCAMBIO TRA PARAMETRI FORMALI E VARIABILI GLOBALI.I PROGRAMMI DEGLI ALTRI BUTTON DIFFERISCONO DA QUESTO SOLO DAL SIMBOLO OPT.

RISULTATO:=FLOATTOSTR(TEXT3.TEXT);

FUNZIONI USATE

Funzione iterativa if=per la scelta dell'operazione aritmetica da svolgere.

Strtoint=per trasformare stringhe in interi

Floattostr=per trasformare reali in stringhe

CLASSIFICAZIONE DELLE VARIABILI

PROGRAMMA COMPLETO

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure calcola(n1,n2:integer; opt:char; var n3:real);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

public

end;

var

Form1: TForm1;

implementation

procedure Tform1.calcola(n1,n2:integer; opt:char; var n3:real);

begin

if opt='+' then n3:=n1+n2;

if opt='-' then n3:=n1-n2;

if opt='*' then n3:=n1*n2;

if opt='/' then n3:=n1/n2;

end;

procedure TForm1.Button1Click(Sender: TObject);

var add1,add2:integer;

var risultato:real;

begin

add1:=strtoint(edit1.text);

add2:=strtoint(edit2.text);

calcola(add1,add2,'+',risultato);

edit3.text:=floattostr(risultato);

end;

procedure TForm1.Button2Click(Sender: TObject);

var add1,add2:integer;

var risultato:real;

begin

add1:=strtoint(edit1.text);

add2:=strtoint(edit2.text);

calcola(add1,add2,'-',risultato);

edit3.text:=floattostr(risultato);

end;

procedure TForm1.Button3Click(Sender: TObject);

var add1,add2:integer;

var risultato:real;

begin

add1:=strtoint(edit1.text);

add2:=strtoint(edit2.text);

calcola(add1,add2,'*',risultato);

edit3.text:=floattostr(risultato);

end;

procedure TForm1.Button4Click(Sender: TObject);

var add1,add2:integer;

var risultato:real;

begin

add1:=strtoint(edit1.text);

add2:=strtoint(edit2.text);

calcola(add1,add2,'/',risultato);

edit3.text:=floattostr(risultato);

end;

end.

PIANO DI TEST

Ho provato a fare il programma inizialmente senza procedure ma ho visto poi che era piu' complicato.non ho dovuto testare molto anche perché le 4 funzioni usate per i main program dei bottoni erano praticamente identiche.

OSSERVAZIONI E CONCLUSIONI

Ho potuto constatare l'efficacia delle procedure che rendono il lavoro più veloce e meno complesso.Ho avuto qualche difficoltà nel trasferire le variabili sui vari text e di trasformarle in intgere in modo da poter essere visualizzate sulla striscia di testo.