Гласные или согласные ? / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Гласные или согласные ?

4 сообщений из 4, страница 1 из 1

Гласные или согласные ?

#36952845

Nissan

Гость

На основе ниже приведенной программы заполнить массив днями недели в FoxPro. При выводе на экран должно отображаться какую первую букву имеет день недели (гласную или согласную). Учесть изменение названия дней недели, например чтобы при удалении некоторых букв в названии дня недели программа определяла с какой буквы начинается название (гласной или согласной). Помогите пожалуйста, у меня вообще не получается это сделать.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

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

...

Рейтинг:

0 / 0

12.11.2010, 21:49

| Ответить | Цитировать | Написать

Гласные или согласные ?

#36952930

Nissan

Гость

Вот примерная программа которая должна выйти, но я не знаю как сделать так чтобы при изменении дней недели на гласную букву в начале она выводил в качестве результата гласную. Помогите пожалуйста.

...

Рейтинг:

0 / 0

12.11.2010, 22:23

| Ответить | Цитировать | Написать

Гласные или согласные ?

#36952932

Nissan

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.

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

...

Рейтинг:

0 / 0

12.11.2010, 22:24

| Ответить | Цитировать | Написать

Гласные или согласные ?

#36953046

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Вы, вообще-то, сравниваете "тёплое с мягким".
Первая программа выполняет проверку на четность-нечетность числовых значений, для чего есть известный признак - делимость на 2 (хотя в приведенном примере вычисление производится через ж..., да плюс еще и вырвано из контекста (это я по поводу laArr2[] и DIME внутри цикла)). В-принципе, для решения первоначальной задачи достаточно такого кода:

Код: plaintext

1.
2.

for lnI= 1  to alen(laArr1)
	?iif(mod(laArr1[lnI], 2 )= 0 ,"Chetn","nechetn")
endfor

У вас же другая задача, хотя бы потому, что у вас и тип данных - символьный, и признак "гласная-согласная" зависит уже от особенностей языка (человеческого). Так что алгоритм, хоть в общих чертах и подобен, но требует бОльшего количества исходных данных (например, еще соответствия буквы алфавита и (со)гласности).

Кроме того, вы хорошо подумали? ИМХО, при заданных условиях:

Код: plaintext

1.
2.
3.
4.
5.
6.

NmDays[ 1 ]='Понедельник' && Monday , Ponedelnic
NmDays[ 2 ]='Вторник' && Tuesday , Vtornic
NmDays[ 3 ]='Среда' && Wednesday , Sreda
NmDays[ 4 ]='Четверг' && Thursday , Chetverg
NmDays[ 5 ]='Пятница' && Friday , Pyatnica
NmDays[ 6 ]='Суббота' && Saturday , Subbota
NmDays[ 7 ]='Воскресенье' &&Sunday , Voskresenje

решением будет:

Код: plaintext

1.
2.

for i= 1  to  7 
    ?"Согласная"
endfor

поскольку нигде название дня недели не начинается на гласную...

Ваше же "Учесть изменение названия дней недели, например чтобы при удалении некоторых букв в названии дня недели программа определяла с какой буквы начинается название (гласной или согласной)." ни о чём не говорит, поскольку неясен вообще принцип "удаления" "этих самых букофф".

...

Рейтинг:

0 / 0

12.11.2010, 23:51

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Гласные или согласные ?

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&fpage=86&tid=1584807]:	0ms
get settings:	12ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	30ms
get topic data:	11ms
get forum data:	3ms
get page messages:	42ms
get tp. blocked users:	2ms
others:	16ms

total:	135ms