Mostrar los datos del alumno con mayor nota
Enviado por Marcelo Leonel Choque • 23 de Noviembre de 2015 • Tareas • 266 Palabras (2 Páginas) • 132 Visitas
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
...