Procedimientos y Funciones Diego Hernndez R Diego hernandezusm

Procedimientos y Funciones Diego Hernández R Diego. hernandez@usm. cl

Hoy Procedimientos Ejemplo Procedimiento Funciones Ejemplo Funciones Variable global y local Ejercicios

Procedure Sub-programa para realizar tareas especificas, puede recibir 0 o mas parámetros y NO RETORNA VALOR. Idea: Eliminar código repetitivo dentro del programa y hacer el programa más entendible

Procedure Sintaxis Procedure {nombre}{(argumentos)}; {declaraciones} Begin {acciones} End;

Ejemplo Procedure Program Saludos; uses crt; Var Nombre, Apellido : String; Procedure saludador( name : String ); Var altura: real; Begin Writeln('cuanto mides'); Read(altura); Writeln('Buenos dias ', name, ' ', Apellido, ' de ', altura, ' mts'); End; Begin Writeln('Nombre: '); Readln(Nombre); Writeln('Apellido: '); Readln(Apellido); saludador(Nombre); readkey End.

Ejemplo 2 Procedure Program Saludos; uses crt; Var Nombre, Apellido : String; Procedure muchossaludos; Begin Writeln('Muchos Saludos'); End; Procedure saludador( name : String ); Var altura: real; Begin Writeln('cuanto mides'); Read(altura); muchossaludos; Writeln('Buenos dias ', name, ' ', Apellido, ' de ', altura, ' mts'); End; Begin Writeln('Nombre: '); Readln(Nombre); Writeln('Apellido: '); Readln(Apellido); saludador(Nombre); muchossaludos; readkey End.

Function Sub-programa para realizar tareas especificas, puede recibir 0 o mas parámetros y SI RETORNA UN VALOR. Idea: Eliminar código repetitivo dentro del programa y hacer el programa más entendible

Function Sintaxis Function {nombre}{(argumentos)}: {tipo dato a retornar}; {declaraciones} Begin {acciones} End;

Ejemplo Function Program funciones; uses crt; Var n 1, n 2, n 3 : integer; Function maximo(a, b: integer): integer; Begin if a > b then maximo: =a else maximo: =b; End; Begin n 1: =1; n 2: =2; n 3: =maximo(n 1, n 2); write(n 3); readkey End.

Ejemplo 2 Function Program funciones; uses crt; Const MAX=3; Type arreglo=array[1. . MAX] of integer; Var n 1, n 2, n 3 : integer; mi_array: arreglo; Function maximo(a, b: integer): integer; Begin if a > b then maximo: =a else maximo: =b; End; Function llena_arreglo(indice, valor: i nteger): boolean; var temp: integer; Begin temp: =mi_array[indice]; mi_array[indice]: =valor; if valor>=temp then llena_arreglo: =true else llena_arreglo: =false; End; Begin n 1: =1; n 2: =2; n 3: =maximo(n 1, n 2); writeln(n 3); mi_array[1]: =n 1; mi_array[2]: =n 2; mi_array[3]: =n 3; if llena_arreglo(2, 4) then writeln('el valor actualizado en mayor, tambien podria ser igual') else writeln('es menor'); readkey End.

Variables Locales - Globales Program NOMBRE DEL PROGRAMA; uses crt; Var VARIABLES GLOBALES; (tienen vida dentro de las funciones o dentro del programa) Procedure o Function( ); Var VARIABLES LOCALES; (tienen vida solo dentro de la funcion) Begin ACCIONES DEL PROCEDIMIENTO O FUNCION End; Begin PROGRAMA End.

Tarea Investigar Y APRENDER como ordenar de mayor a menor y viceversa un arreglo de largo N lleno con números enteros. (pista: Burbuja) OJO: Quiz próxima clase

Ejercicios Hacer un procedimiento que lea 3 números enteros y los deje en 3 variables globales Hacer una función que reciba como parámetro 3 números enteros y si la suma es positiva retorne true y en otro caso retorne false Realice un procedimiento que escriba los n primeros numero enteros positivos en pantalla Construya una función que sume los n primeros números y retorne la suma y luego la muestre por pantalla

Fin ¿Alguna consulta?