3.1.6. Ejercicios en pascal

A continuación tenemos varias páginas en internet con ejercicios en pascal:

http://www.lawebdelprogramador.com/temas/e_pascal/index.php

Otros ejemplos:

Escribir un programa en Pascal que realice un bucle con While y muestre en pantalla los números del 1 al 10.

Program digitos;
USES CRT;
VAR x:INTEGER;
BEGIN
x:=0;
ClrScr;
WHILE X <= 10 DO
BEGIN
WRITELN (x);
x:=x+1;
END;
END.

Escribir un programa en Pascal que realice un bucle con Repeat y muestre en pantalla los números del 1 al 10.

PROGRAM DIGITOS1;
USES CRT;
VAR x:INTEGER;
BEGIN
x:=0;
ClrScr;
REPEAT
WRITELN (x);
x:=x+1;
UNTIL x=10;
END.

Hacer un Programa en pascal que imprima el mayor valor de n números

Program mayvalor;
uses crt;
var
n,i: integer;
numero,mayor : real;

begin
write(‘ Escriba la cantidad de numeros a comparar ‘);
readln(n);
mayor := 0;
for i := 1 to n do
begin
write( ‘ Escriba un numero ‘);
readln(numero);
if numero > mayor
mayor := numero
end;
writeln( ‘ El mayor valor es : ‘,mayor:7:2);
readkey;
end.

Deja un comentario