Символьные выражения в QBASIC

[nutka]

Символьные выражения в QBASIC

помогите, пожалуйста, решить задачу!!! ОЧЕНЬ СРОЧНО И НУЖНО!!! и главное, чтобы правильно.

дана последовательность из 12-ти символьных выражений, содержащих цифры или русские буквы, например, DATA "Олег", "увидел", "вокруг", "31", "школы", 5спортивных", "площадок", "яблоневый", "сад", "и", "огромный", "стадион".
Вывести первый знак от каждого выражения.

Решите!!! срочно!!!!

 

[kreol]

возможно так? такое в вижуал бэйсике...

[COLOR=Blue]Dim[/COLOR] myString [COLOR=Blue]As[/COLOR] [COLOR=Blue]String[/COLOR] = [COLOR=#A31515]"[/COLOR]Олег[COLOR=#A31515]"[/COLOR] [COLOR=Blue]Dim[/COLOR] myChar [COLOR=Blue]As[/COLOR] [COLOR=Blue]Char[/COLOR][COLOR=Green]
[/COLOR]myChar = myString.Chars(0)

 

[Ultras]

А я Вам уже отвечал - http://www.tehnari.ru/f127/t60535/#post626336
А по поводу

программа работает неправильно. печатается на экране 0

та к я не поленился, достал из запасников QBASIC и скопипастил в него предложенный мной текст программы. Работает, однако...

 

[nutka]

та к я не поленился, достал из запасников QBASIC и скопипастил в него предложенный мной текст программы. Работает, однако...


я ввожу программу, которую вы мне напечатали. она не работает!!!


DATA "Олег", "увидел", "вокруг", "31", и так далее
FOR a% = 0 TO 11
READ a$
PRINT LEFT$ (a$, 1)
NEXT
END

 

[Ultras]

А Вы прямо так и вводите -

... "31", и так далее

???

 

[nutka]

нет. учитель сказал, что эта программа короткая

 

[Ultras]

нет. учитель сказал, что эта программа короткая

То есть это теперь плохо?! Слов нет. Ну, впихните туда томик "Войны и Мира". Учитель будет счастлив.
Ошибку у себя нашли? Ищите - Посмотреть вложение bas.zip
Это то же самое, что я давал, только с полностью заполненным оператором DATA. И это работает.