Ejercicios De Turbo Pascal

República Bolivariana De Venezuela
Ministerio Del Poder Popular Para La Educación Superior
Programa Nacional De Formación Sistemas E Informática
Colegio Universitario De Caracas
Siquisique-Urdaneta-Lara

Prof.: Carlos AriasIntegrantes:
Elimelec Bello # 20189556
José G. Querales # 20189203IX cohorte
Sistema e informática

Siquisique, marzo 2011

Realiceun programa que permita calvular y de cómo salida los siguiente total de venta de tamaño carta, total de venta de tamaño oficio, total de venta de tamaño extra oficio, total de venta de tamañogeneral tomando en cuenta que para las venta se tiene el siguiente precio estimado carta 45, precio de oficio 60 precio del extra oficio 75

Program: venta_total
Uses
Crt;
Const
Precio c: 45
Precioo: 65
Precio e: 75

VAR
Vc; Vo; Ve; string
TVc;TVo;TVe;TVg:Real

Procedure leer (TVc;TVo;TVe;TVg:Real);

Begin
TVc= 0; TVo= 0; TVe= 0

Write (“TVc”) Readln (TVc);
Write (“TVo”) Readln(TVo);
Write (“TVe”) Readln (TVe);
End;

Procedure calcular (VAR TVc;TVo;TVe;TVg:Real);

TVc:= (TVc+V*P)
TVo:= (TVo+V*P)
TVe:= (TVe+V*P)
End;

Procedure: res (final:real);

BeginTVg=TVc+TVo+TVe

Else
Begin
Write (total de venta general);TVg

Clrsc
Leer (TVc;TVo;TVe;TVg:Real);

Calcular (TVc;TVo;TVe;TVg:Real);

Readkey;
End.
Dada la cedula, nombre, edad, nota 1, nota 2, nota3, nota 4 en el areade la materia de arquitectura realice un proframa que permita calcular la nota definitiva de este material

Program: nota final
Uses
Crt;
Const
CI; nom; edad; N1; N2; N3;...