Pascal/Turbo Pascal - programa promedio de nota

   
Vista:

programa promedio de nota

Publicado por daniela (4 intervenciones) el 05/11/2017 18:59:18
Buena tarde si alguien me pueda ayudar con este problema ya que tengo poco conocimiento de dicho programa. adjunto el problema
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

programa promedio de nota

Publicado por dario alderaan@ec-red.com (38 intervenciones) el 06/11/2017 03:44:33
No veo el problema, podrias subirlo otra vez.
Salu2
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

programa promedio de nota

Publicado por carolina (22 intervenciones) el 13/11/2017 23:46:15
hola adjunto el problema
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

programa promedio de nota

Publicado por carolina (22 intervenciones) el 13/11/2017 23:45:27
adjunto el planteamiento del problema
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

programa promedio de nota

Publicado por dario alderaan@ec-red.com (38 intervenciones) el 14/11/2017 14:47:11
Te dejo una pequeña ayuda.
Tu ya tienes que terminarlo.
Saludos.

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
44
45
46
47
48
49
50
51
52
uses crt;
var
	beca,suma,grado,lapso,num,i,j:word;
	nomApell:string;
	materia:array[1..100] of byte;
	prom:real;
begin
	clrscr;
	suma:=0;
	prom:=0;
	write('Nro de Alumnos:');
	readln(num);
	writeln;
	for i:=1 to num do begin
		writeln('Alumno Nro ',i);
		writeln;
		write('Apellido y Nombre: ');
		readln(nomApell);
		writeln;
		write('Grado: ');
		readln(grado);
		writeln;
		write('Lapso: ');
		readln(lapso);
		writeln;
		writeln('Notas');
		writeln;
		case grado of
			1,2,3:
			begin
				for j:=1 to 5 do begin
					write('Materia ',j,': ');
					readln(materia[i]);
					suma:=suma+materia[i];
				end;
				prom:=suma/j;
				writeln('Promedio: ',prom:4:2);
			end;
		end;
 
		if (prom >= 18) and (prom <= 20) then begin
			beca:=55000;
			writeln; writeln;
			writeln('Monto de la Beca: ',beca);
		end
		else if (prom >= 16) and (prom < 18) then begin
			beca:=35000;
			writeln; writeln;
			writeln('Monto de la Beca: ',beca);
		end;
	end;
end.
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
Revisar política de publicidad