Ispolzovanie lineynykh algoritmov_dlya_reshenia_z
- 5. 弍仆亠仆亳亠
Program Ploshad ; ( 从舒亰于舒亠仄 仆舒亰于舒仆亳亠 仗仂亞舒仄仄)
var S,sinA,a:real; ( 仂仗亳于舒亠仄 仗亠亠仄亠仆仆亠 于 仗仂亞舒仄仄亠)
begin ( 仆舒舒仍仂 舒弍仂亠亶 仂弍仍舒亳)
writeln ( vvedite dlinnu storoni sinA );( 仂仗亠舒仂 于于仂亟舒
仗亠亟仗亠亢亟舒亠 仂 仆亢仆仂 于于亠亳 亰仆舒亠仆亳亠 仗亠亠仄亠仆仆)
readln(a,sinA); ( 亳于舒仆亳亠 亰仆舒亠仆亳 仗亠亠仄亠仆仆 于
仗舒仄 从仂仄仗ム亠舒)
S:=1/2*(a*a*sinA); (舒亳于舒亠仄 仗仍仂舒亟 亠亞仂仍仆亳从舒)
writeln (S=,S:2:2)( 于于仂亟亳仄 亠亰仍舒 仆舒 从舒仆)
end. ( 从仂仆亠 舒弍仂亠亶 仂弍仍舒亳)