01.24 Úhel ve stupních na radiány
Zadání:
Sestavte program, který z hodnoty úhlu ve stupních, minutách a sekundách vypočte hodnotu úhlu v radiánech.
Sestavte program, který z hodnoty úhlu ve stupních, minutách a sekundách vypočte hodnotu úhlu v radiánech.
Řešení:
Úhel zadaný ve stupních, minutách a sekundách je nejprve nutno přepočítat na stupně, poté stupně převést na radiány.
Úhel zadaný ve stupních, minutách a sekundách je nejprve nutno přepočítat na stupně, poté stupně převést na radiány.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var r:real;
s,m,v:integer;
begin
write('Zadejte pocet stupnu: ');
readln(s);
write('Zadejte pocet minut: ');
readln(m);
write('Zadejte pocet sekund: ');
readln(v);
r:=s+m/60+v/3600;
r:=r*pi/180;
writeln('Velikost uhlu v radianech=',r:0:3);
readln;
end.
program ke stažení
Pro učitele:
V programu je použita pro výpočet stupňů i pro přepočet na radiány stejná proměnná r. Ušetří se tím místo v paměti, pro přehlednost by bylo vhodnější použít další proměnnou, např. takto:
V programu je použita pro výpočet stupňů i pro přepočet na radiány stejná proměnná r. Ušetří se tím místo v paměti, pro přehlednost by bylo vhodnější použít další proměnnou, např. takto:
stupne:=s+m/60+v/3600;
r:=stupne*pi/180;
Proměnnou stupne je nutné v deklarační části definovat jako typ real.