Pascal/Turbo Pascal - como hacer un programa de fisica fundamental en free pascal

   
Vista:
Imágen de perfil de Antonio

como hacer un programa de fisica fundamental en free pascal

Publicado por Antonio tonyhernandezixcatcoy@gmail.com (2 intervenciones) el 04/07/2014 01:45:17
COMO HACER UN PROGRAMA DE MOVIMIENTO RECTILINIO UNIFORME EN PASCAL CON
ESTA FORMULA:

Vᶠ=VₒT + aT
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

como hacer un programa de fisica fundamental en free pascal

Publicado por ramon (39 intervenciones) el 07/07/2014 11:19:05
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
{Mira no se si esto es lo que quieres sino pon mas datos }
 
 program movimiento_rectilineo_uniforme;
   uses
     crt;
 
  const
     velini : integer = 20;
     velfin : integer = 80;
     tempo  : integer = 3;
     espaci : real = 0.0;
 
   var
     t : integer;
 
   begin
      clrscr;
      writeln(' **** Movimiento Rectilineo Uniforme ****');
      writeln;
      writeln('  Iniciamos En     : ',velini,' Kl');
      writeln('  Terminamos En    : ',velfin,' Kl');
      writeln('  Tiempo Invertido : ',tempo,' Horas');
      espaci := (velfin - velini) / tempo;
      writeln('  El Espacio Recorrido Es = ',espaci:0:2,' Kl Hora');
      gotoxy(2,10);write('Recorre ');
      if round(espaci) + 10 > 80 then
      writeln('  Se Sale De Pantalla')
   else
      begin
      for t := 0 to round(espaci) do
      begin
         gotoxy(10 + t,10);write('Ä');
      end;
      gotoxy((10 + t) + 1,10);write(' Kl');
     end;
      gotoxy(20,15);write('  Pulse Una Tecla');
      readkey;
      clrscr;
      writeln(' **** Movimiento Rectilineo Uniforme ****');
      writeln;
      writeln('   Entre Datos Para El Calculo ');
      writeln;
      write('  Posicion De Inicio En Kl   : ');
      readln(velini);
      write('  Posicion Final  En    Kl   : ');
      readln(velfin);
      write('  Tiempo Invertido En Horas  : ');
      readln(tempo);
      clrscr;
      writeln('  Iniciamos En     : ',velini,' Kl');
      writeln('  Terminamos En    : ',velfin,' Kl');
      writeln('  Tiempo Invertido : ',tempo,' Horas');
      espaci := (velfin - velini) / tempo;
      writeln('  El Espacio Recorrido Es = ',espaci:0:2,' Kl Hora');
      gotoxy(2,10);write('Recirre ');
      if round(espaci) + 10 > 80 then
      writeln('  Se Sale De Pantalla')
   else
      begin
      for t := 0 to round(espaci) do
      begin
         gotoxy(10 + t,10);write('Ä');
      end;
      gotoxy((10 + t) + 1,10);write(' Kl');
     end;
     gotoxy(20,15);write('  Pulse Una Tecla');
     readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Antonio

como hacer un programa de fisica fundamental en free pascal

Publicado por Antonio (2 intervenciones) el 09/07/2014 01:45:10
Oye te agradezco haber respondido, y si era justo eso lo que necesitaba saber, porque no le hallaba la manera de hacerlo GRACIAS.
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