PROCEDURA

informatica

PROCEDURA

Il seguente programma consente di contare quante "A" vengono introdotte dall'utente. Per realizzare questo programma oltre alla struttura principale (program,ecc.)ho usato la "Procedure Carica". La "Procedure" 242c28c (o procedura) è un modulo di istruzioni che svolge una specifica funzione all'interno di un programma, il termine procedura viene anche usato in generale per indicare un insieme di programmi che risolvono un problema in modo automatizzato.

Program vettore;

Uses crt;

Type

vett array[1..10]of char;

Var

i,ct:integer;

a,b:char

v:vett;  Procedure o Procedura

Procedure caraca;

Var

i:integer;

v:vett

a,b:char;

Begin

WRITELN('QUESTO PROGRAMMA PERMETTE DI CALCOLARE QUANTE LETTERE A SONO INSERITE DALL''UTENTE');

For i:=1 to 10 do

Begin

writeln('Inserisci un valore: ');

readln V[i]);

If V[I]='a' then

CT CT+1;

end;

writeln('Le lettere A sono: ',CT);

READLN;

end

Begin

clrscr;

ct:=0;

Carica;

end.

Metodo di uso della procedura: La parola procedura viene introdotta al posto di "Program",seguita dal nome che identifica la procedura,seguono le dichiarazioni di eventuali costanti e variabili,e il corpo della procedura compreso tra un BEGIN e END;

procedura identificatore dichiarazioni BEGIN istruzione

END    Questa è la struttura per usare la procedura(qui ho omesso i ";")