fork download 
  1. Program PruebaRegistro;
  2.  
  3. Var Op,X,Nombre,Carrera,Cuatrimestre,Colegiatura,Prom,Descuento,TotalColegiatura:Integer;
  4. Begin
  5.     	Writeln ('Opcion1= Ir a Registros');
  6.     	Writeln ('Opcion2= Ir a Pagos');
  7.     	Writeln ('Que Opcion Desea?');
  8.     	Readln (Op);
  9.     If (Op=1) Then
  10.   	Begin
  11.   		Writeln ('Cuantos Alumnos Desea Registrar?');
  12.       				Readln (X);
  13.  
  14.   		For X:=1 To X Do
  15.   		Begin
  16.       			Writeln ('Ingrese El Nombre a Registrar');
  17.       			Writeln ('Ingrese El Nombre De la Carrera');
  18.       			Writeln ('Ingrese El Cuatrimestre');
  19.       				Readln (Nombre);
  20.       				Readln (Carrera);
  21.       				Readln (Cuatrimestre);
  22.       		End;		
  23.         End;
  24. 	If (Op=2) Then
  25.   	Begin
  26.  
  27. 		Writeln ('Ingrese El Nombre Del Alumno');
  28. 		Writeln ('Ingrese Monto De Colegiatura');
  29. 		Writeln ('Ingrese el Promedio');
  30.                 Readln(Prom);
  31.         		Writeln('El Promedio Es:',Prom);
  32.         If(Prom>=6)and(Prom<=7)Then
  33.                 Begin
  34.                         Writeln('Tienes 30 por ciento');
  35.                 End;
  36.         If(Prom>=8)and(Prom<=9)then
  37.                 Begin
  38.                         Writeln('Bien');
  39.                 End;
  40.         If(Prom=10)then
  41.                 Begin
  42.                         Writeln('Excelente');
  43.                 End;
  44.         Readln;
  45. 	End;
  46.   Readln;
  47. End.
  48.  
  49.  
Runtime error #stdin #stdout 0.01s 4112KB
comments (?)
stdin 
Standard input is empty
stdout 
Opcion1= Ir a Registros
Opcion2= Ir a Pagos
Que Opcion Desea?
https://ideone.com/YEmHU
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!