корабельный кот.
корабельный кот.
Тема про Basic, мне лично очень симпатичен C#, и еще хочу с Python разобраться, про умирания современных языков говорить пока рано, QB остался в 80х, прямой его наследник - VB, который жив только как VBScript и MSOffice embeded VB, и VB.Net который только развивается, фишек в нем больше чем в C#, хотя коечто уже атавизмы
ЗЫ Все к чему, счетчики надо накрутить и пофлэймить.
Эту программу ишо изучают? Там в принципе изучать то нечего.... У мну был один листок со списком комманд, а там я уже нарисовал прогу для решения квадратных уравнений, причем без багов и с проверкой, квадратные ли они... Эх... А жаль что у нас в школе толком информатики не было... Я на ней проги писал, чтобы прорешивать задачи из экзаменационных сборников, чтобы просто вводишь числа из книги по порядку, нажимаешь на "ОК" и она тебе выдает список решений или информирует, что их нет... Как давно это было... Лет семь назад, у меня как раз первый комп появился - 486DX, я деже винду не ставил... Потом стал по хелпу паскаль учить.. Так появились мои первые программы, способные к самостоятельному размножению... Как то даже грезил мыслью, соревноваться с кем-нить на кубасике, то есть чтобы несколько человек на спор писали одну прогу но с разными критериями 1) маименьший вес, 2) путевый интерфейс. Но блин уже тогда этот язык программирования настолько морально устарел, и не с кем было тягаться... Эх... Детство, детство...
Помогите решить задачку вот такую
1.Ввести матрицу А размером 5х5
2.Образовать одномерный массив С из элементов четных строк матрицы А.
3.Упорядочить элементы каждого столбца матрицы А в порядке возрастания.
4. Вычислить сумму С1 из элементов массива С.
5.Вывести на печать исходную матрицу А, массив С, матрицу А после сортировки и значение С1.
...Мастер своего дела...
TaX1[ST]
Код:OPTION BASE 1 DIM a(5, 5) DIM c(10) RANDOMIZE TIMER CLS 'initialize matrix (используем генератор случайных целых с 1 до 100) FOR i = 1 TO 5 FOR j = 1 TO 5 a(i, j) = INT((RND * 100) + 1) NEXT j NEXT i 'print matrix PRINT "Unsort matrix" FOR i = 1 TO 5 FOR j = 1 TO 5 PRINT a(i, j), NEXT j PRINT NEXT i 'initialize dimension S k = 1 FOR i = 2 TO 4 STEP 2 FOR j = 1 TO 5 s(k) = a(i, j) k = k + 1 NEXT j NEXT i 'print dimension S PRINT "Dimension S" FOR k = 1 TO 10: PRINT s(k); : NEXT: PRINT 'sort matrix a (любимый пузырьковый метод) FOR Col = 1 TO 5 FOR i = 1 TO 5 Limit = 5 DO Switch = FALSE FOR Row = 1 TO (Limit - 1) IF a(Col, Row) > a(Col, Row + 1) THEN SWAP a(Col, Row), a(Col, Row + 1) Switch = Row END IF NEXT Row Limit = Switch LOOP WHILE Switch NEXT i NEXT Col PRINT "Sort matrix" FOR i = 1 TO 5 FOR j = 1 TO 5 PRINT a(i, j), NEXT j PRINT NEXT i 'calculate c1 and print c1 = 0 FOR k = 1 TO 10 c1 = c1 + s(k) NEXT PRINT "C1 = "; c1
TaX1[ST] (26.03.2009)
О таких задачах уже спрошено многократно, см выше.
http://forum.bratsk.org/showpost.php...7&postcount=25
http://forum.bratsk.org/showpost.php...5&postcount=44
Но твоя — особенная.
Производные от последовательности случайных чисел - это круто! (Алиса в стране чудес: "Так, становитесь в строгом беспорядке!")
Массив В будет состоять из ровно 100 элементов (доказывать надо?), и компа не требуется.
Последний раз редактировалось геннадий; 13.04.2010 в 19:07.
Ничего полезного писать не буду. Спрошу лишь - Вы что, школьники/студенты начальных курсов совсем уже обленились, такие примитивные задачи, которые полюбой есть в методичке, которую полюбой вы должны взять в библиотеке, на форумы выкладывать? Скоро уже пойдут темы типа:" Я сижу в туалете, мне лень вытереть ж*пу, помогите!".
Berkut_mk (23.03.2010)
пожалуйста помогите решить задачи !!
1)Ввести матрицу А размером 4х4
2)Найти S-сумму элементов, расположенных над главной диогональю матрицы А
3)Оброзовать одноменрый массив Y из элементовматрицы A , которые больше числа B
4) Упорядочить элементы каждого столбца матрицы А в порядке возрастания
5)Вывести на печать: исходящую матрицу А, S, массив Y, матрицу А после сортировки.
часть я уже сделал, а вот как дальше не знаю
CLS
REM 1
DIM A(4, 4)
FOR I = 1 TO 4
FOR J = 1 TO 4
A(I, J) = INT(RND * 100)
NEXT J
NEXT I
PRINT "MASSIV A"
FOR I = 1 TO 4
FOR J = 1 TO 4
PRINT A(I, J);
NEXT J
NEXT I
Последний раз редактировалось mishutka; 11.05.2011 в 19:21.
2)Также внутри вложенного цикла, только добавляется IF-THEN где в условии указывается что J > I насколько я помню - это достаточный признак положения над диагональю, и в результате выполнения этого условия должно выполниться S= S + A(I,J)
3) Создаешь одномерный массив А2 с числом элементов равным 16(4х4 ведь), 16 на случай если все больше В
тот-же самый вложенный цикл, только в условии сравнивай А(i,j) c B и если верно то А2(N) = A(I,J)
дальше лень пока, упорядочить столбец - то-же что и строки, токма индексы поменять местами, а строта упорядочивается как одномерник, а А2 - это походу и есть Y
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)