fork download 
  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.                 	Descuento:=(Colegiatura*0.05);
  44.                 	Writeln('Tienes un 5% de Descuento');
  45.  
  46.  
  47. 			Writeln('El Total De La Colegiatura Es ',Descuento);
  48. 			Readln;
  49.                 End;
  50.         If(Prom=8)or(Prom=9)then
  51.                 Begin
  52.                         Writeln('Tienes un 10% de Descuento');
  53.                 End;
  54.         If(Prom=10)then
  55.                 Begin
  56.                         Writeln('Tienes un 20% de Descuento');
  57.                 End;
  58.         Readln;
  59. 	End;
  60.   Readln;
  61. End.
  62.  
  63.  
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:43: error: incompatible types in assignment
stdout 
Standard output is empty
https://ideone.com/tbcyf
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!