Помощь с QBasic
#1 Foxxi
Отправлено 16 декабря 2010 - 13:15
Есть 2 задания , нужно написать 2 программы в QBasic , а я в нём не бум-бум =(
1я Дан массив из 15 чисел. Найти сумму чисел массива , начиная с первого числа , равного 4.
2я В заданном номере телефона выделить 4ю и 5ю цифры , умножить полученные числа на 2 и внести результат. Телефов вводится в виде (3 цифры , тире , 2 цифры , тире , 2 цифры)
help
#2
Отправлено 16 декабря 2010 - 13:42
так быстрее будет.
#3 Foxxi
#4
Отправлено 16 декабря 2010 - 13:52
Foxxi (Dec 16 2010, 13:48) писал:
Увидев бы Класную девочку... вместе с прозьбой помочь .. ОТкликнулись бы раза в два быстрее ..а так Жди и надейся)
Цитата
...не в сиськах счастье.
#6
Отправлено 16 декабря 2010 - 13:56
#7
Отправлено 16 декабря 2010 - 18:12
Если ничто другое не помогает, прочтите, наконец, инструкцию.
Создайте еще более понятный интерфейс и мир создаст еще более тупого юзера.
Британские учёные доказали: 95% населения Земли идиоты.
#8
Отправлено 16 декабря 2010 - 18:14
в школе им мучали..я их задания тоже не понимала вооообще)
#9
Отправлено 16 декабря 2010 - 21:26
lojer (Dec 16 2010, 13:51) писал:
написать эти программки - дело нескольких минут (для меня например, причем большая часть времени уйдет на вспоминание синтаксиса), но вот ради очередного раздолбая я, как и многие, даже пальцем не пошевелю а были бы тут сиськи - кто знает
Сообщение отредактировал OPCSenator: 16 декабря 2010 - 21:27
#10
Отправлено 16 декабря 2010 - 21:34
ну, а как же предновогоднее настроение... чудеса сбудутся?
побудь дедом морозом, помоги человеку!
#11
Отправлено 16 декабря 2010 - 21:37
Если ничто другое не помогает, прочтите, наконец, инструкцию.
Создайте еще более понятный интерфейс и мир создаст еще более тупого юзера.
Британские учёные доказали: 95% населения Земли идиоты.
#12
Отправлено 16 декабря 2010 - 21:54
Pechen (Dec 16 2010, 21:36) писал:
Добавлено через 3 мин.:
OPCSenator (Dec 16 2010, 21:25) писал:
написать эти программки - дело нескольких минут (для меня например, причем большая часть времени уйдет на вспоминание синтаксиса), но вот ради очередного раздолбая я, как и многие, даже пальцем не пошевелю а были бы тут сиськи - кто знает
Добавлено через 4 мин.:
OPCSenator , хотя может вы из того типа людей которые при виде на улице человека которому плохо , просто пройдут мимо ? Тогда , разговор не стоит продолжать.
#14
Отправлено 16 декабря 2010 - 21:58
пусть теперь OPCSenator выложит здесь решение!))))))))
НОВЫЙ ГОД МЕЧТЫ СБУДУТСЯ
#15
Отправлено 16 декабря 2010 - 22:01
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 "summa:"; s
мб кому поможет , это к массиву.
#17
Отправлено 16 декабря 2010 - 22:08
#20
Отправлено 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 анонимных