F:CHAR;
CHAR PUO CONTENERE SOLO UN SINGOLO CARATTERE
L:INTEGER;
CONTIENE NUMERI SENZA VIRGOLA
K:BOOLEAN;
CONTIENE TRUE O FALSE A SECONDA DELLA CONDIZIONE .
K:STRING;
CONTIENE NUMERI O LETTERE.
N.real;
contiene numeri con la virgola o senza .
K:ARRAY[1..20] OF INTEGER;
crea una sequenza di celle da 1 a 20 del tipo intero.
K:ARRAY[1..10,1..10] OF INTEGER;
crea una tabella di celle da fatta di 10 colonne e 10 righe .
CREAZIONE DI UN TIPO :
type
tvett1=array[1..20] of integer;<TVETT1 D'ORA IN POI SARA UNA VARIABILE >
var
x:tvett1;
OPERAZIONI CHE SI POSSONO FARE CON IL PASCAL:
-----------------------------
if (qua ci va inseita la condizione ) then
( se e vera fai questo blocco di istruzioni:)
begin (inizio del blocco )
writeln('inserisci l');
READLN(L);
end; (fine blocco)
else (IMPORTANTE PRIMA DELL' ELSE NON CI VA MAI IL PUNTO E VIRGOLA SE NO DA ERRORE!)
BEGIN
WRITELN('INSERISCI X');
READLN(X);
END;
_________
FOR L:=1 TO 100 DO
BEGIN
WIRTELN('OOOO');
READLN;
END;
IL FOR SERVE PER RIPETERE IL CICLO FINO A CHE NON ARRIVI A UN NUMERO DETERMINATO IN QUESTO CASO 100 LA VARIABILE L
_______________________
REPEAT
BLOCCO DI ISTRUZIONI
UNTIL (I=10) OR (I=X);
IL CICLO RIPETE QUEL BLOCCO DI ISTRUZIONI FINCHE I=10 O I=N .
__________________________
WHILE I<> N DO
BEGIN
I:=I+1;
END;
molto simile al repeat solo che esce quando quella condizione imposta sopra non e piu verificata
_________________________________
delay( 1000);
DELAY E UNA FUNZIONE CHE RALLENTA IL SISTEMA .
1 sec corrisponde a 1000 quindi delay(1000) corrispondera a 1 sec .
ATTENZIONE SU ALCUNI PC NUOVI QUESTA FUNZIONE NON FUNZIONA BENE INFATTI INVECE DI 1 SEC IL RITARDO SARA DI MENO..
________________________________
GOTOXY (COLONNA,RIGA);
GOTOXY (1,1);
SERVE PER POSIZIONARE IL TRATTINO SULLA COLONNA 1 E RIGA 1 IN QUESTO CASO.
__________________________________
TEXTCOLOR( COLORE);
TEXTBACKGROUND(COLORE)
LA PRIMA FUNZIONE SERVE PER COLORARE LE SCRITTE SULLO SCHERMO E LA SECONDA SERVE PER COLOLARE SOTTO LA SCRITTA .
________________________
CLRSCR;
SERVE PER CANCELLARE TUTTE LE SCRITTE DALLO SCHERMO .
________________________
READKEY
ATTENDE LA PRESSIONE DI UN TASTO PER CONTINUARE CON IL PROGRAMMA
_____________________________
WRITELN('COSA VUOI FARE');
WRITELN('1-STAMPA');
WRITELN('2- NUMERO CASUALE ');
WRITELN('3-EXIT);
READLN(SCELTA);
CASE SCELTA OF
1:
BEGIN
END;
2:
BEGIN
END;
3:
EXIT;
END;<QUESTO E L' END DEL MENU >
LA FUNZIONE CASE SERVE PER FARE UN MENU SENZA FARE TANTI IF ...
_________________________
VAR
F:FILE OF STRING;
BEGIN
ASSIGN(F,'C:/BOO.TXT');
WRITE(F,'INSERISCI UN NUMERO'');
READ(F,'N');
CLOSE(F);
END.
LA VARIABILE F E UNA VARIABILE ATTA A CONTENERE UN FILE DOVE CI SI IMMETTONO STRINGHE.
ASSIGN ASSEGNA ALLA VARIABILE F IL FILE,WRITE SCRIVE SUL FILE "INSERISCI UN NUMERO", E TRAMITE LA FUNZIONE READ N PRENDE IL CONTENUTO DI N .
CLOSE SERVE PER CHIUDERE IL FILE
REWRITE ;
SE C'E IL FILE LO RISCRIVE SE NON LO TROVA IL FILE LO SCRIVE LUI .
RESET;
SERVE PER ANDARE A LEGGERE IN UN FILE SE NON C'E DA ERRORE.
_______________________
STR(N,A);
trasforma n (intero) in una stringa dichiarata a .
__________________________
VAL(a,n,flag);
trasforma a(stringa ) in n(numero ) se avviene qualche errore flag prende true .
____________________________
s[i]:=upcase(s[i]);
l' up case e in grado di trasformare una lettera minuscola in maiuscola se la lettera e gia maiuscola rimane maiuscola.
_______________________
