//Tämän ohjelman tekijä on Lauri Kalervo Friberg 2026.
//Ohjelma laskee pallomaisen kappaleen säteilyn tehon
//matkan päässä, matka metreinä, ja pallomaisen
//kappaleen pinnalla säteilyn teho on watteina ja
//matkan päässä teho on watteina (per neliömetri(?)).

#include <stdio.h>
#include <math.h>

int main()
{
    double matka_pallon_pinnalta=0.0, teho_pallon_pinnalla=0.0,
        vastaus_teho_matkan_paassa=0.0;

    puts("Voit lopettaa ohjelman kesken painamalla Ctrl + C (End Text/Cancel).");
    puts("UNIX-tyylisessä järjestelmässä voit laittaa ohjelman nukkumaan");
    puts("painamalla Ctrl + Z (Suspend/Sleep).");

    printf("teho_pallon_pinnalla (Watteina) = ");
    scanf("%lf", &teho_pallon_pinnalla);

    printf("matka_pallon_pinnalta (metreinä) = ");
    scanf("%lf", &matka_pallon_pinnalta);

    vastaus_teho_matkan_paassa = teho_pallon_pinnalla/(4*M_PI*matka_pallon_pinnalta);

    printf("vastaus_teho = %lf Wattia (/m²?) matkan %lf m päässä\n",
         vastaus_teho_matkan_paassa, matka_pallon_pinnalta);
    return 0;
}