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

(499) 940-40-00 подключение
(499) 940-00-00 служба поддержки

Помощь с QBasic


Сообщений в теме: 24

#1 Foxxi


  • Гости
Offline

Отправлено 16 декабря 2010 - 13:15

Кто шарит и разбирается прошу помощи ;)
Есть 2 задания , нужно написать 2 программы в QBasic , а я в нём не бум-бум =(
1я Дан массив из 15 чисел. Найти сумму чисел массива , начиная с первого числа , равного 4.
2я В заданном номере телефона выделить 4ю и 5ю цифры , умножить полученные числа на 2 и внести результат. Телефов вводится в виде (3 цифры , тире , 2 цифры , тире , 2 цифры)
help :biggrin:

#2 OPCSenator

    Маленькое лошадко


  • Пользователи
  • 1 267 сообщений
5
Offline

Отправлено 16 декабря 2010 - 13:42

Допиши в первом посте, что ты клевая девченка с третьим размером сисек. и фотку какую нить (только не очень палевную) из интернета привесь.
так быстрее будет.

#3 Foxxi


  • Гости
Offline

Отправлено 16 декабря 2010 - 13:49

Просмотр сообщенияOPCSenator (Dec 16 2010, 13:41) писал:

Допиши в первом посте, что ты клевая девченка с третьим размером сисек. и фотку какую нить (только не очень палевную) из интернета привесь.
так быстрее будет.
яхз причём тут девчёнка , не понял юмора =(

#4 lojer

    Новичок


  • Пользователи
  • 39 сообщений
5
Offline

Отправлено 16 декабря 2010 - 13:52

Просмотр сообщенияFoxxi (Dec 16 2010, 13:48) писал:

яхз причём тут девчёнка , не понял юмора =(

Увидев бы Класную девочку... вместе с прозьбой помочь .. ОТкликнулись бы раза в два быстрее ..а так Жди и надейся)

Цитата

in boobs we trast (с) insane
...не в сиськах счастье.
Без них его тем более не будет..

#5 Ondey

    Многознающий


  • Пользователи
  • 1 234 сообщений
22
Offline

Отправлено 16 декабря 2010 - 13:53

Просмотр сообщенияFoxxi (Dec 16 2010, 13:48) писал:

яхз причём тут девчёнка , не понял юмора =(
Мой тебе совет: РАСКОЛИСЬ!

Номер договора 60002533


#6 LoveFoxy

    Новичок


  • Пользователи
  • 33 сообщений
0
Offline

Отправлено 16 декабря 2010 - 13:56

о старый акк свой запилил :D Всёравно жду и надеюсь на помощь =(

#7 Pechen

    Дух форума


  • Пользователи
  • 4 831 сообщений
70
Offline

Отправлено 16 декабря 2010 - 18:12

http://www.google.ru/search?hl=ru&sour...q=&gs_rfai=

Если ничто другое не помогает, прочтите, наконец, инструкцию.
Создайте еще более понятный интерфейс и мир создаст еще более тупого юзера.
Британские учёные доказали: 95% населения Земли идиоты.


#8 Шведка

    Quod licet Jovi, nоn licet bovi


  • Пользователи
  • 1 222 сообщений
54
Offline

Отправлено 16 декабря 2010 - 18:14

жуть какая этот QBasic
:wacko:

в школе им мучали..я их задания тоже не понимала вооообще)

#9 OPCSenator

    Маленькое лошадко


  • Пользователи
  • 1 267 сообщений
5
Offline

Отправлено 16 декабря 2010 - 21:26

Просмотр сообщенияlojer (Dec 16 2010, 13:51) писал:

Увидев бы Класную девочку... вместе с прозьбой помочь .. ОТкликнулись бы раза в два быстрее ..а так Жди и надейся)
вот именно...
написать эти программки - дело нескольких минут (для меня например, причем большая часть времени уйдет на вспоминание синтаксиса), но вот ради очередного раздолбая я, как и многие, даже пальцем не пошевелю :) а были бы тут сиськи - кто знает ;)

Сообщение отредактировал OPCSenator: 16 декабря 2010 - 21:27


#10 Шведка

    Quod licet Jovi, nоn licet bovi


  • Пользователи
  • 1 222 сообщений
54
Offline

Отправлено 16 декабря 2010 - 21:34

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

#11 Pechen

    Дух форума


  • Пользователи
  • 4 831 сообщений
70
Offline

Отправлено 16 декабря 2010 - 21:37

помощь и делание за него - разные вещи ;)

Если ничто другое не помогает, прочтите, наконец, инструкцию.
Создайте еще более понятный интерфейс и мир создаст еще более тупого юзера.
Британские учёные доказали: 95% населения Земли идиоты.


#12 LoveFoxy

    Новичок


  • Пользователи
  • 33 сообщений
0
Offline

Отправлено 16 декабря 2010 - 21:54

Просмотр сообщенияPechen (Dec 16 2010, 21:36) писал:

помощь и делание за него - разные вещи ;)
разобрался сам , но вообще если ты в этом шаришь и для тебя это дело 5 минут , то можно хотябы дать наводку как лучше сделать , а не сидеть и рассуждать , а если сам не бум-бум , то не стоит писать посты в пустоту.

Добавлено через 3 мин.:

Просмотр сообщенияOPCSenator (Dec 16 2010, 21:25) писал:

