Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 5 ejercicio 8
//fpc 3.0.4 program HelloWorld; const promocionado = 90; aprobado = 70; type Tnombre = string[15]; rangoPuntaje = 0 .. 100; examen = record nombre : Tnombre; continente : Tnombre; puntaje : rangoPuntaje; end; var max:examen; // representa el examen con mayor puntaje {-------------------------------------------------------------- } procedure puntProcess(var e:examen;var aprob:integer;var prom:integer;var promedio: real; var participante:integer); begin readln(e.puntaje); // ejercicio a if e.puntaje > max.puntaje then max:=e; // ejercicio b if e.puntaje >= promocionado then begin prom:=prom+1; aprob:=aprob+1; end else if e.puntaje >= aprobado then aprob:= aprob +1; // ejercicio c if e.continente = 'europa' then begin promedio := promedio + e.puntaje; participante:= participante +1; end; end; {-------------------------------------------------------------- } procedure contProcess(var e:examen); var reg_cont:Tnombre; aprob,prom: integer;promedio:real;participantes:integer; begin // inicializacion ................................... participantes:=0; promedio:=0; // lectura .................................. readln(e.continente); repeat reg_cont:= e.continente; // inicializacion ............................... aprob:=0; prom:=0; repeat puntProcess(e,aprob,prom,promedio,participantes); readln(e.nombre); if e.nombre <> 'zzz' then {--------------------continente---------------------------} readln(e.continente); until (e.continente <> reg_cont) or (e.nombre = 'zzz'); // report b................................................................................. writeln('para el continente ',reg_cont,' aprobaron ',aprob,' y promocionaron ',prom);writeln; // report a................................................................................. if reg_cont = 'europa' then begin promedio := promedio / participantes; writeln('el promedio de notas europeas es ',promedio:4:2);writeln; end; /////////////////////////////////////////////////////////////////////////////// until(e.nombre = 'zzz'); end; {-------------------------------------------------------------- } procedure mainProcess; var e:examen; begin readln(e.nombre); if e.nombre <> 'zzz' then contProcess(e); // report c..................................... writeln('el participante con mayor puntaje fue: '); writeln(max.nombre); writeln('de origen ',max.continente); writeln('con un puntaje de ',max.puntaje); end; {-------------------------------------------------------------- } begin max.puntaje:=0; mainProcess; end.
run
|
edit
|
history
|
help
0
Урок 3 задача 10 (1483) два момента времени
RENAN COSTA CARLOS DA CUNHA 600623343
Урок 3 задача 4
Задачи к § 66 «Символьные строки» Задача №112336. Замена a-b в последовательности символов
Project 16 Pascal
Potenztabelle
practica 2 ejercicio 2
homework
проверка числа на отсутствие возрастающих и убывающих четвёрок
07 Ariketa