Нужна помощь по QBasic

[linkoln_ML.]

Задание №1

Нужно составить блок-схему и программу формирования и обработки одномерного массива в соответствии с индивидуальным заданием в таблице.
Элементы массива распечатать а) в столбик; б) в строчку

Таблица:

Элемент массива 7,13,11,-25,16,3,9,-1 из блока данных

Условия задачи:

Отсортировать по убыванию методом последующих минимумов.


Задание №2

Составить блок-схему и программу. Сформировать матрицу Z(3,4) из векторов X(3) и Y(4). Распечатать элементы векторов X(3), Y(4) и матрицы Z(3,4) на экране дисплея. Обработать элементы матрицы в соответствии с индивидуальным заданием в таблице 2, результаты обработки вывести на экран.

Формулы для вычисления:

Zij=E^X+E^Y
X(3,10,-2)
Y(-7,11,15,8)

Действия выполняемые с элементами массива:

Определить число отрицательных элементов матрицы

Помогите, кто может, please :-/

[kost]

Я ж говорил, у меня есть кое-какие готовые задания:
ftp://rammstein.cheb.ru/upload/QB/

[linkoln_ML.]

Я ж говорил, у меня есть кое-какие готовые задания:
ftp://rammstein.cheb.ru/upload/QB/
Я ж говорил, у меня нет Чебнета :(

[linkoln_ML.]

Помогите, please!!! :o

[kost]

скажи свой e-mail
Я те свои проги вышлю
:)

[Pl4g]

1-ая ЗАДАЧА:
CLS
DATA 7,13,11,-25,16,3,9,-1
DIM a(8)
FOR i=1 TO 8
READ a(i)
NEXT i
FOR i=1 TO 8
FOR k=i TO 8
IF a(k)<a(i) THEN
m=a(i)
a(i)=a(k)
a(k)=m
END IF
NEXT k
NEXT i
FOR i=1 TO 8
PRINT a(i)
NEXT i

Если хочешь, чтоб распечаталось в строку, то в конце предпоследней строки смело ставь ";" (без кавычек), а так распечатается в столбик. Блок-схему наверно сам составишь.

[Pl4g]

А у второй задачи условие никак не могу понять, может напишешь по-понятнее...

[linkoln_ML.]

Задание №2

Составить блок-схему и программу.
1) Сформировать матрицу Z(3,4) из векторов X(3) и Y(4).
2) Распечатать элементы векторов X(3), Y(4) и матрицы Z(3,4) на экране дисплея. Обработать элементы матрицы в соответствии с индивидуальным заданием, результаты обработки вывести на экран.

ИНДИВИДУАЛЬНОЕ ЗАДАНИЕ
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
У меня вариант 03
Задание по первой цифре моего варианта:

Формулы для вычисления массива:

Zij=E^X+E^Y
X(3,10,-2)
Y(-7,11,15,8)

Задание по второй цифре моего варианта:

Действия выполняемые с элементами массива:

Определить число отрицательных элементов матрицы

[Pl4g]

А можешь пример написать, то, что нужно выводить. Ато толком не могу понять, как эту матрицу сформировать. :-?

[Sk4]

KOHTPbI4 [=-]Задание №2

Составить блок-схему и программу.
1) Сформировать матрицу Z(3,4) из векторов X(3) и Y(4).
2) Распечатать элементы векторов X(3), Y(4) и матрицы Z(3,4) на экране дисплея. Обработать элементы матрицы в соответствии с индивидуальным заданием, результаты обработки вывести на экран.

ИНДИВИДУАЛЬНОЕ ЗАДАНИЕ
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
У меня вариант 03
Задание по первой цифре моего варианта:

Формулы для вычисления массива:

Zij=E^X+E^Y
X(3,10,-2)
Y(-7,11,15,8)

Задание по второй цифре моего варианта:

Действия выполняемые с элементами массива:

Определить число отрицательных элементов матрицы

Вот что я сляпал за 10 минут.

CLS
DATA 3,10,-2,-7,11,15,8
DIM a(3, 4)
DIM x(3)
DIM y(4)
FOR i = 1 TO 3
* READ x(i)
PRINT x(i);
NEXT i
PRINT :
FOR i = 1 TO 4
* READ y(i)
PRINT y(i);
NEXT i
PRINT :
k = 0
FOR i = 1 TO 3
* FOR j = 1 TO 4
a(i, j) = EXP(x(i)) + EXP(y(j))
PRINT a(i, j);
IF a(i, j) < 0 THEN k = k + 1
* NEXT j
* PRINT :
NEXT i
PRINT k

k - количество отрицательных элементов, но e в любой степени всегда больше нуля, следовательно k=0 при любом значении векторов.