вот именно...
написать эти программки - дело нескольких минут (для меня например, причем большая часть времени уйдет на вспоминание синтаксиса), но вот ради очередного раздолбая я, как и многие, даже пальцем не пошевелю :) а были бы тут сиськи - кто знает :)
не знаю о каком раздолбайстве идёт речь , ни когда не думал что на 2м курсе эконом.упр. факультета будет QBasic и просто не понимаю его ,имея все лекции на руках. Так что не стоит судить по себе.

Добавлено через 4 мин.:
OPCSenator , хотя может вы из того типа людей которые при виде на улице человека которому плохо , просто пройдут мимо ? Тогда , разговор не стоит продолжать.

#13 LoveFoxy

    Новичок


  • Пользователи
  • 33 сообщений
0
Offline

Отправлено 16 декабря 2010 - 21:57

Просмотр сообщенияШведка (Dec 16 2010, 21:55) писал:

ПОМОГИТЕ ЕМУ С КУБЭСИКОМ!!!
:DDD Спасибо огромное , но уже сам всё сделал , далось мне с трудом конечно , но всё же :>

#14 Шведка

    Quod licet Jovi, nоn licet bovi


  • Пользователи
  • 1 222 сообщений
54
Offline

Отправлено 16 декабря 2010 - 21:58

нет уж!!!!
пусть теперь OPCSenator выложит здесь решение!))))))))


НОВЫЙ ГОД МЕЧТЫ СБУДУТСЯ ;)

#15 LoveFoxy

    Новичок


  • Пользователи
  • 33 сообщений
0
Offline

Отправлено 16 декабря 2010 - 22:01

CLS
n = 15
DIM a(n)
FOR i = 1 TO n
PRINT "vvedite element"; i
INPUT a(i)
NEXT
FOR i = 1 TO n
IF a(i) = 4 OR s <> 0 THEN s = s + a(i)
NEXT
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
PRINT "summa:"; s

мб кому поможет , это к массиву.

#16 Д' Артаньян

    ɹǝрoolɟ lɐıɔıɟɟo


  • Модераторы
  • 2 988 сообщений
562
Offline

Отправлено 16 декабря 2010 - 22:02

Просмотр сообщенияШведка (16th December 2010 - 21:55) писал:

ПОМОГИТЕ ЕМУ С КУБЭСИКОМ!!!

Сообщение отредактировал Шведка - 4 минут назад
Прикрепленные изображения
Прикрепленное изображение

Ух ты ... автопортрет?
Лучшее бесплатное облачное хранилище файлов Dropbox

#17 LoveFoxy

    Новичок


  • Пользователи
  • 33 сообщений
0
Offline

Отправлено 16 декабря 2010 - 22:08

на сиськи сразу налетели =(

#18 Д' Артаньян

    ɹǝрoolɟ lɐıɔıɟɟo


  • Модераторы
  • 2 988 сообщений
562
Offline

Отправлено 16 декабря 2010 - 22:28

Просмотр сообщенияLoveFoxy (16th December 2010 - 22:07) писал:

на сиськи сразу налетели =(

Учись, студент ... ;)
Лучшее бесплатное облачное хранилище файлов Dropbox

#19 Шведка

    Quod licet Jovi, nоn licet bovi


  • Пользователи
  • 1 222 сообщений
54
Offline

Отправлено 16 декабря 2010 - 23:04

Просмотр сообщенияHUJAKKALA (Dec 16 2010, 22:01) писал:

Ух ты ... автопортрет?

канеееешно) события от первого лица))))

#20 OPCSenator

    Маленькое лошадко


  • Пользователи
  • 1 267 сообщений
5
Offline

Отправлено 16 декабря 2010 - 23:11

Просмотр сообщенияШведка (Dec 16 2010, 21:55) писал:

ПОМОГИТЕ ЕМУ С КУБЭСИКОМ!!!
!!! вот так бы сразу!!!
1я Дан массив из 15 чисел. Найти сумму чисел массива , начиная с первого числа , равного 4.
2я В заданном номере телефона выделить 4ю и 5ю цифры , умножить полученные числа на 2 и внести результат. Телефов вводится в виде (3 цифры , тире , 2 цифры , тире , 2 цифры)
1 cls
2 n = 10
3 dim a(n)
4 print "введите массиву"
5 for i = 1 to n
6 print "введите элемент";i
7 input a(i)
8 next i
9 f = 0
10 for i = 1 to n
11 if a(i) = 4 then f=1
12 if f=1 then s = s + a(i)
13 next i
14 for i = 1 to n
15 print "елементы массива = ";a(i)
16 next i
17 print
18 print "сумма = ";s

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

1 cls
2 print "введите номер телефона в формате ххх-хх-хх"
3 input tel$
4 if (LEN(tel$) <> 9 or mid$(tel$,4,1) <> "-" or mid$(tel$,7,1) <> "-") then goto 14
5 a$ = mid$(tel$,5,1)
6 b$ = mid$(tel$,6,1)
7 c = val(a$)
8 d = val(b$)
9 c = c*2
10 d = d*2
11 print "четверая цифра умножить на 2 =";c
12 print "пятая цифра умножить на 2 =";d
13 goto 15
14 print "штота ввели ниправильна"
15 print "конец"

на счет 7 и 8 строк не уверен т.к. нет эмулятора :)

Сообщение отредактировал OPCSenator: 16 декабря 2010 - 23:16






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

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