1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

  1. Nissan

    Nissan Гость

    Репутация:
    0
    На основе ниже приведенной программы заполнить массив днями недели в 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
     

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