Перейти к содержимому


- - - - -

Задание с фамилиями.(срочно!)


  • Авторизуйтесь для ответа в теме
В теме одно сообщение

#1 termj

termj

    Новичок

  • Members
  • Pip
  • 6 сообщений

Отправлено 30 Май 2010 - 17:28

cls
input "Vvedite familiu 1"; s1$
input "Vvedite familiu 2"; s2$
input "Vvedite familiu 3"; s3$
if mid$(s1$,1,1) = "A" THEN 10
if mid$(s2$,1,1) = "A" THEN 20
if mid$(s3$,1,1) = "A" THEN 30
PRINT "nET SLOV S GLASNOI BYKVOI"
10 print "Familia1 - ",s1$
20 print "Familia2 - ",s2$
30 print "Familia3 - ",s3$
40 end


Простите не опытно написал, но не могли бы помочь правильно переписать, и найти ошибки т.к. заместо "А" нужно вставить все гласные...
Много форумов облазил но никак не найду. :lol:  Помогите кому не лень)

Сообщение отредактировал termj: 30 Май 2010 - 18:09


#2 pahan

pahan

    Живёт на форуме

  • Validating
  • PipPipPipPipPipPipPip
  • 1 061 сообщений
  • Пол:Мужчина
  • Город:Из Дикого Леса...

Отправлено 31 Май 2010 - 09:03

Простейший способ
mid$(s1$,1,1) = "A" or mid$(s1$,1,1) = "Е" or ... (и так далее по всем интересующим буквам)
Ну или писать 1000 раз :-)
if mid$(s1$,1,1) = "A" THEN 10
if mid$(s1$,1,1) = "Е" THEN 10
if mid$(s1$,1,1) = "И" THEN 10
...




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных