Programas diseñados en pascal
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...
Regístrate para leer el documento completo.