Mese: Dicembre 2014

String Il tipo di variabile String indica una sequenza di caratteri con lunghezza dinamica ma con dimensione tra 1 e 255. Se nella dichiarazione non è specificata la dimensione allora assume il valore di default, 255. Le costanti stringa sono delimitate da apici singoli, per indicare il carattere apice bisogna scriverlo 2 volte. Dichiarazione String … Leggi tutto

Per semplificare la stesura di un programma si possono usare intensivamente le procedure e richiamarle tramite un menu… Program menu_e_procedure; Uses Crt; Var scelta: Integer; (* —————————————————————————- *) Procedure opzione1; Begin … End; Procedure opzione2; Begin … End; Procedure presentazione; Begin … End; Procedure menu; Begin ClrScr; Writeln(‘—TITOLO—‘); Writeln(‘ 0. Uscita’); Writeln(‘ 1. Opzione 1’); … Leggi tutto

Una struttura molto comune per i programmi di prova. Viene visualizzato ciclicamente un menu con opzioni 0. Uscita 1. Opzione 1 2. Opzione 2 … n. Opzione n L’utente può scegliere quale operazione eseguire oppure uscire con 0. Var scelta: Integer; Begin Repeat Writeln(‘—TITOLO—‘); Writeln(‘ 0. Uscita’); Writeln(‘ 1. Opzione 1’); Writeln(‘ 2. Opzione 2’); … Leggi tutto

Algoritmo Da 1 a 10 Da 10 a 1 A:=1; Repeat   Writeln(A);   A:=A+1; Until(A > 10); A:=10; Repeat   Writeln(A);   A:=A-1; Until(A

L’istruzione di controllo Case () Of si utilizza se i blocchi dipendono tutti dalla stessa espressione l’espressione è intera (carattere/logica) i blocchi sono numerosi… Algoritmo Traduzione Istruzioni singole Writeln(‘0’); Case(E) Of   1: Begin         Writeln(‘-11-‘);         Writeln(‘-12-‘);       End;   2: Begin          … Leggi tutto

Algoritmo Traduzione in Pascal Le etichette Begin End sono facoltative quando si controllano singole istruzioni ma… Writeln(‘0’); If E = 1 Then    Begin       Writeln(‘-11-‘);       Writeln(‘-12-‘);    End; Writeln(‘2’); Writeln(‘0’); If E = 1 Then    Writeln(‘-1-‘); Writeln(‘2’); Writeln(‘0’); If E = 1 Then    Begin       … Leggi tutto

Le operazioni più comuni con i caratteri. Program Prova_Caratteri; Var     c1, c2: Char; Begin     Write(‘Primo   carattere ‘);     Readln(c1);     Write(‘Secondo carattere ‘);     Readln(c2);     Writeln;     Writeln(‘Upcase(‘,c1, ‘) = ‘, Upcase(c1));     Writeln(‘   Ord(‘,c1, ‘) = ‘, Ord(c1)   ); { … Leggi tutto

Con i cicli? Program Prova_Logici; Var a, b: Boolean; Begin Writeln(‘  a      Not’); For a:=FALSE To TRUE Do Writeln(a:5, ‘ = ‘ , (Not a):5); Writeln; Writeln(‘  a     b       Or   And   Xor’); For a:=FALSE To TRUE Do For b:=FALSE To TRUE Do Writeln(a:5,b:6,’ = ‘,(a Or … Leggi tutto

Le operazioni più comuni con i valori logici Program Prova_Logici; Var a, b: Boolean; Begin Writeln(‘  a      Not’); a:=FALSE: Writeln(a:5, ‘ = ‘ , (Not a):5); a:=TRUE;  Writeln(a:5, ‘ = ‘ , (Not a):5); Writeln; Writeln(‘  a     b       Or   And   Xor’); a:=FALSE; b:=FALSE: Writeln(a:5,b:6,’ = ‘,(a … Leggi tutto

Le operazioni più comuni con i numeri reali. Program Prova_Reali; Var x, y: Real; Begin Write(‘Valore reale per x? ‘); Readln(x); Write(‘Valore reale per y? ‘); Readln(y); Writeln(‘Pi = ‘ , Pi:1:2); Writeln(‘+’, x:1:2, ‘ = ‘, +x:1:2); Writeln(‘-‘, x:1:2, ‘ = ‘, -x:1:2); Writeln(x:1:2, ‘ + ‘, y:1:2, ‘ = ‘, x+y:1:2); Writeln(x:1:2, ‘ … Leggi tutto