HackCuba

Código: Seleccionar todo

program DrakeEquation;

uses crt;

var
  R_star, fp, ne, fl, fi, fc, L: real;
  N: real;

begin
  clrscr;

  writeln('=== Ecuacion de Drake ===');
  writeln('Introduce los valores estimados:');

  write('R* (tasa de formacion de estrellas): ');
  readln(R_star);

  write('fp (fraccion de estrellas con planetas): ');
  readln(fp);

  write('ne (planetas habitables por sistema): ');
  readln(ne);

  write('fl (vida que aparece): ');
  readln(fl);

  write('fi (vida inteligente): ');
  readln(fi);

  write('fc (civilizaciones comunicativas): ');
  readln(fc);

  write('L (duracion de civilizacion en anos): ');
  readln(L);

  N := R_star * fp * ne * fl * fi * fc * L;

  writeln;
  writeln('Resultado estimado (N): ', N:0:4);

  readln;
end.