Pascal/Turbo Pascal - duda pregunta

   
Vista:

duda pregunta

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 04/03/2014 18:12:43
Hola, quiero hacer lo siguiente:
Analice qué acciones realiza el siguiente programa. Corrija el estilo, escribiendo de nuevo el código ya corregido y realizando los siguientes cambios:

a) Modifique los nombres de las variables y funciones para que reflejen de forma más acertada el valor que almacenan o las acciones que ejecutan.
b) Sangre el código de forma adecuada.
c) Incluya comentarios y cabeceras.

Program Sumatorio;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function funcion1(a, b: Integer):Integer;
Begin
a:= a +b;
funcion1:= a;
End;
Var
a:integer;
b:integer;
c:integer;
begin
write('Introduzca primer sumando : ');
readln(a);
write('Introduzca segundo sumando : ');
readln(b);
c:= suma(a,b);
writeln;
writeln('Total = ',c);
end.

gracias de antemano.
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

duda pregunta

Publicado por ramon (2072 intervenciones) el 06/03/2014 10:23:26
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
{Mira esto serbia}
 
Program Sumatorio;
 uses
     crt; {el programa puede usar ahora rutinas de la unidad Crt}
 Var
   sumando1 : integer;
   sumando2 : integer;  {estas son variables globales}
 
 
  Function suma(a, b: Integer):Integer; { debuelbe el resultado de la suma}
  Begin
     suma := a + b;
  End;
 
 procedure limpia_pantalla;  {limpia la pantalla}
 begin
   clrscr;
 end;
 
 
 
 begin
   limpia_pantalla;
   write('Introduzca primer sumando : ');
   readln(sumando1);                             {toma de datos}
   write('Introduzca segundo sumando : ');
   readln(sumando2);
   writeln;
   writeln('Total = ',suma(sumando1,sumando2));   {presentacion resultado}
   readln;
  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

duda pregunta

Publicado por antonio (2 intervenciones) el 15/05/2016 15:24:48
esta bien esto o no te funciono?
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

duda pregunta

Publicado por ramon (2072 intervenciones) el 16/05/2016 17:52:22
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{Esto es una suma no sumatoria que marcas   Program Sumatorio; }
 
Function funcion1(a, b: Integer):Integer;
Begin
a:= a + b;
funcion1:= a;
End;
Var
a:integer;
b:integer;
c:integer;
begin
write('Introduzca primer sumando : ');
readln(a);
write('Introduzca segundo sumando : ');
readln(b);
c:= funcion1(a,b); {Meda error me falta la función suma fíjate en esta linea tulla}
writeln;
writeln('Total = ',c);
readln;
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