УЧИСЬ СТУДЕНТ!!!

[linkoln_ML.]

Большое СПАСИБО всем!!!!!!! :D

[PaN1K]

Please помогите с QBasic`ом!
Задание 1
Нужно составить блок-схему и программу формирования и обработки одномерного массива в соответствии с индивидуальным заданием в таблице.
Элементы массива распечатать а) в столбик; б) в строчку
Таблица:
Элемент массива 7,13,11,-25,16,3,9,-1 из блока данных
Условие задачи:
Определить максимальный из отрицательных элементов массива

Задание 2
Составить блок-схему и программу.
1) Сформировать матрицу Z(3,4) из векторов X(3) и Y(4).
2) Распечатать элементы векторов X(3), Y(4) и матрицы Z(3,4) на экране дисплея. Обработать элементы матрицы в соответствии с индивидуальным заданием, результаты обработки вывести на экран.
Формулы для вычисления массива:

Zij=E^X+E^Y
X(3,10,-2)
Y(-7,11,15,8)
Действия выполняемые с элементами массива:
Определить число элементов матрицы больше числа 1

Помогите! Чем быстрее тем лучше! Завтра послезавтра уже последнии дни!

[Sk4]

Please помогите с QBasic`ом!
Задание 1
Нужно составить блок-схему и программу формирования и обработки одномерного массива в соответствии с индивидуальным заданием в таблице.
Элементы массива распечатать а) в столбик; б) в строчку
Таблица:
Элемент массива 7,13,11,-25,16,3,9,-1 из блока данных
Условие задачи:
Определить максимальный из отрицательных элементов массива

Задание 2
Составить блок-схему и программу.
1) Сформировать матрицу Z(3,4) из векторов X(3) и Y(4).
2) Распечатать элементы векторов X(3), Y(4) и матрицы Z(3,4) на экране дисплея. Обработать элементы матрицы в соответствии с индивидуальным заданием, результаты обработки вывести на экран.
Формулы для вычисления массива:

Zij=E^X+E^Y
X(3,10,-2)
Y(-7,11,15,8)
Действия выполняемые с элементами массива:
Определить число элементов матрицы больше числа 1

Помогите! Чем быстрее тем лучше! Завтра послезавтра уже последнии дни!

Задача намба ту

CLS
DATA CLS
DATA 3,10,-2,-7,11,15,8
DIM a(3, 4)
DIM x(3)
DIM y(4)
FOR i = 1 TO 3
READ x(i)
PRINT x(i);
NEXT i
PRINT :
FOR i = 1 TO 4
READ y(i)
PRINT y(i);
NEXT i
PRINT :
k = 0
FOR i = 1 TO 3
FOR j = 1 TO 4
a(i, j) = EXP(x(i)) + EXP(y(j))
PRINT a(i, j);
IF a(i, j) > 1 THEN k = k + 1
NEXT j
PRINT :
NEXT i
PRINT k

[Sk4]

[quote author=PaN1K link=1147881862/0#11 date=1150196331]Please помогите с QBasic`ом!
Задание 1
Нужно составить блок-схему и программу формирования и обработки одномерного массива в соответствии с индивидуальным заданием в таблице.
Элементы массива распечатать а) в столбик; б) в строчку
Таблица:
Элемент массива 7,13,11,-25,16,3,9,-1 из блока данных
Условие задачи:
Определить максимальный из отрицательных элементов массива

Задание 2
Составить блок-схему и программу.
1) Сформировать матрицу Z(3,4) из векторов X(3) и Y(4).
2) Распечатать элементы векторов X(3), Y(4) и матрицы Z(3,4) на экране дисплея. Обработать элементы матрицы в соответствии с индивидуальным заданием, результаты обработки вывести на экран.
Формулы для вычисления массива:

Zij=E^X+E^Y
X(3,10,-2)
Y(-7,11,15,8)
Действия выполняемые с элементами массива:
Определить число элементов матрицы больше числа 1

Помогите! Чем быстрее тем лучше! Завтра послезавтра уже последнии дни!

Задача намба ту

CLS
DATA CLS
DATA 3,10,-2,-7,11,15,8
DIM a(3, 4)
DIM x(3)
DIM y(4)
FOR i = 1 TO 3
* READ x(i)
* PRINT x(i);
NEXT i
PRINT :
FOR i = 1 TO 4
* READ y(i)
* PRINT y(i);
NEXT i
PRINT :
k = 0
FOR i = 1 TO 3
* FOR j = 1 TO 4
* * a(i, j) = EXP(x(i)) + EXP(y(j))
* * PRINT a(i, j);
* * IF a(i, j) > 1 THEN k = k + 1
* NEXT j
* PRINT :
NEXT i
PRINT k


