Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 06.12.2011, 19:04   #1 (permalink)
nutka
Новичок
 
Регистрация: 30.11.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Символьные выражения в QBASIC

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

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

Решите!!! срочно!!!!
nutka вне форума   Ответить с цитированием

Старый 06.12.2011, 19:04
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Данные топики имеют сходства с вашим, рекомендую прочитать

Выражения технарей
QBasic, массивы
Графика в QBasic
QBasic для Windows Mobile 5 КПК
Пять задач на QBasic
Вывести на экран результат вычисления выражения

Старый 06.12.2011, 23:44   #2 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

возможно так? такое в вижуал бэйсике...
Код:
Dim myString As String = "Олег" Dim myChar As Char
myChar = myString.Chars(0)
kreol вне форума   Ответить с цитированием
Старый 07.12.2011, 00:22   #3 (permalink)
Ultras
Member
 
Аватар для Ultras
 
Регистрация: 17.05.2010
Адрес: Казань
Сообщений: 6,044
Записей в дневнике: 13
Сказал(а) спасибо: 42
Поблагодарили 2 раз(а) в 1 сообщении
Репутация: 30182
По умолчанию

А я Вам уже отвечал - Помогите, пожалуйста, решить задачу в qbasic
А по поводу
Цитата:
Сообщение от nutka Посмотреть сообщение
программа работает неправильно. печатается на экране 0
та к я не поленился, достал из запасников QBASIC и скопипастил в него предложенный мной текст программы. Работает, однако...
02.png
Ultras вне форума   Ответить с цитированием
Старый 07.12.2011, 20:38   #4 (permalink)
nutka
Новичок
 
Регистрация: 30.11.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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


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


DATA "Олег", "увидел", "вокруг", "31", и так далее
FOR a% = 0 TO 11
READ a$
PRINT LEFT$ (a$, 1)
NEXT
END
nutka вне форума   Ответить с цитированием
Старый 07.12.2011, 21:03   #5 (permalink)
Ultras
Member
 
Аватар для Ultras
 
Регистрация: 17.05.2010
Адрес: Казань
Сообщений: 6,044
Записей в дневнике: 13
Сказал(а) спасибо: 42
Поблагодарили 2 раз(а) в 1 сообщении
Репутация: 30182
По умолчанию

А Вы прямо так и вводите -
Цитата:
Сообщение от nutka Посмотреть сообщение
... "31", и так далее
???
Ultras вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 08.12.2011, 08:07   #6 (permalink)
nutka
Новичок
 
Регистрация: 30.11.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

нет. учитель сказал, что эта программа короткая
nutka вне форума   Ответить с цитированием
Старый 08.12.2011, 22:44   #7 (permalink)
Ultras
Member
 
Аватар для Ultras
 
Регистрация: 17.05.2010
Адрес: Казань
Сообщений: 6,044
Записей в дневнике: 13
Сказал(а) спасибо: 42
Поблагодарили 2 раз(а) в 1 сообщении
Репутация: 30182
По умолчанию

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 15:37.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.