paraules reservades | seccions | identificadors | capçalera | unit | const | type | var | procedure i function
Pascal Estandar y Turbo Pascal 6.0 |
AND | ARRAY | BEGIN | CASE |
CONST | DIV | DO | DOWNTO |
ELSE | END | FILE | FOR |
FORWARD | FUNCTION | GOTO | IF |
IN | LABEL | MOD | NIL |
NOT | OF | OR | PACKED |
PROCEDURE | PROGRAM | RECORD | REPEAT |
SET | THEN | TO | TYPE |
UNTIL | VAR | WHILE | WITH |
Turbo Pascal |
ABSOLUTE | ASM | DESTRUCTOR |
IMPLEMENTATION | INTERFACE | OBJECT |
PRIVATE | SHR | UNIT |
VIRTUAL | CONSTRUCTOR | EXTERNAL |
INLINE | INTERRUPT | SHL |
STRING | USES | XOR |
seccions d'un programa en pascal
secció del programa | paraula reservada |
capçalera (títol del programa) | program |
declaració d'units | uses |
declaració de constants | const |
declaració de tipus | type |
declaració de variables | var |
declaració de subprogrames | fuction i procedure |
cos del programa | begin.... end i punt (.) |
Autor del programa : |
Versió actual : |
Data d'inici del programa : |
Data de l'última modificació : |
Què es pretén que faci el programa : |
Nom del fitxer font en el qual es guarda : |
Altres coses que t'ajudin a documentar el teu programa |
uses nom_unit_1, nom_unit_2, ....nom_unit_n;
const identificador_1 = valor_1; .... ; identificador_n = valor_n;
const
Min = 0;
Max = 1000;
salutació = 'Hola';
type identificador_1 = valor_1; .... ; identificador_n = valor_n;
type
paraula = String[20];
cap_de_setmana = (dissabte, diumenge); { tipus enumerat }
hores_dia = 0..23 {tipus subrang}
dies_mes = array[1..12] of word; {col·lecció ordenada de dades}
matriu = array[1..10,1..10] of integer;
var llista_var_1: tipus_1; .... ; llista_var_n;
Assignació: x:=22;
Readln(x,y,z)
Incrementar el seu valor: i := i + 1;
Controlar un bucle: for i:=1 to 10 do
Testejar una condició: if i<10 then ...
Participar en una expressió: n := (Max - Min) div i
begin
begin
i := i + 1 (* ús de la variable, incrementant el seu valor *)
end;
declaració de procediments i funcions
function Suma(a:integer;b:integer):integer;
begin
Suma := a + b;
end;
procedure Escriu(frase:string);
begin
writeln(frase) ;
end;
program de_base_10_a_base_x;
uses crt;
var num:integer;
base:byte;
procedure entrada(var num:integer; var x:byte);
var ok:boolean;
begin
repeat
writeln ('Donam la base (entre 2 i 10):');
readln(x);
If x in [2..10]then
ok:=true;
until ok=true;
writeln ('Donam un numero per pasar a base ', x);
readln(num);
ok:=false;
end;
procedure DeciX (base,num:integer);{Recursiva}
Begin
if num <> 0 then
begin
DeciX(base,num div base);
write (num mod base);
end;
End;
Begin { cos del programa / crida les procedures definides a dalt }
entrada(num,base);
writeln('El n£mero en base ',base,' es');
DeciX (base,num);
readln;
end.
Cap comentari:
Publica un comentari a l'entrada