Клуб сисадминов
08:19 11.03.2010
Приветствуем, Гость | Регистрация \ Вход | Ваш IP: 38.107.191.85 | RSS
 
Знаете ли вы: можно редактировать реестр другого локального пользователя
[Главная · Последние сообщения · Правила форума · Поиск · RSS ]
Страница 18 из 18«12161718
Форум » Программное обеспечение » Программирование » Программирование на Qbasic
Программирование на Qbasic
IwanSДата: 10:47 08.07.2008 | Сообщение # 1
Администратор
Сообщений: 1460
Статус: не в сети
Всем привет!

Продолжаем добрую традицию помогать всем посетителям в программировании на QBasic. Напоминаю, что у нас есть самоучитель по qbasic (1 часть и 2 часть).

Ждем ваших задач и наших решений!


Для большей наглядности вы можете прикрепить картинку с формулой из задачи. Для этого напечатайте формулу в Microsoft Word и нажмите кнопку PrtScr SysRq. После этого запускаем mspaint и нажимаем Правка -> Вставить. Выделяем область с формулой и нажимаем Копировать в файл. Теперь нажимаем Файл -> Открыть и пересохраняем нашу картинку в формате JPEG. Разрешено прикреплять картинки только в форматах JPEG или GIF!


Техзадание - точное и четкое определение задачи, стоящей перед программистом. В техзадании должно содержаться достаточно сведений, чтобы человек мог написать адекватную запросу программу. При этом нужно уметь не просто перепечатать задание преподавателя, а понимать его смысл и быть готовым ответить на вопросы по заданию. Без нормального техзадания лично я помогать с программированием не буду!

Строгому наказанию подлежит несоблюдение правил орфографии и пунктуации. Пишите грамотно, правильно расставляйте запятые. Иначе в коде мы тоже будем косячить так, что фиг разберешь, что там вообще написано!


Мы любим отвечать на вопросы - это делает нас умнее! ©

Изменил IwanS - Четверг, 12.02.2009, 17:21
 
IwanSДата: 16:36 05.02.2010 | Сообщение # 256
Администратор
Сообщений: 1460
Статус: не в сети
Tatiana, вы пожалуйста напишите, как КОНКРЕТНО звучит задание, не своими словами, а как было изначально. Потому что у меня почему-то крутится мысль об умножении всей матрицы на -1, т.к. просто менять местами элементы надо по какому-то принципу, а не наугад.

Мы любим отвечать на вопросы - это делает нас умнее! ©
 
TatianaДата: 16:47 05.02.2010 | Сообщение # 257
Новичок
Сообщений: 3
Статус: не в сети
Quote (IwanS)
Tatiana, вы пожалуйста напишите, как КОНКРЕТНО звучит задание, не своими словами, а как было изначально. Потому что у меня почему-то крутится мысль об умножении всей матрицы на -1, т.к. просто менять местами элементы надо по какому-то принципу, а не наугад.

Вот полностью задание:

Поменять местами положительные и отрицательные элементы матрицы A[NxM]. Вывести на печать исходную матрицу и новую.
Целесообразно количество элементов в массивах устанавливать в пределах 10 - 15.

Вот и все задание. Перепечатала с методических указаний и ничего больше там нет. Я уже просто сижу и ломаю голову неделю это какой то кошмар. А завтра ее сдавать надо.

 
GreatEvilGodДата: 17:34 05.02.2010 | Сообщение # 258
Пользователь
Сообщений: 73
Награды: 1
Статус: не в сети
Quote (Tatiana)
Я понемаю что ересь

Ну раз понимаете то надо было преподу так и сказать сразу...

Ладно, проехали, предположим количество (-) и (+) элементов одинаково и нам абсолютно пофиг что с чем менять, главное что бы (+) и (-) элементы стояли наоборот.

For i = 1 to N
For j = 1 to M
B(i,j) = 0
Next j
Next i

For i = 1 to N
For j = 1 to M
If ((A(i,j) < 0) and (B(i,j) = 0)) Then
METKA = 0
For k = 1 to N
For l = 1 to M
If ((A(k,l) > 0) and (B(k,l) = 0) and (METKA = 0)) Then
BUFER = A(k,l)
A(k,l) = A(i,j)
A(i,j) = BUFER
B(i,j) = 1
B(k,l) = 1
METKA = 1
End If
Next l
Next k
End If
Next j
Next i

Немного пояснений
B - тоже матрица NxM по которой проверяем менялся элемент до этого местом или нет.
BUFER - буферная переменная.
METKA - служит для того что бы смена местами произошла один раз за цикл.

P.S. На Qbasic до этого не писал, так что если ошибки в синтаксисе то строго не судите, важен только алгоритм.


Motherboard: K9N Ultra;
Processor: AMD Athlon X2 5000+ 2600 Mhz;
RAM DDR2 800 Mhz 2*2048 Mb;
Video: GeForce 9500GT 512 Mb DDR2;
GNU/Linux openSUSE 11.2


Изменил GreatEvilGod - Пятница, 05.02.2010, 17:41
 
xcДата: 23:16 14.02.2010 | Сообщение # 259
Новичок
Сообщений: 1
Статус: не в сети
Добрый вечер. Ищу помощи в решении вот такой задачки:

Дано дейсвительное число Х. Вычислить х-(x^3)/3!+(x^5)/5!-(x^7)/7!+(x^9)/9!-(x^11)/11!+(x^13)/13!

большое спасибо

 
Sven0287Дата: 20:00 19.02.2010 | Сообщение # 260
Новичок
Сообщений: 1
Статус: не в сети
Помоготе решить задачу на QBasicе.
Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда.
y = - 2 + 5 - 8 + 11 - 14 + ...
 
pwa40Дата: 18:53 09.03.2010 | Сообщение # 261
Новичок
Сообщений: 4
Статус: не в сети
Как сюда написать вопрос?Запутался я.

Добавлено (09.03.2010, 18:53)
---------------------------------------------
Помогите,пожалуйста,решить задачу: В матрице A(M,N) определить количество элементов,кратных 7 в диапазоне от 21 до 49 в каждой строке.Написать программу на Qbasic

 
GreatEvilGodДата: 20:39 09.03.2010 | Сообщение # 262
Пользователь
Сообщений: 73
Награды: 1
Статус: не в сети
pwa40

1) "Описание переменных" - пропускаю этот пункт так как здесь не должно быть проблем, а если проблемы есть то учебник в руки и вперед.
2) "Ввод матрицы A(M, N)" - Тоже пропускаю, причина та же.
3) Основная часть кода (так как формат вывода не указан, выводить будем в строку разделяя пробелами)

Code
For i = 1 to M
Kvo = 0
For j = 1 to N
If ((A(i,j)<=49) And (A(i,j)>=21) And (0 = A(i,j) MOD 7)) Then
Kvo = Kvo + 1
End if
Next j
PRINT Kvo; " ";
Next i

Кажется так...


Motherboard: K9N Ultra;
Processor: AMD Athlon X2 5000+ 2600 Mhz;
RAM DDR2 800 Mhz 2*2048 Mb;
Video: GeForce 9500GT 512 Mb DDR2;
GNU/Linux openSUSE 11.2
 
pwa40Дата: 21:05 09.03.2010 | Сообщение # 263
Новичок
Сообщений: 4
Статус: не в сети
Да,описание и ввод я написал,проверял-работает,спасибо большое за циклы.
 
Форум » Программное обеспечение » Программирование » Программирование на Qbasic
Страница 18 из 18«12161718
Поиск:

© Иван Собакарь, 2004 - 2010 | Сайт управляется системой uCoz