CLASE DEL 1/04/09 PARA ALUMNOS DE 5. SEC. I.E.P. CLARETIANO

EJEMPLOS DE PROGRAMAS CON REGISTROS SIMPLES O UNITARIOS Y ARREGLOS DE REGISTROS

Programa que utiliza un registro simple o unitario para leer los campos del registro RMEDIC

Program Medicam;
Uses Crt;
Type
Rmedic=Record
Nom:String[20];
Lab:String[15];
Tipo:String[12];
Precio:Real;
End;
Var
Vmedic:Rmedic;
Begin
Clrscr;
Write('Medicamento: ');Readln(Vmedic.Nom);
Write('Laboratorio: ');Readln(Vmedic.Lab);
Write('Tipo: ');Readln(Vmedic.Tipo);
Write('Precio: ');Readln(Vmedic.Precio);
Clrscr;
Writeln('Medicamento: ',Vmedic.Nom);
Writeln('Laboratorio: ',Vmedic.Lab);
Writeln('Tipo: ',Vmedic.Tipo);
Writeln('Precio: ',Vmedic.Precio:4:2);
Readkey
End.


Programa que utiliza un arreglo de registro para leer los campos de 20 registros


Program KardexComp;
Uses Crt;
Type
Rproduc=Record
Cod:String[7];
Nom:String[20];
Marc:String[15];
Precio:Real;
Stock:Integer;
End;
Aproduc=Array[1..20] Of Rproduc;
Var
Vproduc:Aproduc;
i,f:Integer;
Begin
Clrscr;
For I:=1 To 20 Do
Begin
Clrscr;
Writeln('Registro No. ',i,':');
Write('C¢digo : ');Readln(Vproduc[i].Cod);
Write('Nombre : ');Readln(Vproduc[i].Nom);
Write('Marca : ');Readln(Vproduc[i].Marc);
Write('Precio : ');Readln(Vproduc[i].Precio);
Write('Stock : ');Readln(Vproduc[i].Stock);
End;
Clrscr;
Gotoxy(22,2);Write('Listado de Producto cuyo Stock < 10 ');
Gotoxy(4,4);Write('C¢digo');
Gotoxy(17,4);Write('Nombre');
Gotoxy(40,4);Write('Marca');
Gotoxy(54,4);Write('Precio');
Gotoxy(64,4);Write('Stock');
F:=6;
For I:=1 to 20 Do
Begin
If Vproduc[i].Stock<10 Then
Begin
Gotoxy(4,f);Write(Vproduc[i].Cod);
Gotoxy(17,f);write(Vproduc[i].Nom);
Gotoxy(40,f);Write(Vproduc[i].Marc);
Gotoxy(54,f);Write(Vproduc[i].Precio:4:2);
Gotoxy(64,f);Write(Vproduc[i].Stock);
F:=F+1;
End;
End;
Readkey;
End.