pro11

sintassi per variabili e principali funzioni

PASCAL
tipi
INTERI		INTEGER...LONGINT..SHORTINT...BYTE...WORD
DECIMALI	REAL
CARATTERE	CHAR
STRINGA		STRING
BOLEANI		TRUE,FALSE

INDICIZZATE     

operazioni	
addizione	+		a+b		interi-reali
sottrazione	-		a-b		interi-reali
moltiplicazione	*		a*b		interi-reali
divisione	DIV     	a DIV b		interi
resto		MOD 		a MOD b		interi
divisione	/		a/b		reali

funzioni particolari(interi e reali)
assoluto	abs(x)
quadrato	sqr(x)
radice quadrata	sqrt(x)
esponenziale	exp(x)
arrotondamento	round(x)
troncamento	trunc(x)
intero		int(x)

ASSEGNAZIONE valore x:=valore

OPERATORI vari AND,OR,NOT,>,<,<>...

DICHIARAZIONE con Var nome:tipo;

assoluto abs(x)
intero int(x)
troncato trunc(x)
arrotondato round(x)
quadrato sqr(x)
radice quadrata sqrt(x)
casuale random(1)
quoziente x div y
resto x mod y
esponenziale exp(x)
logaritmo n. ln(x)
logaritmo d. ln(x)/ln(10)
seno sin(x)
coseno cos(x)

program pro5;
uses crt;
var x,y:integer;
    r:real;
begin
clrscr;
writeln(abs(-5));
writeln(int(5.23));
writeln(trunc(5.26));
writeln(round(7.8));
writeln(sqr(5));
writeln(sqrt(100));
writeln(random(1));
writeln(100 div 20);
writeln(100 mod 12);
writeln(exp(3));
writeln(ln(100));
writeln(ln(100)/ln(10));
writeln(sin(30*PI/180));
writeln(cos(30*PI/180));
readln;
end.

BOOLEAN

program pro3;
uses crt;
var a,b,c,d:integer;
    conferma:boolean;
begin
clrscr;
a:=10;
b:=50;
c:=100;
d:=200;
(*variabili boolean *)
if a>b then writeln(a-b);
if a<b then writeln(b-a);
if a>b then writeln(a-b)
 else writeln(b-a);
 if a>=b then writeln(a+b)
  else writeln(b-a);
if ((b<a) or ( c<d)) then writeln(a+b)
 else writeln(a*b);
 if ((a<b) and (c>d)) then writeln(a+b)
 else writeln(a*b);
if not a>b then writeln(b-a)
 else writeln(a-b);
 (* uso di True e di False nei test di controllo *)
conferma:=false;
if a<b then conferma:=true;
if conferma then writeln(a*10);
conferma:=false;
if a>b then  conferma:=true;
begin
if conferma then writeln(a*1)
else
writeln(b*5);
end;
readln;
end.

RUN e visualizza

40
40
40
60
500
-40
100
250

funzioni stringa con PASCAL

program pro5a;
uses crt;
var x:integer  ;
    a,b,c,d:string  ;
    s1,s2,unire:string;
begin
clrscr;
s1:='maria';
s2:='rosa';
a:='laudare';
(* lunghezza stringa *)
x:=length(a);
writeln(x);
(* copia caratteri da inizio a lunghezza-3....radice*)
b:=copy(a,1,x-3);
writeln(b);
(*copia tutta la stringa meno ultimo carattere*)
c:=copy(a,1,x-1);
writeln(c);
(*copia n caratteri da punto indicato...desinenza *)
d:=copy(a,x-2,3);
writeln(d);
(* copia unione stringhe *)
writeln(s1+s2);
unire:=concat(s1,s2);
writeln(unire);
readln;
end.

RUN per visualizzare 

7
laud
laudar
are
mariarosa
mariarosa			

inizio