fork download 
  1. Program PruebaRegistro;
  2.  
  3. Var 
  4.  
  5. Op,X,Cuatrimestre,Colegiatura,Prom,Descuento,TotalColegiatura:Integer;
  6. Nombre,Carrera:String;
  7.  
  8. Begin
  9.     	Writeln ('Opcion1= Ir a Registros');
  10.     	Writeln ('Opcion2= Ir a Pagos');
  11.     	Writeln ('Que Opcion Desea?');
  12.     	Readln (Op);
  13.     If (Op=1) Then
  14.   	Begin
  15.   		Writeln ('Cuantos Alumnos Desea Registrar?');
  16.       		Readln (X);
  17.   		For X:=1 To X Do
  18.   		Begin
  19.       			Writeln ('Ingrese El Nombre a Registrar');
  20.       			Writeln ('Ingrese El Nombre De la Carrera');
  21.       			Writeln ('Ingrese El Cuatrimestre');
  22.       				Readln (Nombre);
  23.       				Readln (Carrera);
  24.       				Readln (Cuatrimestre);
  25.       		End;		
  26.         End;
  27. 	If (Op=2) Then
  28.   	Begin
  29.  
  30. 		Writeln ('Ingrese El Nombre Del Alumno');
  31. 		Writeln ('Ingrese Monto De Colegiatura');
  32. 		Writeln ('Ingrese el Promedio');
  33.                 Readln(Nombre);
  34.                 Readln(Colegiatura);
  35.                 Readln(Prom);
  36.         	Writeln('El Promedio Es:',Prom);
  37.         If(Prom<6)Then
  38.                 Begin
  39.                         Writeln('No Tienes Descuento por Idiota');
  40.                 End;
  41.         If(Prom=6)or(Prom=7)Then
  42.                 Begin
  43.                 	Writeln('Tienes un 5% de Descuento');
  44.                 	TotalColegiatura:=5*100/Colegiatura;
  45. 			Writeln('El Total De La Colegiatura Es ',TotalColegiatura);
  46. 			Readln;
  47.                 End;
  48.         If(Prom=8)or(Prom=9)then
  49.                 Begin
  50.                         Writeln('Tienes un 10% de Descuento');
  51.                 End;
  52.         If(Prom=10)then
  53.                 Begin
  54.                         Writeln('Tienes un 20% de Descuento');
  55.                 End;
  56.         Readln;
  57. 	End;
  58.   Readln;
  59. End.
  60.  
  61.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.pas:6: warning: missing string capacity -- assuming 255
prog.pas: In main program:
prog.pas:44: error: incompatible types in assignment
stdout 
Standard output is empty
https://ideone.com/GAuYO
language:
Pascal (gpc 20070904)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!