Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Sanchesko
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 10
#1

Не могу написать программы по данным задачам - VB

14.02.2017, 20:08. Просмотров 159. Ответов 2

1. Дано целое число N (> 0). Последовательность вещественных чисел AK определяется следующим образом:
A0 = 2, AK = 2 + 1/AK–1, K = 1, 2, … .
Вывести элементы A1, A2, … , AN.
2. Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида:
НОД(A, B) = НОД(B, A mod B), если B  0; НОД(A, 0) = A.
3. Дано целое число N (> 1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше своего правого соседа, и количество K таких элементов.
4. Описать процедуру AddLeftDigit(D, K), добавляющую к целому положительному числу K слева цифру D (D — входной параметр целого типа, лежащий в диапазоне 1–9, K — параметр целого типа, являющийся одновременно входным и выходным). С помощью этой процедуры последовательно добавить к данному числу K слева данные цифры D1 и D2, выводя результат каждого добавления.
5. Описать функцию IsPrime(N) логического типа, возвращающую True, если целый параметр N (> 1) является простым числом, и False в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в данном наборе.
6. Дано целое число N (> 1) и набор из N чисел. Найти номера двух соседних чисел из данного набора, произведение которых является минимальным, и вывести вначале меньший, а затем больший номер.
7. Дано число R и массив размера N. Найти два различных элемента массива, сумма которых наиболее близка к числу R, и вывести эти элементы в порядке возрастания их индексов (определение наиболее близких чисел дано в задании Array40).
8. Дан массив размера N и целое число K (1  K < N). Осуществить сдвиг элементов массива влево на K позиций (при этом AN перейдет в AN–K, AN–1 — в AN–K–1, …, AK+1 — в A1, а исходное значение K первых элементов будет потеряно). Последние K элементов полученного массива положить равными 0.
9. Дан массив размера N. Утроить в нем вхождения всех элементов с нечетными номерами (1, 3, …). Условный оператор не использовать.
10. Дана матрица размера M x N. Для каждого столбца матрицы найти произведение его элементов.
11. Дана матрица размера M x N. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждом столбце.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.02.2017, 20:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Не могу написать программы по данным задачам (VB):

При установке программы возникает ошибка доступа к данным Access. - Visual Basic
Сделал программку, которая работает с БД Access через ADO. Проблема возникла в следующем: При установке программы возникает ошибка доступа...

Как применить шаблоны к данным задачам? - C++
Есть 7 заданий с использование шаблонов. Объясните пожалуйста в чем шаблонность классов( см. 6 задание) в каждом из заданий. Еще...

Не могу написать программы!(С++) - C++
Нужно написать 4 программы, я самостоятельно смог написать только одну, и половину другой)) Одна тема - одно задание. Задания должны быть...

не могу написать 2 ве программы на pascal - Pascal ABC
1)используя процедуру определить большее или меньше число из 2-х 2)Ввести строку и определить каких букв больше &quot;а&quot; или...

Не могу написать программы на C++ с использованием процедур - C++ Builder

Скоро аттестация, а программы написать все не могу((( - C++
Скоро будут ставить аттестацию, а программы написать не могу - плохо усвоил тему((. Помогите написать 3 программы на обработку строк на...

2
echs
894 / 1090 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
14.02.2017, 20:22 #2
Введете число N.
Числа будут выведены прямо на форму.

1.
Visual Basic
1
2
3
4
5
6
7
A0 = 2
 
FOR i = 1 TO N
   A1 = 2 + 1 / A0
   PRINT A1
   A0 = A1
NEXT
1
magirus
Супер-модератор
Эксперт по компьютерным сетямЭксперт Windows
26942 / 15199 / 889
Регистрация: 15.09.2009
Сообщений: 66,222
Записей в блоге: 77
14.02.2017, 20:26 #3
одна тема - одна задача.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.02.2017, 20:26
Привет! Вот еще темы с ответами:

не могу написать 4 программы одного типа. кто сможет? - Pascal
1) Измените значение переменной A$ так, чтобы определялось слово &quot;вертикаль&quot; и получите слово &quot;ветка&quot;, &quot;кирка&quot;, &quot;кильватер&quot;. 2)При...

Не могу связать таблицы по данным - MS Access
Здравствуйте. Имееются таблицы, по ним нужно сделать связь в MS Access. Никак не могу, то ли неверная информация в данной...

Мне нужно написать коды к этим задачам.( Все пишут в Паскале). Но если можете мне в Бейсике. Пожалуйста - C#
Мне нужно написать коды к этим задачам.( Все пишут в Паскале). Но если можете в Бейсике. Пожалуйста, спасите меня

Не могу понять как работать с данным массивом - PHP
Добрый день форумчане! Имеется массив ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Закрытая тема Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru