Найти количество элементов массива после последнего элемента равного 17

@Kiro4ka · Регистрация: 24.12.2010

Студворк — интернет-сервис помощи студентам

1.Дан Массив из 12 элементов ,Найти кол-во элементов массива после последнего элемента равного 17
2.подсчитать количество шипящих букв в слове

@softmob · 25.12.2010, 20:42

1)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
RANDOMIZE TIMER
n = 12
DIM a(n)
FOR i = 1 TO n: a(i) = FIX(RND * 35): NEXT
FOR i = 1 TO n
    IF f = 1 THEN k = k + 1
    IF a(i) = 17 XOR f = 1 THEN f = 1 ELSE k = 0
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT k

@кот Бегемот · 25.12.2010, 22:57

Сообщение от softmob

1)

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
RANDOMIZE TIMER
n = 12
DIM a(n)
FOR i = 1 TO n: a(i) = FIX(RND * 35): NEXT
FOR i = 1 TO n
    IF f = 1 THEN k = k + 1
    IF a(i) = 17 XOR f = 1 THEN f = 1 ELSE k = 0
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT k

ужас какой-то

PureBasic
1
2
3
4
5
6
7
8
RANDOMIZE TIMER
input n
DIM a(n)
FOR i = 1 TO n: a(i) = FIX(RND * 35): NEXT
FOR i = 1 TO n
     IF a(i) = 17  THEN k=i
next
print n-k+1

@softmob · 26.12.2010, 08:39

Сообщение от кот Бегемот

ужас какой-то

PureBasic
1
2
3
4
5
6
7
8
RANDOMIZE TIMER
input n
DIM a(n)
FOR i = 1 TO n: a(i) = FIX(RND * 35): NEXT
FOR i = 1 TO n
     IF a(i) = 17  THEN k=i
next
print n-k+1

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

@Shkap · 26.12.2010, 15:20

Сообщение от softmob

в твоей считается элементы включая 17, а надо после последнего элемента равного 17.

а он и будет с последнего

Сообщение от softmob

и если нет элементов равных 17 выдаст в ответ n+1.

случайная ошибка

Не по теме:

кб рад что ты опять появляешся

@softmob · 26.12.2010, 17:56

Сообщение от Shkap

а он и будет с последнего

посмотри внимательнее задание.

Сообщение от Kiro4ka

Найти кол-во элементов массива после последнего элемента равного 17

@Shkap · 26.12.2010, 18:33

Сообщение от softmob

посмотри внимательнее задание.

посмотрел. проверь прогу она каждый раз при а(и)=17 присваивается "и", тоесть в самый последний раз когда а(и)=17 для к присвоится новое значение равное "и", при этом предыдущее ну скажем так "исчезнет".

@кот Бегемот · 26.12.2010, 23:02

PureBasic
1
2
3
4
5
6
7
8
9
10
RANDOMIZE TIMER
INPUT n
DIM a(n)
FOR i = 1 TO n: a(i) = FIX(RND * 20): NEXT
FOR i = 1 TO n: PRINT a(i); : NEXT
PRINT
FOR i = 1 TO n
     IF a(i) = 17 THEN k = i: f = 1
NEXT
IF f = 1 THEN PRINT n - k ELSE PRINT "elementov=17 net"

Добавлено через 59 секунд
softmob, посмотри эту прогу и свою. Сравнишь, сделай вывод: а не рано ли тебе выделываться?

@softmob · 27.12.2010, 08:01

softmob, посмотри эту прогу и свою. Сравнишь, сделай вывод: а не рано ли тебе выделываться?

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

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
RANDOMIZE TIMER
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n: a(i) = FIX(RND * 20): NEXT
FOR i = 1 TO n: PRINT a(i);: NEXT
PRINT
FOR i = 1 TO n
    IF a(i) = 17 THEN k = i
NEXT
IF k = 0 THEN PRINT "elementov=17 net" ELSE PRINT n - k

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

@Shkap · 27.12.2010, 12:51

Сообщение от softmob

лишь указал что не так в программе

Не по теме:

если бы ты правильно указал, то другое дело. а ты правильную часть назвал неправильной. то что ошибки надо укзывать. конечно надо (если ты точно знаешь что прав и это так и есть), кто бы тебе что ни говорил

@softmob · 27.12.2010, 13:10

Сообщение от Shkap

Не по теме:

если бы ты правильно указал, то другое дело. а ты правильную часть назвал неправильной. то что ошибки надо укзывать. конечно надо (если ты точно знаешь что прав и это так и есть), кто бы тебе что ни говорил

я их правильно и назвал, собственно все они были в следующем сообщение кб исправлены.

Сообщение от softmob

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

в печати было лишнее +1, не было проверки на отсутствие =17, и печати самого массива.

Добавлено через 4 минуты
единственное наверное надо было просто сразу исправленный код выслать, а не расписывать что не так.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

Найти количество элементов массива после последнего элемента равного 17

Решение

Решение

@Kiro4ka 0 / 0 / 0 Регистрация: 24.12.2010 Сообщений: 3

	Найти количество элементов массива после последнего элемента равного 17 25.12.2010, 14:08. Показов 1205. Ответов 10 Метки нет (Все метки) 1.Дан Массив из 12 элементов ,Найти кол-во элементов массива после последнего элемента равного 17 2.подсчитать количество шипящих букв в слове 0