Programas diseñados en pascal

Solo disponible en BuenasTareas
  • Páginas : 3 (579 palabras )
  • Descarga(s) : 0
  • Publicado : 11 de abril de 2010
Leer documento completo
Vista previa del texto
1. Suma de dos números introducidos por teclado
program suma; uses crt; var num1, num2: integer; sum: integer; Begin clrscr; writeln('Dame un número'); readln(num1); writeln(''); *Espacio en blanco*writeln('Dame otro número'); readln(num2); sum:=num1+num2; clrscr; *Limpia el contenido de la pantalla* writeln('La suma total es: ', sum); repeat until keypressed; *Repetir hasta pulsarunatecla*end.

2. Comparación de dos números introducidos por teclado
Program comparardosnumeros; uses crt; var num1, num2: longint; Begin clrscr; writeln('Introduce un número por teclado'); readln(num1);clrscr; writeln('Introduce otro número por teclado'); readln(num2); clrscr; if num1>num2 then Begin writeln('El mayor es ', num1); end; if num2>num1 then begin writeln('El mayor es ', num2); end; ifnum1=num2 then begin writeln('Los números son iguales');

end; repeat until keypressed; end.

3. Establecer si un número introducido por teclado es par o impar
Program ParoImpar; uses crt; var num1:longint; Begin clrscr; writeln('Introducir un número por teclado'); readln(num1); if (num1 mod 2) = 0 then writeln('El número es par') else writeln('El número es impar'); readln; end.

4. Establecersi un número introducido por teclado es divisible o no entre tres
Program divisibleentre3; uses crt; var num1: longint; Begin clrscr; writeln('Dame un número y te dirá si es divisible entre tres');readln(num1); if (num1 mod 3) = 0 then writeln('El número es divisible entre tres') else writeln('El número no es divisible entre tres'); readln; end.

5. Introducir una serie de números hastateclear un 0 y obtener su suma
Program sumadenumeros; uses crt; var

suma, num: longint; Begin clrscr; suma:=0; num:=1; writeln('Le pediremos introducir una serie de números'); writeln('');writeln('Cuando haya terminado de introducir los números, introduzca un cero y se realizará la suma'); while num0 do begin writeln('Dame un número'); readln(num); suma:= suma+num; end; writeln('La suma total...
tracking img