Se+es+joven

=__**A partir de la edad indicar si se es joven o no**__= > > **Indicando TRUE o FALSE**

code format="pascal" PROGRAM Edades_1 ; CONST LIM_INF = 15 ; LIM_SUP = 30 ; VAR iEdad    : Integer ; boEsJoven : Boolean ; BEGIN WriteLn ('Programa que lee la edad y dice si se es joven o no');

Write ('Indica la edad: ') ; ReadLn (iEdad) ;

boEsJoven := (LIM_INF <= iEdad) AND (iEdad <= LIM_SUP);

Writeln ('Con esa edad se es joven ', boEsJoven);

ReadLn ; END. code > **Indicando: "SI se es joven" O "NO se es joven"** code format="pascal" PROGRAM Edades_1 ; CONST LIM_INF = 15 ; LIM_SUP = 30 ; VAR iEdad    : Integer ; boEsJoven : Boolean ; BEGIN WriteLn ('Programa que lee la edad y dice si se es joven o no');
 * ** IF ELSE **

Write ('Indica la edad: ') ; ReadLn (iEdad) ;

boEsJoven := (LIM_INF <= iEdad) AND (iEdad <= LIM_SUP);

IF boEsJoven THEN Writeln ('Con esa edad SI se es joven'); ELSE Writeln ('Con esa edad NO se es joven');

ReadLn ; END. code > **Para resolver las situaciones de ambigüedad: "el ELSE va con el anterior IF que no tenga ELSE** code format="pascal" PROGRAM Edades_1 ; CONST LIM_INF = 15 ;  LIM_SUP = 30 ; VAR  iEdad     : Integer ; BEGIN  WriteLn ('Programa que lee la edad y dice si se es joven o no');
 * ** IF ELSE anidados **

Write ('Indica la edad: ') ; ReadLn (iEdad) ;

boEsJoven := (LIM_INF <= iEdad) AND (iEdad <= LIM_SUP);

IF LIM_INF <= iEdad THEN IF iEdad <= LIM_SUP THEN Writeln ('Con esa edad SI se es joven'); ELSE Writeln ('Con esa edad SE ES ADULTO');

ReadLn ; END. code > **Para resolver las situaciones de ambigüedad: "el ELSE va con el anterior IF que no tenga ELSE**
 * ** IF ELSE anidados **

> **En este código, para que el ELSE vaya con el primer IF y no con el segundo, el IF interno se acota con las palabras reservadas BEGIN y END** code format="pascal" PROGRAM Edades_1 ; CONST LIM_INF = 15 ; LIM_SUP = 30 ; VAR iEdad    : Integer ; BEGIN WriteLn ('Programa que lee la edad y dice si se es joven o no');

Write ('Indica la edad: ') ; ReadLn (iEdad) ;

IF LIM_INF <= iEdad THEN BEGIN IF iEdad <= LIM_SUP THEN Writeln ('Con esa edad SI se es joven'); END ELSE Writeln ('Con esa edad SE ES UN NIÑO');

ReadLn ; END. code