Гласные и согласные буквы в днях недели

  • Автор темы Nissan
  • Дата начала
N

Nissan

#1
На основе ниже приведенной программы заполнить массив днями недели в FoxPro. При выводе на экран должно отображаться какую первую букву имеет день недели (гласную или согласную). Учесть изменение названия дней недели, например чтобы при удалении некоторых букв в названии дня недели программа определяла с какой буквы начинается название (гласной или согласной). Помогите пожалуйста, у меня вообще не получается это сделать.
Код:
 CLEAR
LOCAL lnI, laArr1[8], laArr2[1]
laArr1[1]=1187
laArr1[2]=25
laArr1[3]=563
laArr1[4]=487
laArr1[5]=7595
laArr1[6]=846
laArr1[7]=47
laArr1[8]=958
FOR lnI=1 TO ALEN(laArr1)
DIMENSION laArr2[lnI,2]
laArr2[lnI,1]=laArr1[lnI]
IF !ROUND(laArr1[lnI]/2,0)*2-laArr1[lnI]==0&&nechetn
laArr2[1]="nechetn"
?laArr2[1]
ELSE
laArr2[1]="Chetn"
?laArr2[1]
ENDIF 
ENDFOR
RETURN
Вот примерно какая программа должна выйти, но я не знаю как тут сделать чтобы была проверка при изменении названия дня недели, ну если он скажем при изменении на гласную будет начинаться то чтобы выводилось на экран что это начинается на гласную букву, а если согласная то так и остается.
Код:
CLEAR
LOCAL lnI, laArr1[7], laArr2[1]
laArr1[1]='Ponedelnic'
laArr1[2]='Vtornic'
laArr1[3]='Sreda'
laArr1[4]='Chetverg'
laArr1[5]='Pyatnica'
laArr1[6]='Subota'
laArr1[7]='Voskresenje'
FOR lnI=1 TO ALEN(laArr1)
DIMENSION laArr2[lnI,2]
laArr2[lnI,1]=laArr1[lnI]
IF laArr1[lnI]=laArr1[1]
laArr2[1]="Soglasnye"
?laArr2[1]
ENDIF
IF laArr1[lnI]=laArr1[2]
laArr2[1]="Soglasnye"
?laArr2[1]
ENDIF
IF laArr1[lnI]=laArr1[3]
laArr2[1]="Soglasnye"
?laArr2[1]
ENDIF
IF laArr1[lnI]=laArr1[4]
laArr2[1]="Soglasnye"
?laArr2[1]
ENDIF
IF laArr1[lnI]=laArr1[5]
laArr2[1]="Soglasnye"
?laArr2[1]
ENDIF
IF laArr1[lnI]=laArr1[6]
laArr2[1]="Soglasnye"
?laArr2[1]
ENDIF
IF laArr1[lnI]=laArr1[7]
laArr2[1]="Soglasnye"
?laArr2[1]
ENDIF
ENDFOR
RETURN