Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Basic Софт для видеозахвата экрана в Windows XP при работе QBasic4.0 https://www.cyberforum.ru/ basic/ thread2259005.html 1) У меня есть программы, написанные на QBasic4.0. Они были написаны ещё в DOS, но неплохо идут и под Windows XP. 2) Хочу запустить программу QBasic под Windows XP и сделать видеозахват экрана при работающей программе. Однако уже перепробовал много разного софта, но кроме чёрного экрана ничего не записывает... 3) Впрочем, в DosBoxe видеозахват изображения происходит, но уж больно...	Найти сумму всех элементов массива, удовлетворяющих условию х>=4. Сосчитать их количество Basic помогите пожалуйстааа!!!! Нужно найти сумму всех элементов массива,удовлетворяющих условию х>=4. сосчитать их количество(в бэйсике)
Basic В Turbo Basic Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет наибольшее значение. Вычисление модуля разности оформить в виде процедуры-функции https://www.cyberforum.ru/ basic/ thread2257338.html	Basic Дан текст. Выяснить чего в нем больше: латинских букв или цифр - Turbo Basic Дан файл, содержащий произвольный текст. Выяснить чего в нем больше: латинских букв или цифр. https://www.cyberforum.ru/ basic/ thread2254964.html
Basic Найти два числа, модуль разности которых имеет наибольшее значение-turbo basic Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет наибольшее значение. Вычисление модуля разности оформить в виде процедуры-функции	Basic Написать грамматику бейсика на Gold Parser https://www.cyberforum.ru/ basic/ thread2254961.html Задание: Написать грамматику для части кода языка бейсик в Gold Parser. 10 INPUT I 20 IF I >= 0 THEN PRINT "Positive number or null" : GOTO 40 30 PRINT "Negative number" 40 END
Basic TurboBasic Дан файл, содержащий текст, записанный строчными русскими буквами. Сформировать новый файл, содержащий тот же текст, записанный прописными буквами. я создал два файла в блокноте 19 и 191 и при этом выходит ошибка Input past end на 7 строке в чем причина? https://www.cyberforum.ru/ basic/ thread2254100.html	Basic Задача в turbo basic Помогите решить задачу в turbo basic Дан вектор Y={y1,y2,y3,...,y2n}(n=>15). Получить из него вектор Z={y1 +y2n,y2+y2n-1,...,yn+yn+1}. Вывести на печать векторы Z и Y.
Basic Функция: найти среди заданных чисел два числа, модуль разности которых имеет наибольшее значение (Turbo Basic) https://www.cyberforum.ru/ basic/ thread2251941.html Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет наибольшее значение. Вычисление модуля разности оформить в виде процедуры-функции	Basic Макрос в libreoffice basic https://www.cyberforum.ru/ basic/ thread2251637.html Здравствуйте нужно создать такой макрос: 1) чтобы он заменял все 1 на О, которые находятся рядом с буквой(пример а1с=>аОс) 2) оставлял те 1 которые находятся в числе(пример 123=>123)
Basic Три точки заданы своими декартовыми координатами Х=(Х1,Х2) Помогите пожалуйста составить программу на Turbo Basic. Три точки заданы своими декартовыми координатами Х=(Х1,Х2),Y=(Y1,Y2),Z=(Z1,Z2). Вычислить и выдать на печать полярные координаты этих точек. При выдаче на печать координаты точек упорядочить по возрастанию полярного радиуса R. Полярный радиус R и полярный угол f вычисляется по следующим формулам: R=sqr(x1^2+x2^2), f=arctg(x2/x1). Перевод в...	Basic Turbo Basic : Построить вектор L={L,L2...Ln} по правилу Задана вещественная матрица A(nxn). Построить вектор L={L,L2...Ln} по правилу: если i-я строка матрицы А образует неубывающую последовательность, то Li присвоить значение 1,в противном случае Li присвоить 0. https://www.cyberforum.ru/ basic/ thread2247372.html

ZX Spectrum-128

6811 / 4568 / 4819

Регистрация: 05.06.2014

Сообщений: 22,438

24.06.2018, 18:14

Получить действительную квадратную матрицу порядка - Программирование с использованием массивов - Basic - Ответ 12499670

24.06.2018, 18:14. Показов 2038. Ответов 1

Метки (Все метки)

Сообщение было отмечено passstrada как решение

Решение

QBasic/QuickBASIC

CLS
DIM x(8)
DIM y(8, 8)
DIM z(8, 8)
RANDOMIZE TIMER
PRINT "Array X"
FOR i = 1 TO 8
  x(i) = i
  PRINT x(i);
NEXT i
PRINT
PRINT "Array Y"
FOR i = 1 TO 8
FOR j = 1 TO 8
  y(i, j) = j ^ i
  PRINT y(i, j);
NEXT j
PRINT
NEXT i
PRINT
PRINT "Array Z"
FOR i = 1 TO 8
FOR j = 1 TO 8
  z(i, j) = j ^ (i - 1)
  PRINT z(i, j);
NEXT j
PRINT
NEXT i

Вернуться к обсуждению:
Получить действительную квадратную матрицу порядка - Программирование с использованием массивов Basic

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

24.06.2018, 18:14

Готовые ответы и решения:

Получить действительную квадратную матрицу порядка 8
BASIC даны действительные числа x1.x8. Получить действительную квадратную матрицу порядка 8

Получить действительную квадратную матрицу порядка 8
Матрица, Даны действительные числа x1 ,…, x8 . Получить действительную квадратную матрицу порядка 8...

Получить действительную квадратную матрицу порядка 8
Даны действительные числа x1, ..., x8. Получить действительную квадратную матрицу порядка 8:...

Получить действительную квадратную матрицу порядка n
Вот задача

	24.06.2018, 18:14

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

24.06.2018, 18:14

Помогаю со студенческими работами здесь

Получить действительную квадратную матрицу порядка 8
Даны действительные числа x1, ..., x8. Получить действительную квадратную матрицу порядка 8...

Получить действительную квадратную матрицу порядка n
1) Даны действительные числа x(1),..., x(n). Получить действительную квадратную матрицу порядка...

Получить действительную квадратную матрицу порядка 8
Даны действительные числа х1...х8. Получить действительную квадратную матрицу порядка 8:

Получить действительную квадратную матрицу порядка n.
Дан линейный массив x1, x2,..., xn. Получить действительную квадратную матрицу порядка n: ...

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх