Pascal

A partire dalle funzioni matematiche già esistenti nel linguaggio di programmazione Pascal Esponenziale Exp(x) Logaritmo naturale Ln(x) Arcotangente ArcTan(x) possono essere ricavate eventuali funzioni mancanti Pascal Radice ennesima Exp(Ln(x)/n) Elevamento a potenza Exp(y*Ln(x)) Esponenziale con base 10 Exp(x*Ln(10)) Esponenziale con base 2 Exp(x*Ln(2)) Logaritmo in base 10 Ln(x)/Ln(10) Logaritmo in base 2 Ln(x)/Ln(2) Tangente Sin(x)/Cos(x) Cotangente Cos(x)/Sin(x) Arcoseno ArcTan(x/Sqrt(1-Sqr(x))) Arcocoseno ArcTan(Sqrt(1-Sqr(x))/x)

Problemi con una matrice Riempirla di zeri Riempirla con i numeri consecutivi, per riga, da 1 a … Riempirla di numeri casuali da 0.0 a 99.9… Calcolare il minimo dei valori contenuti … massimo Calcolare il totale dei valori contenuti … media Realizzare la tavola pitagorica … la matrice identità … la matrice triangolare superiore … Leggi tutto

Con le seguenti dichiarazioni Const     DIM=10; Type     VETTORE: Array[1..DIM] Of Real; Var     V1, V2, V3: VETTORE; completa gli esercizi seguenti Procedure Visualizza(v: VETTORE); Var   i: Integer; Begin   For i:=1 To DIM Do       Writeln(i:5, ‘: ‘, v[i]:10:2); End; Procedure Visualizza_Capovolto(v: VETTORE); Procedure Visualizza_Quadrati(v: VETTORE); Procedure … Leggi tutto

Con le seguenti dichiarazioni Const     DIM=10; Type     VETTORE: Array[1..DIM] Of Real; Var     V1, V2, V3: VETTORE; completa gli esercizi seguenti Procedure Visualizza(v: VETTORE); Var   i: Integer; Begin   For i:=1 To DIM Do       Writeln(i:5, ‘: ‘, v[i]:10:2); End; Procedure Visualizza_Capovolto(v: VETTORE); Procedure Visualizza_Quadrati(v: VETTORE); Procedure … Leggi tutto

Problemi che richiedono un vettore Estrarre le cifre da un numero minore di 1.000.000 n=187 1 2 3 4 5 6 0 0 0 1 8 7 Convertire da base 10 a base 2 un numero minore di 256 n=13 1 2 3 4 5 6 7 8 0 0 0 0 1 1 0 … Leggi tutto

La notazione funzionale si è rivelata molto flessibile per il riutilizzo del codice della funzione Max2(X, Y), infatti Max3:= Max2(Max2(X1, X2), X3); Max4:= Max2(Max2(Max2(X1, X2), X3), X4); … MaxN:=(Max2(…(Max2(Max2(X1, X2), X3), …), XN); ma non comoda se bisogna riscrivere l’espressione a seconda del numero di variabili. L’algoritmo sottostante è invece (X1, X2)? –> M –> … Leggi tutto

Program ProvaFileTesto; Const   nomefile=’filetesto.txt’; Var   T: Text;   s : String;   c : Char; Begin   Assign(T, nomefile);   Rewrite(T);   s:=’Ciao’;   WriteLn(T, s);   s:=’mamma.’;   WriteLn(T, s);   Close(T);       Reset(T);   While Not Eof(T) Do       Begin          Read(T, c); // … Leggi tutto

Dichiarazione del file di testo Var T: Text; Comandi Assign(T, s); Assegna al file logico FT il file fisico di nome s Reset(T); Apre il file in lettura Rewrite(T); Apre/crea il file in scrittura Append(T); Apre/crea il file in scrittura, se esiste già del testo si posiziona alla fine Close(T); Chiude il file Read(T, x); … Leggi tutto

Dichiarazione per operare con un file ad accesso casuale, per esempio di interi Var FI: File of Integer; Comandi Assign(FI, s); Assegna al file logico FI il file fisico di nome s Reset(FI); Apre il file in lettura Rewrite(FI); Apre/crea il file in scrittura Append(FI); Apre/crea il file in scrittura, se esiste già si posiziona … Leggi tutto

Dichiarazione per operare con un file ad accesso sequenziale, per esempio di interi Var FI: File of Integer; Comandi Assign(FI, s); Assegna al file logico FI il file fisico di nome s Reset(FI); Apre il file in lettura Rewrite(FI); Apre/crea il file in scrittura Append(FT); Apre/crea il file in scrittura, se esiste già si posiziona … Leggi tutto