Blog en Blogger Perfil en Slideshare Bookmarks en Delicious Perfil el Facebook Perfil en Twitter Fotos en Flickr Página en MySpace Canal en YouTube Perfil en Google Perfil en Google
Búsqueda personalizada
Ejercicios de programación en Pascal (Turbo Pascal)
 Inicio > Ejercicios > Pascal > Alternativa simple > 2 > Solución

Solución del Ejercicio 2 - Media aritmética (Alternativa simple - Pascal)
program AAS12021;

uses Crt;

var A, B : Integer;

begin
   ClrScr;
   Write( 'Introduzca primer numero (entero): ' );
   ReadLn( A );
   Write( 'Introduzca segundo numero (entero): ' );
   ReadLn( B );

   if ( A > 0 ) and ( B > 0 ) then
      Write( ( A + B ) / 2 )
end.
Programa (.PAS): Media aritmética

(Véase el apartado 2.2 Alternativa simple ( de nuevo la instrucción if ) del Curso de Pascal).
 Páginas relacionadas
  · Solución del ejercicio en pseudocódigo, ordinograma y lenguaje C.
  · Instrucción alternativa simple (if then) en la sintaxis del Pascal.
  · Listado de ejercicios de programación resueltos en diferentes lenguajes.