Rné-Ildi

A négyzet terület, kerület, a kocka felszíne, térfogata

TextWindow.WriteLine("")
TextWindow.WriteLine("A program a négyzet ter., ker. és a kocka felszínét és térfogatát számolja!")
TextWindow.CursorLeft=16
TextWindow.CursorTop=10
TextWindow.Write("Kérem adja meg az A oldalt: ")
a= TextWindow.ReadNumber()
nt=(a*a)
nk=(4*a)
kv=(a*a*a)
ka=(6*a*a)
TextWindow.ForegroundColor="Red
TextWindow.CursorLeft=16
TextWindow.CursorTop=12
TextWindow.Write("A négyzet területe:" + nt + " m2")
TextWindow.CursorLeft=16
TextWindow.CursorTop=14
TextWindow.Write("A négyzet kerülete:" + nt + " m")
TextWindow.CursorLeft=16
TextWindow.CursorTop=16
TextWindow.Write("A kocka térfogata:" + kv + " m3")
TextWindow.CursorLeft=16
TextWindow.CursorTop=18
TextWindow.Write("A kocka felszíne:" + ka + " m2")
TextWindow.ForegroundColor="White
TextWindow.WriteLine("")

Két szám szorzata

TextWindow.WriteLine("")
TextWindow.WriteLine("két szám szorzata!")
TextWindow.CursorLeft=16
TextWindow.Top=10
TextWindow.Write("Kérem adja meg az első számot: ")
a= TextWindow.ReadNumber()
TextWindow.CursorLeft=16
TextWindow.Top=12
TextWindow.Write("Kérem adja meg az második számot: ")
b= TextWindow.ReadNumber()
c= (a*b)
TextWindow.CursorLeft=16
TextWindow.Top=14
TextWindow.WriteLine("A két szám szorzata: "+ c )
TextWindow.WriteLine("")

 Tippelős

TextWindow.WriteLine("")
TextWindow.CursorLeft= 40
TextWindow.CursorTop=8
TextWindow.WriteLine("Találd ki?")
TextWindow.CursorLeft= 20
TextWindow.CursorTop=10
TextWindow.Write("Adjon meg egy számot: ")
szam1 = TextWindow.ReadNumber()
TextWindow.CursorLeft= 20
TextWindow.CursorTop=12
TextWindow.Write("Adjon meg még egy számot: ")
szam2 = TextWindow.ReadNumber()
TextWindow.CursorLeft= 10
TextWindow.CursorTop=14
TextWindow.Write("Mennyi a két szám szorzata? ")
tipp = TextWindow.ReadNumber()
szorzat = szam1 * szam2
If (tipp = szorzat) Then
TextWindow.CursorLeft= 35
TextWindow.CursorTop=16
TextWindow.WriteLine("Helyes!")
Else
TextWindow.Write("Ezt még gyakorolni kell! A helyes megoldás: " + szorzat)
EndIf
TextWindow.WriteLine("")

A HuPont.hu ingyen weblap készítő egyszerű. Weboldalak létrehozására: Ingyen weblap

ÁSZF | Adatvédelmi Nyilatkozat