Kérj be két betűt! Illeszd őket össze, az eredményt írasd ki!

Fortran program futtatása:

> ./f.sh ketkarakter

a=?, b=?

a
b

c=ab

Forráskód:

      program ketkarakter
      character*1 a, b ! egybetus valtozok
      character*2 c ! ketbetus valtozo
      write(*,*) 'a=?, b=?'
      read(*,*) a, b ! beolvasunk ket valtozot
      c = a//b ! erteket adunk a harmadik valtozonak
      write(*,*) 'c=', c
      stop
      end

Exceles megoldás:

VBA kód:

Sub KarakterIllesztes()
Dim a, b, c As String
a = InputBox("Irj be egy betut")
b = InputBox("irj be meg egy betut")
c = a & b ' betuk osszeillesztese
MsgBox (c) ' eredmeny kiiratasa uzenetkent
Cells(1, 1) = a
Cells(1, 2) = b
Cells(1, 3) = c ' eredmeny kiiratasa a cellakba
End Sub

Szerző: MacGyver
Létrehozás: 2012-07-14