01.09 Délka uhlopříčky čtverce
Zadání:
Sestavte program, který ze zadané strany a čtverce vypočte délku jeho úhlopříčky.
Sestavte program, který ze zadané strany a čtverce vypočte délku jeho úhlopříčky.
Řešení:
Úhlopříčku u lze ze zadané strany čtverce a vypočítat podle vzorce (užívá Pythagorovu větu):
Úhlopříčku u lze ze zadané strany čtverce a vypočítat podle vzorce (užívá Pythagorovu větu):
Module Module1
Sub Main()
Dim a, u As Double
Console.Write("Zadejte stranu ctverce: ")
a = Console.ReadLine
u = Math.Sqrt(2 * a ^ 2)
Console.WriteLine("Uhlopricka= {0:0.000}", u)
Console.ReadLine()
End Sub
End Module
program ke stažení
Pro studenty:
Funkce sqrt vrací hodnotu druhé odmocniny.
Pro učitele:
V programu je použit neupravený vzorec k procvičení funkcí mocnění a sqrt.
Funkce sqrt vrací hodnotu druhé odmocniny.
Pro učitele:
V programu je použit neupravený vzorec k procvičení funkcí mocnění a sqrt.