#!/usr/bin/octave -qf

#zaokrouhleni
output_precision = 15;
#Úloha 1
disp ("\n \n |---------------------------------|\n \n")
disp ("Script pro výpočet úloly 1 do")
disp ("VB005 - Panorama fyziky")
disp ("\n \n |---------------------------------|\n \n")
format short g

disp ("Zadejte prosím několik vstupních dat pro:\n")

x_ly =  input ("Vlož vzdálenost ve světelných letech: ")
x = x_ly;

#prevody vzdalenosti v km
AUkm = 149.6e6;

#konstanty
c = 3e8;
sec = 60;
min = 60;
hod = 24;
den = 365;

#Prevod ly -> m, km
t = x * sec * min * hod*den;
s_m = t*c;
s_km = t*c/1000;

#Prevod km ->AU
s_AU = s_km / AUkm;

disp ("\n \n |---------------------------------|\n \n")
disp ("Výsledky:")
printf ("\n Vzdálenost přepočítaná na metry: %g m \n",s_m)
printf("\n Vzdálenost přepočítaná na kilometry: %g km \n",s_km)
printf ("\n Vzdálenost přepočítaná na Astronomické jednotky: %g AU \n",s_AU)
disp ("\n \n |---------------------------------|\n \n")