Převedení zadaneho slovo po zpátku

Převedení zadaneho slovo po zpátku otázka

čau lidi potřeboval bych vytvořit konsolovku na příklad kde mi zadane slovo napíše po zpátku třeba když zadám LES, aby mi to napsalo SEL

nahlásit spam

-1 / 1

odpovědět

19. 3. 2011 11:44

Ondřej Linhart

-553 3274

Projít celý řetězec v cyklu pozpátku a znaky přidávat do StringBuilderu (možná existuje jednodušší řešení ale momentálně mě napadá zrovna tohle).

Dim text = "Visual Basic .NET 10.0"
Dim builder As New Text.StringBuilder(text.Length)
Dim upperBound = text.Length - 1
For index = upperBound To 0 Step -1
  builder.Append(text(index))
Next
Dim reversedText = builder.ToString()
'0.01 TEN. cisaB lausiV

nahlásit spam

1 / 1

odpovědět

díík dík ale potřeboval bych trošku jine řešení bez toho builderu to sme se ještě neučili takže to nemůžu použít :)

nahlásit spam

-1 / 1

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

19. 3. 2011 12:00

Ondřej Brožek

87 199

a co jste se ucili ? :)

nahlásit spam

1 / 1

odpovědět

třeba toto takový zakladní příklad s generováním čísel

Dim soucet as Integer = 0

Dim x(n - 1) As Integer

x(0) = CInt(Rnd() * max + 0)

For i = 0 To UBound(x)

x(i) = CInt(Rnd() * max)

Write (x(i) & "+")

soucet += x(i)

Write("Hotovo! Součet čísel je: " & soucet)

ReadLine()

nahlásit spam

-1 / 1

odpovědět

19. 3. 2011 12:32

Ondřej Linhart

-553 3274

Dim text = "Visual Basic .NET 10.0"
Dim upperBound = text.Length - 1
Dim reversedTextCharacters(upperBound) As Char
For index = upperBound To 0 Step -1
  reversedTextCharacters(upperBound - index) = text(index)
Next
Dim reversedText = CStr(reversedTextCharacters)
'0.01 TEN. cisaB lausiV

A to je naposled, co jsem zde řešil nějaké trapné školní úlohy.

nahlásit spam

1 / 1

odpovědět

a trochu jednoduší verze

Dim text = "Visual Basic .NET 10.0".Reverse

nahlásit spam

1 / 1

odpovědět

Pocholitelně je to funkce objektu 'String'.

A ktomu mne napapdla příslový:

Uč se synu moudrý býti.

Člověče nezlob se.

nahlásit spam

odpovědět

20. 3. 2011 9:01

Jirka Daněk

26 67

třeba toto takový zakladní příklad s generováním čísel

Dim soucet as Integer = 0

Dim x(n - 1) As Integer

x(0) = CInt(Rnd() * max + 0)

For i = 0 To UBound(x)

x(i) = CInt(Rnd() * max)

Write (x(i) & "+")

soucet += x(i)

Next

Write("Hotovo! Součet čísel je: " & soucet)

ReadLine()

to znám...

http://www.vbnet.cz/forum-tema--4795-sou...

tohle jsem upravoval... děkuju by stačilo

možná by se to chtělo občas podívat do knihy, když všechno vyřeší někdo za tebe tak to stejnak nebudeš umět!! a to soudím už podle předchozího tématu(viz.odkaz), když nejsi schopný použít kus "vlastního" kódu po úpravě co jsem dělal a odmazáni "Write(x(i) & "+")"

A nejlepší na tom je, že se tu pak kde kdo každý vozí po p.Linhartovi, že jsou jeho poznámky nepatřičné a urážlivé, nedivím se mu!!

nahlásit spam

odpovědět

jáá vím, ale bohužel je programování můj okrajový předmět a kdybych tu knížku měl tak se podívám nebo třeba kdyby nám ta profesorka dala nějakou rteorii na net takhle to nemám odkad vzít a si vem , že to nikdy nedělám a najednou dostanu takový příklad tak co stím mám dělat?:)

nahlásit spam

odpovědět

a samozřejmě sem ti vděčný za vypracování minuleho příkladu

nahlásit spam

odpovědět

20. 3. 2011 12:50

Jirka Daněk

26 67

http://www.vbnet.cz/kategorie--12.aspx

nahlásit spam

odpovědět

a vidíš tam někde něco co by mi pomohlo?:)

nahlásit spam

odpovědět

zatím mám toto a nějak to nefunguje:

WriteLine("Zadejte slovo:")

slovo = ReadLine()

delka = Len(slovo)

For i = UBound(delka) To 0 Step -1

WriteLine("Slovo pozpátku je:" & i)

ReadLine()

nahlásit spam

-1 / 1

odpovědět

Module Module1

Sub Main()

Dim slovo, pozpatku As String

Dim delka As Int32

Console.Write("Zadejte slovo:")

slovo = Console.ReadLine()

delka = Len(slovo)

pozpatku = ""

For i = delka - 1 To 0 Step -1

pozpatku &= slovo.Chars(i)

Console.WriteLine("Slovo pozpátku je:" & pozpatku)

Console.ReadKey()

End Sub

End Module

nahlásit spam

odpovědět

Console.WriteLine(CStr("abc".Reverse.ToArray))

nahlásit spam

odpovědět

21. 3. 2011 19:58

Jirka Daněk

26 67

Jo to by ti pomohlo... Najdi si tam seriál o vbnet...

nahlásit spam

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz