Caricare documenti e articoli online 
INFtub.com è un sito progettato per cercare i documenti in vari tipi di file e il caricamento di articoli online.


 
Non ricordi la password?  ››  Iscriviti gratis
 

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.

























Privacy




Articolo informazione


Hits: 1597
Apprezzato: scheda appunto

Commentare questo articolo:

Non sei registrato
Devi essere registrato per commentare

ISCRIVITI



Copiare il codice

nella pagina web del tuo sito.


Copyright InfTub.com 2024