Pascal/Turbo Pascal - ejercicio de algoritmia

   
Vista:

ejercicio de algoritmia

Publicado por ivan andres giron avila (1 intervención) el 23/06/2013 23:08:01
hola necesito que me ayuden a resolver estos ejercicios de algoritmo gracias


1. Elabora un algoritmo que permita determinar cual es la distancia recorrida por un automóvil, si se conocen la velocidad y el tiempo empleados.

2. Elabore un algoritmo que permita determinar cual es el área de un triangulo rectángulo, conociendo su base y su altura. Área = (Base * Altura)/2

3. Elabore un algoritmo que permita hallar la nota definitiva de un alumno sabiendo que tiene 3 notas parciales.

4. Elabore un algoritmo que permita hallar la nota definitiva de un estudiante sabiendo que tiene 3 notas parciales. La nota 1 tiene un valor del 30%, la nota 2 del 30% y la nota 3 del 40%.
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

ejercicio de algoritmia

Publicado por ramon (2072 intervenciones) el 24/06/2013 17:20:18
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
{Mira esto a ver si sirve}
 
 program algorit;
   uses
      crt;
   type
     parcia = array[1..3] of real;
  var
   veloci, tiempo : real;
   base, altura : integer;
   parc : parcia;
   cont : integer;
 
 
   function distancia(ve, tiem : real) : real;
   begin
      distancia := ve * tiem;
   end;
 
   function triangulorectanguloarea(bas, alt : integer) : integer;
   begin
      triangulorectanguloarea := round(bas * alt / 2);
   end;
 
   function notadefinitiva1(vanta : parcia) : real;
   begin
       notadefinitiva1 := (vanta[1] + vanta[2] + vanta[3]) / 3;
   end;
 
   function notadefinitiva2(van : parcia) : real;
   begin
       notadefinitiva2 := ((van[1] * 30 / 100) + (van[2] * 30 / 100) +
                          (van[3] * 40 / 100) / 3);
   end;
 
   procedure entrada_distancia;
   begin
     clrscr;
     writeln('****** Distancia Recorrida *******');
     writeln;
     write('  Entre Velocidad : ');
     readln(veloci);
     write('  Entre Horas     : ');
     readln(tiempo);
     writeln;
     writeln(' La Distancia Recorrida : ',distancia(veloci,tiempo):0:0,' Km');
     readkey;
   end;
 
   procedure entrada_area;
   begin
      clrscr;
      writeln('***** Calculo Area Triangulo Rectangulo *****');
      writeln;
      write('  Entre La Base   : ');
      readln(base);
      write('  Entre La Altura : ');
      readln(altura);
      writeln;
      writeln('  El Area Es : ',triangulorectanguloarea(base,altura));
      readkey;
   end;
 
   procedure entradanotas1;
   begin
       clrscr;
       writeln('***** Nota Definitiva De Un Alumno [1] *****');
       writeln;
       write('  Entre Nota Parcial [1] : ');
       readln(parc[1]);
       write('  Entre Nota Parcial [2] : ');
       readln(parc[2]);
       write('  Entre Nota Parcial [3] : ');
       readln(parc[3]);
       writeln;
       writeln('  La Nota definitiva es : ',notadefinitiva1(parc):0:0);
       readkey;
     end;
 
   procedure entradanotas2;
   begin
       clrscr;
       writeln('***** Nota Definitiva De Un Alumno [2] *****');
       writeln;
       write('  Entre Nota Parcial [1] : ');
       readln(parc[1]);
       write('  Entre Nota Parcial [2] : ');
       readln(parc[2]);
       write('  Entre Nota Parcial [3] : ');
       readln(parc[3]);
       writeln;
       writeln('  La Nota definitiva es : ',notadefinitiva2(parc):0:0);
       readkey;
     end;
 
   procedure menu;
   var
      sal : boolean;
      tecl : char;
   begin
       sal := false;
       repeat
           clrscr;
           writeln('   ****** Menu General ******');
           writeln;
           writeln('   1 = Distancia Recorrida');
           writeln('   2 = Area Del Triangulo');
           writeln('   3 = Hallar Nota Definitiva [1]');
           writeln('   4 = Hallar Nota Definitiva [2]');
           writeln('   5 = Salir');
           writeln;
           writeln('  <<<<< Elija Opcion >>>>>');
        repeat
           tecl := readkey;
        until tecl in['1','2','3','4','5'];
      case tecl of
   '1' : entrada_distancia;
   '2' : entrada_area;
   '3' : entradanotas1;
   '4' : entradanotas2;
   '5' : sal := true;
     end;
   until sal = true;
   end;
 
   begin
       menu;
   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

ejercicio de algoritmia

Publicado por BigClown (2 intervenciones) el 01/07/2013 23:34:37
Me parece que el uso de acciones y funciones , arreglos (array) es muy avanzado para la resolucion de este programa , lo se por que lo vi en la universidad con los mismos problemas (quiza la persona que hizo el post este va a mi universidad) estos problemas los vimos al principio y aun no veiamos cosas como funciones y acciones ni menos vectores/arreglos (arrays) , solamente una programacion muy lineal y casi sin ciclos (iteraciones)


BigClown
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