Mostrar los datos del alumno con mayor nota

Programas Pascal

1. Registro: mostrar los datos del alumno con mayor nota.

program alumnoregistro;

uses dos,crt;

type

r_al=record

dni:integer;

nombre:string[100];

nota:integer;

end;

tabla_a=array[1..5] of r_al;

var

vector:tabla_a;

i,may,pos:integer;

begin

may:=0;

pos:=0;

for i:=1 to 5 do

begin

textcolor(10);

writeln('-------------------------------------');

writeln(' Datos del ',i,' alumno/a');

writeln('-------------------------------------');

textcolor(15);

write('Ingrese el DNI: '); readln(vector[i].dni);

write('Ingrese el nombre: '); readln(vector[i].nombre);

write('Ingrese la nota: '); readln(vector[i].nota);

if vector[i].nota>may then

begin

pos:=i;

may:=vector[i].nota;

end;

end;

clrscr;

textcolor(11);

writeln('---------------------------------------------------------------');

writeln(' El/la ',pos,' alumno/a tiene la mayor nota: ',may);

writeln('---------------------------------------------------------------');

writeln(' DNI: ',vector[pos].dni);

writeln(' Nombre: ',vector[pos].nombre);

writeln(' Nota: ',vector[pos].nota);

readkey;

end.

2. For: Colores en Pascal

program colores;

uses crt;

var

i:integer;

begin

writeln('COLORES Y SU NUMERO CORRESPONDIENTE');

for i:=0 to 15 do

begin

if i<0 then

textbackground(4)

else

textcolor(i);

writeln('Color numero: ',i);

end;

readkey;

end.

3. While: Numeros negativos

program numerosnegativos;

uses dos,crt;

var

n,c,f,negativos:integer;

begin

write('Ingrese la cantidad de numeros a validar: ');

read(n);

c:=0;

while c<n do

begin

write('Ingrese un valor: ');

read(f);

if f<0 then

negativos:=negativos+1;

c:=c+1;

end;

write('Los numeros negativos ingresados son: ',negativos);

readkey;

end.

4. Calculador de ecuaciones de segundo grado.

program evaluacion;

uses crt,dos;

var

a,b,c,d,e,f:real;

begin

ClrScr;

writeln('--------------------------------------------------');

writeln('CALCULADOR

...