элементарные программки на QBasic

23.12.2010, 16:37. **Показов** 1182. **Ответов** 2

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

Помогите, люди добрые!) Девушка попросила с информатикой помочь для универа, сам лет 6 назад лабал в С++, щас почти ничего не помню, а времени разбираться и вспоминать нету - работа и все такое) Знаю, что задачки совсем простенькие, так что думаю труда не составят для тех кто соображает)):

1. Определите, является ли заданное число А нечетным двузначным числом (используйте разветвляющуюся структуру).

2. В заданном массиве Х{N} замените нулями все отрицательные элементы (используйте циклическую структуру).

3. Подсчитайте, сколько раз в заданном тексте встречается заданный символ (используйте функции для обработки строк).

И еще - не сочтите за наглость - было бы супер наличие комментариев)
Заранее благодарю!!)

@кот Бегемот · 23.12.2010, 19:19

Сообщение от 23dekabria2010

1. Определите, является ли заданное число А нечетным двузначным числом (используйте разветвляющуюся структуру).

PureBasic
1
2
input "vvedite chuslo ",a
if a mod 2<>0 and a>9 and a<100 then print"yes" else print "no"

2. В заданном массиве Х{N} замените нулями все отрицательные элементы (используйте циклическую структуру).

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
input "vvedite kol-vo elementov ",n
dim x(n)
for i=1 to n
input"vvedite element ",x(i)
next
print"ishodnyj massiv"
for i=1 to n
print x(i);
next
print
for i=1 to n
if x(i)<0 then x(i)=0
next
print"novyj massiv"
for i=1 to n
print x(i);
next

3. Подсчитайте, сколько раз в заданном тексте встречается заданный символ (используйте функции для обработки строк).

PureBasic
1
2
3
4
5
6
input"vvedite text ",a$
input"vvedite simvol ",b$
for i=1 to len(a$)
if mid$(a$,i,1)=b$ then k=k+1
next
print k

Если программировал, сам сообразишь что к чему, это несложно

24.12.2010, 10:01

кот Бегемот,
спасибо огромное, выручил!!

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

23dekabria2010

	элементарные программки на QBasic 23.12.2010, 16:37. Показов 1182. Ответов 2 Метки нет (Все метки) Помогите, люди добрые!) Девушка попросила с информатикой помочь для универа, сам лет 6 назад лабал в С++, щас почти ничего не помню, а времени разбираться и вспоминать нету - работа и все такое) Знаю, что задачки совсем простенькие, так что думаю труда не составят для тех кто соображает)): 1. Определите, является ли заданное число А нечетным двузначным числом (используйте разветвляющуюся структуру). 2. В заданном массиве Х{N} замените нулями все отрицательные элементы (используйте циклическую структуру). 3. Подсчитайте, сколько раз в заданном тексте встречается заданный символ (используйте функции для обработки строк). И еще - не сочтите за наглость - было бы супер наличие комментариев) Заранее благодарю!!)

23dekabria2010
	24.12.2010, 10:01
	кот Бегемот, спасибо огромное, выручил!!

элементарные программки на QBasic

Решение