Форум программистов, компьютерный форум, киберфорум
Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Basic [Small Basic] Определить и вывести на экран сумму отрицательных элементов в каждой строке матрицы https://www.cyberforum.ru/ basic/ thread2390265.html
Помогите пожалуйста! Определить и вывести на экран сумму отрицательных элементов в каждой строке. Определить строку с максимальным значением этой суммы и вывести ее номер на экран. На языке Small Basic по теме двумерные массивы
Basic [Small Basic] Составить программу разложения натурального числа n на простые множители
Помогите пожалуйста! Составить программу разложения натурального числа n на простые множители. На языке Small Basic Или же записать эту программу на Small Basic uses crt; var n,i:integer; begin repeat write('Введите натуральное число >0 n='); read(n);
Basic Определить язык программы https://www.cyberforum.ru/ basic/ thread2381991.html
Уважаемые господа! В описании прибора Fluke 8808A имеется раздел Управление измерительным прибором с помощью компьютерного интерфейса. Здесь даны описания команд управления прибором и приведена демонстрационная программа. Пожалуйста, подскажите 1) на каком языке она написана, 2) в какой программной среде можно писать подобные программы (имеется в виду среда типа Visual Studio,...
Basic Перевести программу с Паскаля на Бейсик https://www.cyberforum.ru/ basic/ thread2379665.html
uses crt; const m=10;n=10; var i,j,ind:integer; a:array of integer; b:array of integer; function Exist(x:integer):boolean; var i,j:integer; ex,flag:boolean; begin
Номер наибольшего элемента и наибольшего значения среди модулей Basic
Здравствуйте, помогите пожалуйста с программой. Нужно найти в одномерном массиве А номер наибольшего элемента и наибольшее значение среди модулей в этом же массиве
Basic Макросы в libreoffice basic В каждом втором слове в котором встречается символ «а» удалить вторую половину слова. Первую половину слова разделить пополам, вставив пробел. Помогите, пожалуйста. https://www.cyberforum.ru/ basic/ thread2372798.html
Basic По нажатию на кнопку вычислите сумму, разность и произведение чисел, введенных в текстовые поля Такое вот задание: Создайте форму, разместите на ней 2 текстовых поля, кнопку и метку. По нажатию на кнопку вычислите сумму, разность и произведение чисел, введенных в текстовые поля. результат выведите в метку. Оно уже сделано... Private Sub count_Click() Dim Value1 As Long Dim Value2 As Long Dim Result1 As Long Dim Result2 As Long Dim Result3 As Long Dim A As String https://www.cyberforum.ru/ basic/ thread2372240.html Basic Найти все числа в матрице, каждое из которых встречается в каждой строке матрицы (Turbo Basic)
найдите все числа в матрице, каждое из которых встречается в каждой строке матрицы. нужна помощь
Basic FreeBasic/ Вывод данных из файла https://www.cyberforum.ru/ basic/ thread2361449.html
Программа записывает результаты переменных в файл - 10 значений. При обратном считывании из файла не получается выводить с присвоением переменным. Выгружает на дисплей страницу (вроде бы - объем достаточный). Хотя просил только по одной группе 10 переменных :-) Open m FOR APPEND AS #1 Input #1, a1; a2; a3; a4;a5; a6; a7; a8;a9;a10 Print a1;...
Basic Каждому элементу массива Q присвоить значение, равное сумме значений соответствующих элементов одномерных массивов P и H Каждому элементу одномерного массива Q присвоить значение, равное сумме значений соответствующих элементов одномерных массивов P и H. Размерность массивов Q, P и H задается вводом. https://www.cyberforum.ru/ basic/ thread2360704.html
N натуралное число . Расчет: Basic
{a}_{1}...{a}_{n},{b}_{1}...{b}_{m} Даны фактические цифры. и замените все элементы большим значением в цепочке (если они несколько, сначала в последовательности) до 0,5
Basic Нужно сделать так,чтобы выводилась таблица из z, программа в turbo basic Что нужно переделать в этой программе или добавить,чтобы получить таблицу из z? Построить таблицу функций z=sh (x+y). Работа выполняется в Turbo Basic. Помогите,пожалуйста) DEF FNSH(r)=((e^r)-(e^(-r)))/2 CLS X=RND*1+1 X=X+0.2 Y=RND*1+2 Y=Y+0.1 Z=FNSH (X+Y) PRINT Z https://www.cyberforum.ru/ basic/ thread2356896.html
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
30.01.2019, 09:15 0

Найти сумму не положительных, произведение неотрицательных элементов, поменять местами первый и последний элементы - Basic - Ответ 13282935

30.01.2019, 09:15. Показов 1485. Ответов 1
Метки (Все метки)

Ответ

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
CONST n = 10
DIM a(n)
 
CLS
RANDOMIZE TIMER
PRINT "Array A:"
FOR i = 1 TO n
  a(i) = -n \ 2 + INT(RND * n)
  PRINT a(i);
NEXT
PRINT
 
p = 1
sum = 0
k = 0
FOR i = 1 TO n
IF a(i) < 0 THEN
  sum = sum + a(i)
END IF
IF a(i) > 0 THEN
  p = p * a(i)
  k = k + 1
END IF
NEXT
 
PRINT "Sum: ", sum
IF k <> 0 THEN
  PRINT "Mult: ", p
ELSE
  PRINT "Net Takih chisel!"
END IF
 
k = a(n)
a(n) = a(1)
a(1) = k
 
PRINT "New Array: "
FOR i = 1 TO n
  PRINT a(i);
NEXT


Вернуться к обсуждению:
Найти сумму не положительных, произведение неотрицательных элементов, поменять местами первый и последний элементы Basic
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2019, 09:15
Готовые ответы и решения:

Поменять местами первый и последний столбцы(двумерный массив)
Поменять местами первый и последний столбцы в двумерном массиве прошу помочь решить

Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А
Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А. Расставить в...

Поменять местами первый положительный и последний отрицательный элементы массива
Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка . нужно...

Поменять местами первый и последний положительные элементы массива и вывести результаты в Excel
Вот такое задание : В заданном одномерном массиве размером N поменять местами первый и последний...

1
30.01.2019, 09:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2019, 09:15
Помогаю со студенческими работами здесь

Найти сумму неположительных, произведение неотрицательных, поменять местами первый и последний элементы массива
подскажите что к чему в этом задании задание и пример его выполнения

Массивы. Счиать, найти сумму неположительных, произведение положительных элементов, поменять местами элементы
Одномерный массив Х(15) считать из файла( задействовав библиотеку fstream) *.txt . Найти:Сумму...

Определить сумму минимальных элементов нечётных строк матрицы и поменять местами первый и последний элементы
Двумерный массив 12х8. Определить сумму минимальных элементов нечетных строк. В первой строке...

В одномерном массиве найти сумму не положительных, произведение не отрицательных элементов, поменять местами
Помогите, пожалуйста. В одномерном массиве х (10) найти сумму не положительных, произведение не...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru