2007 május/sms szavak érettségi feladat nincs meg valakinek c++-ban? Vagy nem tudná nekem valaki elkezdeni az elejét?

nem tudod megcsinálni hasonló módin mint ahogy ez van?

csak c++-ba:

Module Module1

Dim kód() As Integer = {2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 9, 9, 9, 9}

Dim szavak(600) As String 'A beolvasott szavakat tartalmazó tömb, 1-től számozzuk

Dim n As Integer 'A beolvasott szavak száma

Dim kódok(600) As String 'Ebbe kerülnek a kódjaik

Sub Main()

Feladat1()

Feladat2()

Feladat3()

Feladat4()

Feladat5()

Feladat6()

Feladat7()

Feladat8()

Feladat9()

Console.ReadLine()

End Sub

Sub Feladat1()

Console.Write("Adjon meg egy betűt= ")

Dim betű = Console.ReadLine()

Console.WriteLine("Kódja= " & kód(AscW(betű) - 97))

Console.WriteLine()

End Sub

Sub Feladat2()

Console.Write("Adjon meg egy szót= ")

Dim szó = Console.ReadLine()

Console.Write("Kódja= ")

For i As Integer = 0 To szó.Length - 1

Console.Write(kód(AscW(szó(i)) - 97))

Next

Console.WriteLine()

Console.WriteLine()

End Sub

Sub Feladat3()

Dim fájl As IO.FileStream = New IO.FileStream("..\..\szavak.txt", IO.FileMode.Open)

Dim olvasó As IO.StreamReader = New IO.StreamReader(fájl)

n = 0

While (olvasó.Peek > -1)

n += 1

szavak(n) = olvasó.ReadLine

End While

fájl.Close()

End Sub

Sub Feladat4()

Dim max, maxh As Integer

max = szavak(1).Length

maxh = 1

For i As Integer = 2 To n

If szavak(i).Length > max Then

max = szavak(i).Length

maxh = i

End If

Next

Console.WriteLine("A leghosszabb szó= " & szavak(maxh) & ", hossza= " & max)

Console.WriteLine()

End Sub

Sub Feladat5()

Dim s As Integer = 0

For i As Integer = 1 To n

If szavak(i).Length < 6 Then

s += 1

End If

Next

Console.WriteLine("A legfeljebb 5 karakter hosszú szavak száma = " & s)

Console.WriteLine()

End Sub

str = str & kód(AscW(szavak(i).Chars(j)) - 97)

Mi lenen az a "Chars" a végén?