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


- - - - -

Помогите с заданием QBASIC


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

#1 termj

termj

    Новичок

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

Отправлено 26 Апрель 2010 - 20:20

1. Даны три фамилии. Определить начинающиеся с гласной буквы. Сделать соответствующее сообщение.
2. Дан массив k1,k2,k3...k10
Решить: + Нужен Блок - Схема.

-----10
Ci = Σ (ki=2)/sqr(|1ki|)    
-----c = i

3. И вот еще задание вроде бы сделал, но педагог говорит что-то не то...

cls
input "Введите А",а
input "Введите b",b
if (a+B )^2 = 0 then print "Нет решения для n1": goto 10
if 1.5*a*b = 0 then print "Нет решения для n2 ": goto 10
N1 = a-b/(a+B )^2
N2 = sqr(a^2+b^2)/1.5*a*b
N3 = sinN1+ N2
print "N1=",n1,"N2=",n2,"N3=",n3.
end

(А нужно сделать так, чтобы если не рассчитывало N1, переходило к N2...и N3)  
Прости за неграмотность, но я только учусь!

Сообщение отредактировал termj: 26 Апрель 2010 - 20:23


#2 pahan

pahan

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

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

Отправлено 27 Апрель 2010 - 10:34

3) Если N1 рассчитывается, нужно ли считать N2,3? Если да:
cls
input "Введите А",а
input "Введите b",b
if (a+B )^2 = 0 then print "Нет решения для n1": goto 70
N1 = a-b/(a+B )^2
print "N1=",n1
70: if 1.5*a*b = 0 then print "Нет решения для n2 ": goto 10
N2 = sqr(a^2+b^2)/1.5*a*b
N3 = sinN1+ N2
print "N2=",n2,"N3=",n3.
end

2) Что за формула-то? сложить от 1 до 10 числа (ki=2)/sqr(|1ki|)
                                                                         может Ki-2 ??? и что за х---я под модулем?

1)
Dim Surn(3)
input "Введите первую фамилию",Surn(1)$
input "Введите вторую фамилию",Surn(2)$
input "Введите третью фамилию",Surn(3)$
for i=1 to 3
Str$=Surn(i)
if mid(Str$,1,1)='А' or mid(Str$,1,1)='Е' or mid(Str$,1,1)='И' or mid(Str$,1,1)='О' or mid(Str$,1,1)='У' or mid(Str$,1,1)='Э' or mid(Str$,1,1)='Ю' or mid(Str$,1,1)='Я' then print "Фамилия ",Str$," начинается с гласной буквы"
next i

#3 termj

termj

    Новичок

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

Отправлено 27 Апрель 2010 - 18:39

Спасибо огромное помогло разобрался, а вот с 1 qbasic ругается, что-то не так с $ который стоит рядом с surn(~)

#4 termj

termj

    Новичок

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

Отправлено 27 Апрель 2010 - 19:48

-----10
Ci = Σ (ki+2)/sqr(|1ki|)
-----c = i

#5 pahan

pahan

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

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

Отправлено 28 Апрель 2010 - 09:11

Цитата

что-то не так с $ который стоит рядом с surn(~)
А выкинь его, может заработает :-) я ж по памяти пишу.

Ну хорошо, а что значит 1ki ????
и сумма начинается от c = i ??? т.е. i должно вводиться и быть <= 10 ???

#6 Baltika80

Baltika80

    Втянувшийся

  • Members
  • PipPipPip
  • 182 сообщений
  • Пол:Мужчина

Отправлено 28 Апрель 2010 - 09:13

Как бездарно потрачено было моё время на изучение этого полумёртвого языка.
Дома лежит книжка по QBasic 4.5 Давно пора выбросить но никак руки не доходят.

Сообщение отредактировал Baltika80: 28 Апрель 2010 - 09:15


#7 pahan

pahan

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

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

Отправлено 28 Апрель 2010 - 09:32

Я с него начинал 11 лет назад :-)
автор из какой школы? :-)

#8 termj

termj

    Новичок

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

Отправлено 29 Апрель 2010 - 18:59

Автор из Техникума) ;)

#9 termj

termj

    Новичок

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

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

1. Даны три фамилии. Определить начинающиеся с гласной буквы. Сделать соответствующее сообщение.
Напечатайте пожалуйсто код для qbasic)




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

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