fork download
copy 
  1. Program PruebaRegistro;
  2.  
  3. Var 
  4.  
  5. Op,X,Cuatrimestre,Colegiatura,Prom,Descuento,PorcientoColegiatura,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.  
  45.                 	Descuento:=Colegiatura*5/100;
  46.                 	Writeln('El Total De La Colegiatura Es ',Descuento);
  47. 			Readln;
  48.                 End;
  49.         If(Prom=8)or(Prom=9)then
  50.                 Begin
  51.                         Writeln('Tienes un 10% de Descuento');
  52.                 End;
  53.         If(Prom=10)then
  54.                 Begin
  55.                         Writeln('Tienes un 20% de Descuento');
  56.                 End;
  57.         Readln;
  58. 	End;
  59.   Readln;
  60. End.
  61.  
  62.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas:6: warning: missing string capacity -- assuming 255
prog.pas: In main program:
prog.pas:45: error: incompatible types in assignment
stdout
copy 
Standard output is empty
https://ideone.com/d52LC
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!