Programmi vari per Turbo Pascal 6.0

informatica

Programmi vari per Turbo Pascal 6.0

-Risoluzione e discussione equazioni di primo grado

-Programma per trovare il MCD (massimo comun denominatore)

-Area cerchio

-Lunghezza circonferenza

EQUAZIONI DI PRIMO GRADO. 515j93f

Program equazioni_di_primo_grado;

uses crt;

var a,b,x:integer;

Begin

ClrScr;

writeln ('DISCUSSIONE DELLE EQUAZIONI DI PRIMO GRADO');

writeln

writeln ax=b');

writeln

writeln ('Inserisci il valore di a,coefficiente di x=');

readln (a);

writeln ('Inserisci il valore di b=');

readln (b);

writeln

writeln

writeln

if a=0 then if b=0 then writeln ('Identità---- risultati infiniti');

else writeln ('Equazione impossibile--- Nessun risultato ammesso');

else writeln ('x=b/a------- x=',b/a);

repeat until keypressed;

end.

TROVARE IL MASSIMO COMUN DENOMINATORE

Program mcd;

uses crt;

var a,b,m:integer;

Begin

ClrScr

Writeln ('TROVARE IL MASSIMO COMUN DENOMINATORE');

writeln

writeln ('Inserisci il valore del primo numero=');

readln (a);

writeln ('Inserisci il valore del secondo numero=');

readln (b);

repeat

m:=a mod b;

a:=b;

b:=m;

end;

until (m=0);

writeln

writeln ('Il Mcd dei due numeri è=',a);

end;

end.

PROGRAMMA AREA DEL CERCHIO

Program calcolo_area_del_cerchio;

uses crt;

var a,b:real;

c:integer;

const P=3.14;

Begin

repeat

ClrScr

Writeln ('PROGRAMMA PER IL CALCOLO DELL'AREA DEL CERCHIO');

writeln

writeln ('Inserisci il valore del raggio=cm');

readln (a);

b:=P*sqr(a);

writeln

writeln ('L''area del cerchio è=cm(alt253)',b);

writeln

writeln ('Vuoi eseguire un altro calcolo?  <s/n>=');

readln (c);

until (c<>'s');

writeln

writeln ('Ciao!');

repeat until keypressed;

end.

PROGRAMMA LUNGHEZZA CIRCONFERENZA

Program lunghezza_della_circonferenza;

uses crt;

var a,b:real;

c:char;

const P=3.14;

Begin

repeat

writeln ('CALCOLO DELLA LUNGHEZZA DELLA CIRCONFERENZA DI UN CERCHIO');

writeln

writeln

writeln ('Inserisci il valore del raggio del cerchio=cm');

readln (a);

b:=P*2*a;

writeln ('La lunghezza di questa circonferenza è=',b);

writeln

writeln ('Vuoi eseguire un altro calcolo? Sì=premi tasto 1 No=premi un altro tasto');

readln (c);

until c<>1;

end.

Consigli e suggerimenti:-per vivacizzare un po' i tuoi programmi puoi colorare le stringhe che appaiono durante l'esecuzione del programma:scrivi "textcolor(n);"dove n sta per un numero compreso tra 0 e 255.Ricordati che l'istruzione va messa prima della stringa che vuoi colorare Es. textcolor

writeln ('Ciao');

-molta attenzione va riposta nell'uso delle variabili,anche per rendere più bello da vedere il programma.Se devi rappresentare numeri interi è preferibile usare una variabile di tipo integre;per numeri molto grandi invece è raccomandabile la variabile real.La variabile char può essere molto utile nei cicli iterativi ma bisogna assolutamente ricordarsi che questa variabile leggi solo i caratteri letterali e che non legge i numeri.In livelli un po' più avanzati di programmi vengono anche usate altre variabili:

-single

-double

-extended

-comp

-string

-Una cosa che può sembrare banale,ma è molto importante,è salvare Il programma prima di farlo girare:se per caso il programma avesse qualche difetto e si bloccasse,non sarebbe più possibile recuperarlo,perché sarebbe obbligatorio chiudere il programma.