11.07.2015 Views

Compiladores: PASCALjr - WWW2 - Udesc

Compiladores: PASCALjr - WWW2 - Udesc

Compiladores: PASCALjr - WWW2 - Udesc

SHOW MORE
SHOW LESS
  • No tags were found...

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

11. Bloco de comandos delimitados por “begin” e “end”12. Comentário de linha com operador “//”13. Comentário de bloco com os delimitadores “{” e “}”14. Lista de Palavras Reservadas: var, const, while, do, for, read, write, writeln, if,then, else, true, false, integer, real, char, string, boolean, result, procedure,function,and,or,xor,not,to,repeat,until,program,downtoExemplos de programas a serem reconhecidos pela linguagem P ASCAL jr :{}PILOTO.TXTExemplo completo de programa na linguagem <strong>PASCALjr</strong>Desenvolvido por Rogerio Eduardo da SilvaAgosto, 2005Program Piloto;// declaraç~oes de variaveis e constantes globaisvar: integer cont; real Nota1, Nota2, Media_das_medias, med;const: integer total = 10;// Subrotina de preenchimento de telaprocedure _Tela()beginwriteln("******** ENTRADA DE DADOS ***************");writeln("Digite os valores da entrada:");end;// Calculo da media aritmetica entre duas notasfunc real _Media(real a , b)var: real media;beginmedia := (a+b)/2.0;result := media;end;// Inicio do Programa PrincipalbeginMedia_das_medias := 0;for cont=0 to total dobegin_Tela();read(Nota1, Nota2);med := _Media(Nota1, Nota2);Media_das_medias += med;11

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!