Помогите пожалуйста с ивт. Заранее спасибо ! все в QBasic 1) дан массив А(8) -6.4;5.6; -0.1;46.7;7;-3.8;0.23;6 а) сформировать массив В , каждый элемент которого вычисляется по формуле В(I) = A(I)*5 вывести на печать элемент...

Помогите пожалуйста с ивт. Заранее спасибо ! все в QBasic 1) дан массив А(8) -6.4;5.6; -0.1;46.7;7;-3.8;0.23;6 а) сформировать массив В , каждый элемент которого вычисляется по формуле В(I) = A(I)*5 вывести на печать элементы массива В В) вычеслить произведение масивов А и В С) вывести на печать пятый элемент массива А и первый элемент массива В. задание - все три заднтя объединить в один алгоритм. --------- 2) ввести четырехзначное число. есть ли в нем одинаковые цифры?
Гость
Ответ(ы) на вопрос:
Гость
Задание №1 CLS DIM A(20), B(20) DATA -6.4, 5.6, -0.1, 46.7, 7, -3.8, 0.23, 6 FOR i = 1 TO 8 READ A(i) PRINT i, A(i) NEXT i PRINT "----------------------" FOR i = 1 TO 8 B(i) = A(i) * 5 PRINT i, B(i) NEXT i PRINT "----------------------" FOR i = 1 TO 8 PRINT i, A(i) * B(i) NEXT i PRINT "----------------------" i = 5 PRINT i, A(i) i = 1 PRINT i, B(i)   Задание №2 CLS INPUT "vvod A"; A c1 = INT(A / 1000) A = A - 1000 * c1 c2 = INT(A / 100) A = A - 100 * c2 c3 = INT(A / 10) c4 = A - 10 * c3 S$ = "No" IF c1 = c2 THEN S$ = "Es" IF c1 = c3 THEN S$ = "Es" IF c1 = c4 THEN S$ = "Es" IF c2 = c3 THEN S$ = "Es" IF c2 = c4 THEN S$ = "Es" IF c3 = c4 THEN S$ = "Es" PRINT S$, c1, c2, c3, c4
Не нашли ответ?
Ответить на вопрос
Похожие вопросы