�ݺ�ߣ

Tugas no 6

?Download as TXT, PDF?

0 likes?115 views

jkjkjkjkjk

Module Module1
Sub Main()
Dim keliling As Func(Of Integer, Single) =
Function(a)
Return 2 * 3.14 * a
End Function
Dim jari As Integer
Console.WriteLine("Masukkan panjang jari-jari : ")
jari = Console.ReadLine()
Console.WriteLine("keliling lingkaran adalah : ")
Console.WriteLine(keliling(jari))
Console.ReadKey()
End Sub
End Module

More Related Content

Tugas no 6

1. Module Module1 Sub Main() Dim keliling As Func(Of Integer, Single) = Function(a) Return 2 * 3.14 * a End Function Dim jari As Integer Console.WriteLine("Masukkan panjang jari-jari : ") jari = Console.ReadLine() Console.WriteLine("keliling lingkaran adalah : ") Console.WriteLine(keliling(jari)) Console.ReadKey() End Sub End Module