Pascal

PRAC0125

PROGRAM SUMAAYB;{encabezado del trabajo}
USES CRT;{comando de formateo de pantalla}
VAR{declarar variable}
A,B,SUMA,vi,cuantas:INTEGER;{tipos de variable}

BEGIN{inicio de programa}
CLRSCR;{comando para limpiar pantalla}
writeln('cuantas veces quieres qe corra el programa');{comando para imprimir letrero}
readln(cuantas);{comando para introducir el valor de la variablecuantas}
for vi:=1to cuantas do{CICLO FOR}
begin{inicio del programa}
clrscr;{comando para limpiar pantalla}
WRITELN('ESCRIBE EL VALOR DE a');{comando para imprimir letrero}
READLN (A);{comando para introducir el valor DE LA VARIABLE A}
WRITELN('ESCRIBE EL VALOR DE b');{comando para imprimir letrero}
READLN (B);{comando para introducir el valor ala pantalla}
SUMA:=A+B;´{formula}
WRITELN('ELRESULTADO ES ',SUMA);{comando para imprimir letrero y resultado}
READLN;{Comando para detener la corrida hasta que de un ENTER}
END;{FIN DEL PROGRAMA}
end.{fin del programa}

PRAC0225

PROGRAM SUMAAYB;{encabezado del programa}
USES CRT;{comando para formateo de pantalla}
VAR{declarar variable}
A,B,RESTA,vi,cuantas:INTEGER{tipos de variable}

BEGIN{inicio del programa}
CLRSCR;{comandopara limpiar pantalla}
writeln('cuantas veces quieres que corra el programa');{comando para imprimir letrero}
readln(cuantas);{comando para introducir el valor de cuantas}
for vi:=1to cuantas do{ciclo for}
begin{inicio de programa}
clrscr;{comando para limpiar pantalla}
WRITELN('ESCRIBE EL VALOR DE a');{comando para imprimir letrero}
READLN (A);{comando para introducir el valor de A}WRITELN('ESCRIBE EL VALOR DE b');{comando para imprimir letrero}
READLN (B);{comando para introducir el valor de B}
RESTA:=A-B;{formula}
WRITELN('EL RESULTADO ES ',RESTA);{comando para imprimir letreros y resultados}
READLN;{comando para detener la corrida hasta que de un ENTER}
END;{FIN DEL PROGRAMA}
end.{fin del programa}

PRAC0325

program operaciones;{ENCABEZADO DEL PROGRAMA}
usescrt;{COMANDO PARA FORMATEO DE PANTALLA}
var{DECLARAR VARIABLE}
a,b,c,d:real;{TIPOS DE VARIABLE}
cuantas,vi:integer;{TIPOS DE VARIABLE}

begin;{INICIO DEL PROGRAMA}
clrscr;{COMANDO PARA LMPIAR PANTALLA}
writeln('cuantas veces quieres qe corra el programa');{COMANDO PARA IMPRIMIR LETRERO}
readln(cuantas);{COMANDO PARA INTRODUCIR EL VALOR DE LA VARIABLE CUANTAS}
for vi:=1 to cuantas do{CICLO FOR}begin{INICIO DEL PROGRAMA}
clrscr;{COMANDO PARA LMPIAR PANTALLA}
a:=6+7-8/6*10/6;{FORMULA}
b:=365-4/2*7-6-1*7;{FORMULA}
c:=4/2-6*7+8-2;{FORMULA}
d:=125/5*8-6+7*5;{FORMULA}
writeln(a,b,c,d);{FORMULA}
readln;{PARA DETENER LA CORRIDA HASTA QUE DE UN ENTER}

end;{FIN DEL PROGRAMA}
end.{FIN DEL PROGRAMA}

PRAC0425

program compradepantalon;{ENCABEZADO DEL PROGRAMA}
uses crt;{COMANDOPARA FORMATEO DE PANTALLA}
var{DECLARAR VARIABLE}
np,descuento,prp,total:real;{TIPOS DE VARIABLE}
cuantas,vi:integer;{TIPOS DE VARIABLE}

begin;{INICIO DEL PROGRAMA}
clrscr;{COMANDO PARA LMPIAR PANTALLA}
write('cuantas veces quieres que corra el programa');{COMANDO PARA IMPRIMIR LETRERO}
readln(cuantas);{COMANDO PARA INTRODUCIR EL VALOR DE LA VARIABLE CUANTAS}
for vi:=1 to cuantas do{CICLOFOR}

begin{INICIO DEL PROGRAMA}
clrscr;{COMANDO PARA LIMPIAR PANTALLA}
writeln('cuantos pantalones vas a llevar');{COMANDO PARA IMPRIMIR LETRERO}
readln (np);{COMANDO PARA INTRODUCIR EL VALOR DE LA VARIABLE NP}
descuento:=220*10;{FORMULA}
prp:=220-descuento;{FORMULA DEL DESCUENTO}
total:=prp*np;{FORMULA}
writeln('total a pagar',total);{COMANDO PARA IMPRIMIR LETRERO RESULTADO}readln;{COMANDO PARA DETENER LA CORRIDA ESTA QUE DE UN ENTER}
end;{FIN DEL PROGRAMA}
end.{FIN DEL PROGRAMA}










PRAC0525

program depreciacion;{ENCABEZADO DEL PROGRAMA}
uses crt;{COMANDO PARA FORMATEO DE PANTALLA}
var{DECLARAR VARIABLE}
va,dep,vr,avu:real;{TIPOS DE VARIABLE}
vi,cuantas:integer;{TIPOS DE VARIABLE}

begin{INICIO DEL PROGRAMA}
clrscr;{COMANDO PARA...