raiz

program raiz;
uses crt;
var N1,C:real;
RES:char;
begin repeat clrscr;
writeln ('programa que calcula una raiz cuadrada');
writeln ('teclea un numero');
readln (N1);
if N1<=0 then
begin writeln ('error raiz cuadrada menor o igual de cero');
end else begin C:=sqrt (N1);
writeln ('la raiz cuadrada es: ',C:5:2);
end;
writeln ('deseas continuar (S/N)');
readln (RES);
until (RES='N') or (RES='n');
readln;
end.
program italia_espana;
uses crt;
Var
GPA:byte; {Variable de generador de preguntas aleatorias}
NP:byte; {Contador de numero de preguntas}
ANTERIOR_GPA:byte; { Variable para evitar preguntas repetidas seguidas }
RC:byte; {Contador de respuestascorrectas}
RES: string[2]; {Variable de la respuesta a deseas continuar programa}
RES2: string[2]; {Variable de la respuesta a deseas continuar preguntas}
RP: string[2]; {Variable de la respuesta a las preguntas}
{byte es un tipo entero cuyo rango es 0 a 255}
{ string[2] significa cadena de caracteres de longitud 2}
Procedure Respuestas_Correctas;
VarGRC:byte; {Variable de generador de respuestas correctas}
Begin
GRC:=Random(3); {Generador de tres numeros del 0 al 2}
Case GRC of
0:
begin textcolor(white);
gotoxy(10,15);write('Correcto');
end;
1:
begin textcolor(white);
gotoxy(10,15);
write('Excelente');
end;
2:begin textcolor(white);
gotoxy(10,15);
write('Muy bien');
end;
end; {Fin de case GRC }
end;
Procedure Respuestas_Incorrectas;
Var
GRI:byte; {Variable de generador derespuestas incorrectas}
Begin
GRI:=Random(3); {Generador de tres numeros del 0 al 2}
Case GRI of
0:
begin textcolor(white + blink);
gotoxy(10,15);write('Incorrecto');
end;
1:
begin textcolor(white + blink);
gotoxy(10,15);
write('Error en la respuesta');
end;
2:begin textcolor(white + blink);
gotoxy(10,15);
write('Respuesta no valida');
end;
end; {Fin de case GRI }
end;
Procedure Calcula_Calif;
Var
CAL: real; { Variablede la calificacion}
Begin
Textbackground(Blue); {Restablecer el color de fondo azul}
Textcolor(Yellow); {Restablecer el color de texto amarillo}
Clrscr; {Limpiar pantalla para no encimar textos}
CAL:= (RC*10)/NP; {Calculador de calificaciones}
gotoxy(15,1); write('De ');
Textcolor(White);
write(NP);...