Вопрос по информатике:
Помогите пожалуйста с ивт.
Заранее спасибо ! все в QBasic
1) дан массив А(8)
-6.4;5.6; -0.1;46.7;7;-3.8;0.23;6
а) сформировать массив В , каждый элемент которого вычисляется по формуле В(I) = A(I)*5
вывести на печать элементы массива В
В) вычеслить произведение масивов А и В
С) вывести на печать пятый элемент массива А и первый элемент массива В.
задание - все три заднтя объединить в один алгоритм.
---------
2) ввести четырехзначное число. есть ли в нем одинаковые цифры?
- 13.05.2016 14:14
- Информатика
- remove_red_eye 1736
- thumb_up 36
Ответы и объяснения 1
Задание №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
- 14.05.2016 14:21
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.