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

Тема в разделе "SQL", создана пользователем Nissan, 12 ноя 2010.

  1. Nissan

    Nissan Гость

    На основе ниже приведенной программы заполнить массив днями недели в FoxPro. При выводе на экран должно отображаться какую первую букву имеет день недели (гласную или согласную). Учесть изменение названия дней недели, например чтобы при удалении некоторых букв в названии дня недели программа определяла с какой буквы начинается название (гласной или согласной). Помогите пожалуйста, у меня вообще не получается это сделать.
    Код (Text):
     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
    Вот примерно какая программа должна выйти, но я не знаю как тут сделать чтобы была проверка при изменении названия дня недели, ну если он скажем при изменении на гласную будет начинаться то чтобы выводилось на экран что это начинается на гласную букву, а если согласная то так и остается.
    Код (Text):
    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
     

Поделиться этой страницей