Массивы по Qbasic, Хелп плиз 2 программы |
Здравствуйте, гость ( Вход | Регистрация )
Массивы по Qbasic, Хелп плиз 2 программы |
May 5 2006, 23:55
Сообщение
#1
|
|
Пользователь Группа: Posters Сообщений: 77 Регистрация: 30.4.2006 Из: Чебоксары Пользователь №: 493 |
Пргорамма 1). Составить программу формирования и обработки одномерного массива. Элементы массива: 7,13,11,-25,16,3,9,-1. Из блока данных. Определить минимальный из положительных элементов массива.
Программа 2). Сформировать матрицу Z(3,4) из векторов X(3) и Y(4). Распечатать элементы векторов X(3), Y(4) и матрицы Z(3,4) на экране дисплея. Обработать элементы матрицы и результаты обработки вывести на экран. Формулы для вычисления массива: Zij = E^x+E^y, X(3,10,-2), Y(-7,11,15,8). Определить сумму элементов матрицы, расположенных выше главной диагонали. |
|
|
May 6 2006, 08:10
Сообщение
#2
|
|
Настоящий ADSL'щик Группа: Local moder Сообщений: 457 Регистрация: 3.5.2006 Из: Чебоксары Пользователь №: 498 |
Насчет первой задачи. Здесь все просто. Элементы у тя есть, выделяешь из них все положительные, затем задаешь условие ну типа min=10 затем делаешь цикл и все элементы через это условие, те если у тя допустим 9<min то присваиваешь Min=9 и так далее, вобщем когда все элементы пройдут через условие то наименьшему будет присвоено min. если че у меня есть уже написанная програмка наподобие твоей, могу дать...
насчет второй, непонятно, это размерность 3 на 4 или элементы 3 и 4, че значит X(3) это типа координата? или че? чет я торможу с утра походу. -------------------- трудно быть человеком.. люди мешают..
|
|
|
May 6 2006, 12:44
Сообщение
#3
|
|
Мега постер Группа: Posters Сообщений: 1,337 Регистрация: 15.8.2005 Из: Москва Пользователь №: 45 |
Мне кажется ему нужен сам текст, а не объяснение)
напишу на паскале сами в бесик переделайте т.к. я его не люблю) 1 задача: const a: array[1..8] of integer=(7,13,11,-25,16,3,9,-1); var i,min: integer; begin min:=1000; for i:=1 to 8 do if (a[i]<min) and (a[i]>0) then min:=a[i]; Write(min); end. 2: я не понял че такое Е. это надо понимать эпсилант штоли? Сообщение отредактировал DAN - May 6 2006, 15:29 -------------------- http://www.fds-net.ru Филиал Дома Студента МГУ
|
|
|
May 6 2006, 14:43
Сообщение
#4
|
|
Супер постер Группа: Local moder Сообщений: 888 Регистрация: 23.10.2005 Из: п.Кугеси Пользователь №: 106 |
Цитата я не понял че такое Е. это надо понимать эпсилант штоли? Думаю речь шла о экспоненте. |
|
|
May 6 2006, 15:29
Сообщение
#5
|
|
Мега постер Группа: Posters Сообщений: 1,337 Регистрация: 15.8.2005 Из: Москва Пользователь №: 45 |
Думаю речь шла о экспоненте. тьфу ты точно) тогда так: var a: array[1..3,1..4] of real; x: array[1..3] of integer; y: array[1..4] of integer; i,j: integer; function(c: real;d:integer):real; var i: integer; ot:real; begin ot:=1; for i:=1 to d do ot:=ot*c; end; begin x[1]:=3; x[2]:=10; x[3]:=-2; y[1]:=-7; y[2]:=11; y[3]:=15; y[4]:=8; for i:=1 to 3 do begin for j:=1 to 4 do begin a[i,j]:=Power(Exp(1),x[i])+Power(Exp(1),y[j]); Write(a[i,j], ' '); end; Writeln; end; end. только она выводит саму матрицу, суму не сделал т.к. что считать главной диагональю? последовательность (1,1) (2,2) (2,3) (3,3)? Подправил 1 задачу ведь там же надо чему то этот массив приравнять Сообщение отредактировал DAN - May 6 2006, 15:36 -------------------- http://www.fds-net.ru Филиал Дома Студента МГУ
|
|
|
May 7 2006, 13:33
Сообщение
#6
|
|
Пользователь Группа: Posters Сообщений: 77 Регистрация: 30.4.2006 Из: Чебоксары Пользователь №: 493 |
Спасибо конечно, тока как я переделаю из Паскаля в Бейсик кто может напишите плиз для Qbasic
|
|
|
May 10 2006, 00:44
Сообщение
#7
|
|
Пользователь Группа: Posters Сообщений: 77 Регистрация: 30.4.2006 Из: Чебоксары Пользователь №: 493 |
Неужели никто не может, не знает
|
|
|
May 17 2006, 18:46
Сообщение
#8
|
|
Пользователь Группа: Posters Сообщений: 77 Регистрация: 30.4.2006 Из: Чебоксары Пользователь №: 493 |
|
|
|
May 18 2006, 13:09
Сообщение
#9
|
|
Пользователь Группа: Posters Сообщений: 77 Регистрация: 30.4.2006 Из: Чебоксары Пользователь №: 493 |
Я решил задачи с помощью друзей, спасибо, тему можно закрыть
|
|
|
May 18 2006, 16:46
Сообщение
#10
|
|
Мега постер Группа: Posters Сообщений: 1,337 Регистрация: 15.8.2005 Из: Москва Пользователь №: 45 |
Я решил задачи с помощью друзей, спасибо, тему можно закрыть поздравляю я чуть стормозил -------------------- http://www.fds-net.ru Филиал Дома Студента МГУ
|
|
|
Текстовая версия | Сейчас: 3rd May 2024 - 03:56 |