Вопрос № 144196: помогите (завершить) программу-определить по номеру месяца его название,ВМЕСТО ТОЧЕК ПОДСТАВИТЬ НУЖНЫЕ ЭЛЕМЕНТЫ CLS dim A$(....) FOR I= 1 TO .... READ .... NEXT I... INPUT "НОМЕР МЕСЯЦА" ; I ? A$(....) END DATA ...
Вопрос № 144.196
помогите (завершить) программу-определить по номеру месяца его название,ВМЕСТО ТОЧЕК ПОДСТАВИТЬ НУЖНЫЕ ЭЛЕМЕНТЫ CLS dim A$(....) FOR I= 1 TO .... READ .... NEXT I... INPUT "НОМЕР МЕСЯЦА" ; I ? A$(....) END DATA ЯНВАРЬ,ФЕВРАЛЬ,МАРТ
Отвечает: xackera
Здравствуйте, Андреев Павел Александрович! Решается задача так: CLS dim A$(12) FOR I= 1 TO 12 READ A$(i) NEXT I INPUT "НОМЕР МЕСЯЦА" ; I rem здесь необходимо поставить защиту от "дурака", то есть проверку на валидность введёной информации - надеюсь пропишите сами ;) ? A$(I) END DATA ЯНВАРЬ,ФЕВРАЛЬ,МАРТ rem заполнить необходимо все месяцы, то есть в Data должно бтыь 12 элементов.
--------- Больше быть, чем казаться! Много делать, но мало выделяться
Ответ отправил: xackera (статус: 9-ый класс)
Ответ отправлен: 18.09.2008, 09:05 Оценка за ответ: 4