Свежие обсуждения
Компьютеры

Пара задачек на visual basic

1 2

Даны два натуральных числа m<=9999, n=9999 Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n.

Я в этом полный ноль, брату надо. Преподша тупо пытается кинуть группу на бабло, не вела курс, а тупила. Жалобы не помогают, тока на вас вся надежда, дорогие форумчане img src="/smile/fun-n.gif" width="15" height="15" alt="" />
-----------
Ща добавлю ещё задачу.

 

Составить программу перевода натрального числа из десятичной системы счисления в двоичную.
---------------------
Дана последовательность целых чисел a1,a2,a3,....an Выяснить, какое число встречается раньше - отрицательное или положительное?
--------------------
В одномерном массиве с чётным количеством элементов (2N) находятся координаты n точек плоскости. Они распологаются в следующем порядке: x1y1, x2y2, x3y3 и т.д. Определить кольцо с центром в начале координат, которое содержит все точки.
---------------------
Дана строка, подсчитать сколько в ней букв "р, к, т".

 

На С не пойдёт?

 

Какой идеот сочиняет подобные задачки... Натуральное число ему - в ... одно... место... Да... И поджечь потом...

 

'задать строку в качестве параметра:, например: РКТ.EXE С одесского кичмана бежали два уркана

for n=1 to len(command$)
if mid$(command$,n,1)="р" then p=p+1
if mid$(command$,n,1)="к" then k=k+1
if mid$(command$,n,1)="т" then t=t+1
next
?
?"Количество р=";p
?"Количество к=";k
?"Количество т=";t
end

'пойдёт? Это не ВизуалБасик, а ТурбоБасик, но работает. EXEшник во вложении.

229269.exe

 

Здесь программы перевода из одной системы счисления другую. Сделано несколько вариантов. Работают прямо в Word на Visual Basic. Запускать программу - перейти в редактор программ Alt-F11 или через меню Сервис-Макросы-Редактор VB. Ставите курсор на нужную прогу и нажимаете F5 для запуска или через меню опять же (Run-Run Macro).
Не забудьте отключить защиту от запуска нежелательных программ через меню Сервис-Макрос-Безопасность.

229282.doc

 

rfc: На С не пойдёт?
На си я бы сам смог, скорее всего. Тут именно то, что я прошу надо, Визуал Бейсик.

За участие спасибо. Проверить проги не могу, тут линукс поставили на работе. Разбираться с вайном-швайном желания нет. Дома всё проверю.

 

Ну так что, никто больше не умеет визуал бейсик? Пытался сам книгу начать читать, чёт мутное, не понимаю...

 

Брату надо, пусть читает книги и пишет прогу. Не понимает после прочтения книги и конспекта, пусть идёт к преподу на консультацию. Не понимает и после этого, значит не там или не на того учится.
А если по преподу правда, заявление на неё в милицию и ловить на взятке.

 

Арс: Брату надо, пусть читает книги и пишет прогу
Согласен, в данном случае надо так и поступать. Тем более, что вторая задача (пардон, она четвертая) к информатике, а уж тем более к Visual Basic имеют далекое отношение. Это чисто математическая, точнее математико-геометрическая задача и если три точки зафиксированы, то очень сомневаюсь, что ось кольца (на самом деле центр окружности, т.к. имеем дело с плоскостью на что указывает размерность элементов массива) пройдет через начало координат - это будет лишь частный случай. Ну а первая задача решается путем преобразования обоих чисел в строку и используя функцию поиска одной строки в другой производится оценка. Зная это и открыв справочник по языку, выбрав соответствующие функции, легко можно написать программу