ЗЫ: переделана из моего верхнего поста за 10 секунд.

[PaN1K]

Спасибо!!!!!!!!!!!
Наконец-то будет зачёт по информатике!
ЗЫ А чё 1-ую задачу несмог?

[Sk4]

Спасибо!!!!!!!!!!!
Наконец-то будет зачёт по информатике!
ЗЫ А чё 1-ую задачу несмог?

У-ти какие наглые студенты пошли!!!
Времени и желания на такие "семечки" нет.
Вот тебе задачка намба уан:

CLS
DATA 7,13,11,-25,16,3,9,-1
DIM a(8)
DIM otrmax
otrmax = -100
FOR i = 1 TO 8
* *READ a(i)
NEXT i
FOR i = 1 TO 8
* IF (a(i) < 0 AND a(i) > otrmax) THEN otrmax = a(i)
NEXT i
FOR i = 1 TO 8
* *PRINT a(i);
NEXT i
PRINT
PRINT otrmax


Если хочешь, чтоб распечаталось в столбик ставь убери ";" *в последнем цикле после PRINT a(i) *а так распечатается в строку.
© Pl4g

За потраченное время с тебя литр клинского и большая пачка кириешек. ОК? ;)

[PaN1K]

ОК! ;)

[Destroyingrief]

ХА! Если б знал, что тут за литр пива домашку по программированию делают.... ::)Мда...

[linkoln_ML.]

ХА! Если б знал, что тут за литр пива домашку по программированию делают.... ::)Мда...
Какая на фиг домашка, это для отчёта. Нет отчёта, нет зачёта и соответс-но не допуск к экзамену ::)

[Destroyingrief]

Я как раз об этом ! Скока пива бы заработал, если б знал об этом раньше ))) ;D

Неужели кто-то ещё ,кроме стройфака, учит Бейсик ?! ::)

[Scout]

Я как раз об этом ! Скока пива бы заработал, если б знал об этом раньше ))) ;D

Неужели кто-то ещё ,кроме стройфака, учит Бейсик ?! ::)
как мне вас жаль, парни. Плохо быть на попечении старперов-неудачников преподавателей

[Win_S]

Кто умеет программировать, можете полмочь с решением задач? Я почуствовал, что массивы не втыкают меня..
(третию и четвертую решил..)



1. °. Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем — его
правую цифру (единицы)- Для нахождения десятков использовать операцию деления
нацело, для нахождения единиц — операцию взятия остатка от деления.
Входные данные: ввести одно целое двухзначное положительное число А (10<=А<=99)
Выходные данные: вывести два числа через пробел его левую цифру (десятки), а затем —
его правую цифру (единицы).

2. Дано трехзначное число. В нем зачеркнули первую справа цифру и приписали ее слева
Вывести полученное число.
Входные данные: ввести одно целое трехзначное положительных число А
(100<=А<=999).
Выходные данные: вывести полученное число.

З.Даны две переменные целого типа: А и В. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных А и В.

4.Даны три числа. Найти наименьшее из них.

5.Дано целое число N и набор из N целых чисел. Найти номер последнего экстремального (то есть минимального или максимального) элемента из данного набора.

6. Дано целое число N и набор из N чисел. Найти минимальное положительное число из данного набора. Если положительные числа в наборе отсутствуют, то вывести 0.

7.Дан массив А размера N (N — четное число). Вывести его элементы с четными номерами в порядке возрастания номеров: Аг, Ад, Аб, ..., AN. Условннй-ейератор

8.. Дан массив А размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN, AN-2, AN-I. ... А|. Условный t>ne зовать.

9.Дан массив А размера N. Найти минимальный элемент из его элементов с четными номерами: Аг, Ад, А«, ....

10. Дан массив А размера N. Найти максимальный элемент из его элементов с нечетными номерами: Аь Аз. Аз, ....

11.Дан массив А размера N. Сформировать новый массив В того же размера
по следующему правилу: элемент Вк равен среднем)' арифметическому элементов
массива А с номерами от К до N.

12. Дан массив А размера N. Сформировать два новых массива В и С: в массив В записать
все положительные элементы массива А, в массив С — все отрицательные (сохраняя
исходный порядок следования элементов). Вывести вначале размер и содержимое
мзееива В. а затем — размер и содержимое массива С.

(если в тексте чтото не понятно, посмотрите на фотке)

фотка - http://forum.etherway.ru/index.php?action=dlattach;topic=9048.0;attach=1385 98;image

[Filosof_21]

у каво есть анимированная простенькая графика в бейсике, дайте мне знать! в зарание благодарен ))