Объединение двух множеств 3 - QBasic

  1. Заданы два множества (смотрите в операторе DATA) Перевести эти множества в вид массивов. И произвести операцию объединения. примечание данная программа, в отличие от предыдущих работает с целыми числами и нулём в частности


textual

Код к задаче: «Объединение двух множеств 3 - QBasic»

DATA  7, -200, -177
DATA  0, -177,  200
 
CONST n = 200
CONST m = -200
DIM z(m TO n) AS LONG, i AS LONG, j AS LONG, u AS LONG
 
FOR j = 1 TO 2
FOR i = 1 TO 3
   READ u
   z(u) = -1
NEXT i, j
FOR i = m TO n
   IF z(i) THEN PRINT i;
NEXT
PRINT

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.375 из 5



Похожие ответы
  1. Дано натуральное число n. Можно ли представить его в виде суммы двух квадратов натуральных чисел? Если можно, то указать все пары x, y таких натуральных чисел, что n=x^2+y^2.

  1. Табулирование функции двух переменных Функция: s=(a*e^(-2x)) * cos(pi*x/2)+(a^2)*sqrt(x) Изменение аргументов первого интервал x[0;pi/2] шаг 0.2 второго интервал y[1;5] шаг 1.5 Исходные данные а=2.1

  1. Имеется задача: Объявить двухмерный массив и напечатать матрицу на экране. При этом, если в верхней или нижней строке содержится максимальный элемент, то необходимо поменять строки (верхнюю и нижнюю) местами. Просьба помочь с последним пунктом

  1. Даны координаты двух точек. Найти расстояние между ними

  1. Даны три числа А, В, С. Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим.

  1. Помогите с програмой! Никак не могу решить((( Найти и вывести разницу R между сумой елементов матрицы Z(i,j)<7 и сумой елементов матрицы Z(i,j)>7 масива Z(3,4). Заранее спасиб!

  1. Напишите программу, которая в последовательности целых чисел определяет сумму двух наибольших и сумму двух наименьших. Программа вывести две эти суммы в указанном порядке. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (т.е. не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Помогите пожалуйста Программа должна быть составлена с циклом WHILE...WEND а я немного запуталась(

  1. Дана задача. Найти максимальное среди двух чисел, не используя условный оператор