Pascal/Turbo Pascal - Contador Notas aprobadas

 
Vista:
sin imagen de perfil
Val: 9
Ha aumentado 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Contador Notas aprobadas

Publicado por Miguelangel (7 intervenciones) el 27/09/2016 05:27:39
He estado solicitando ayuda con un programa el cual el enunciado es el siguiente: Programa Que Lea Las Notas De Un Alumno De 0 - 20 (N) Notas E Indique Cuantas Materias Aprobó Y Cuantas Reprobó.
He creado los siguientes códigos pero necesito su ayuda ya que no da el resultado requerido.
Cuantas N materias aprobó y cuantas N materias reprobo?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program notas12;
uses wincrt;
var
A,R: word;
mt,i,nmt,n,ContA,ContR:integer;
begin
writeln ('Ingrese mat');
readln (n);
for i:= 1 to n do
        begin
        writeln ('Ingrese nota de la materia:');
        Readln (nmt);
        if nmt>10 then
        WriteLn ('A');
        ContA:= ContA+1;
        if nmt<10 then
        Writeln ('R');
        ReadLn (R);
        ContR:=ContR+1;
        end;
Writeln ('Cant R:',ContR);
WriteLn ('Cant A:',ContA);
end.
O también:
program alumn;
uses wincrt;
var
n,nt,i,acun:integer;
Begin
WriteLn ('Ingrese la Cantidad de Materias a Evaluar');
ReadLn (N);
For i:= 1 to n do
 
	Begin
	ClrScr;
	Writeln ('Ingrese Notas:');
	Readln (Nt);
	if (Nt > 10) then
       WriteLn ('Aprobada') else
	If (Nt<9.9) Then
	Writeln ('Reprobada');
  end;
End.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Contador Notas aprobadas

Publicado por ramon (2127 intervenciones) el 27/09/2016 16:53:09
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
{Por lo que puedo observar trabajas con freepascal pero al trabajar en testo la unidad crt es lo mismo
para ti que para mi en pascal 7 tu programa lo tienes funcionando bien como te lo dejo tu puedes
modificar la presentación de los datos como quieras pero la forma es esta del programa   }
 
program notas12;
uses wincrt;
var
A,R: word;
mt,i,nmt,n,ContA,ContR:integer;
begin
clrscr;
write('    Ingrese N. matas : ');
readln(n);
clrscr;
conta := 0;
    for i := 1 to n do
        begin
        write('Ingrese nota de la materia N. ',i,' : ');
        Readln(nmt);
        if nmt > 10 then
        begin
        ContA := ContA + 1;
        end;
        if nmt < 10 then
        begin
        ContR := ContR + 1;
        end;
      end;
     Writeln('   Cant R : ',ContR);
     WriteLn('   Cant A : ',ContA);
     readln;
   end.
 
{Fíjate que dejas al descubierto el valor 10 puesto que tiene que ser mayor o menor en realidad
lo tendrías que colocar como nmt >= 10 o en otro caso nmt <= 10 para que no quedara el 10 colgado
nunca 9.9 puesto que trabajas con números enteros no decimales suerte }
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 9
Ha aumentado 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Contador Notas aprobadas

Publicado por Miguelangel (7 intervenciones) el 27/09/2016 17:40:32
Gracias. Más de una duda aclarada y también cosas q desconocía.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar