Консультация № 144196
17.09.2008, 16:40
0.00 руб.
0 2 1
помогите (завершить) программу-определить по номеру месяца его название,ВМЕСТО ТОЧЕК ПОДСТАВИТЬ НУЖНЫЕ ЭЛЕМЕНТЫ
CLS
dim A$(....)
FOR I= 1 TO ....
READ ....
NEXT I...
INPUT "НОМЕР МЕСЯЦА" ; I
? A$(....)
END
DATA ЯНВАРЬ,ФЕВРАЛЬ,МАРТ

Обсуждение

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

Дао ведь всего три месяца, зачем лишнее...
Форма ответа