Информатика, помогите написать программу?

Evilain 17 июн. 2020 г., 12:24:50

В QBasic можно написать так :

CONST s = "электрорадиомонтёр"

CLS

PRINT LEFT$(s, 7) + MID$(s, 10, 1) + " " + MID$(s, 11, 1) + " " ;

PRINT MID$(s, 4, 1) + MID$(s, 9, 1) + MID$(s, 5, 1) + MID$(s, 7, 1) ;

PRINT MID$(s, 10, 1)

PRINT MID$(s, 5, 1) + MID$(s, 3, 1) + MID$(s, 6, 1) + MID$(s, 13, 1) ;

PRINT MID$(s, 11, 1) + MID$(s, 15, 1) + MID$(s, 9, 1) + MID$(s, 5, 1) ;

PRINT MID$(s, 7, 1) + MID$(s, 6, 1) + " " + MID$(s, 16, 3) + " " ;

PRINT MID$(s, 8, 5)

В VBA Microsoft Office можно так сделать

Sub aaa() Const s = "электрорадиомонтёр" l = Len(s) ReDim a(1 To l) For i = 1 To l a(i) = Mid$(s, i, 1) Next i MsgBox Left(s, 7) + a(10) + " " + a(11) + " " + a(4) + a(9) + a(5) + a(7) + a(10) MsgBox a(5) + a(3) + a(6) + a(13) + a(11) + a(15) + a(9) + a(5) + a(7) + _ a(6) + " " + Mid(s, 16, 3) + " " + Mid(s, 8, 5)

End Sub

А если в VB делать, то нужно нарисовать форму и прописать в коде какой - нибудь кнопки предыдущий код.

Либо на форме организовать вывод в Label или какие - нибудь поля (Text, Edit).

Alex201500464749 23 февр. 2020 г., 05:01:17 | 5 - 9 классы

Написать программу которая 20 раз выведет слово информатика на экран?

Написать программу которая 20 раз выведет слово информатика на экран.

This1is1Good 5 авг. 2020 г., 07:49:50 | 5 - 9 классы

Информатика написать программу вычесления модуля разности двух данных целых чисел?

Информатика написать программу вычесления модуля разности двух данных целых чисел.

Славка2033 31 окт. 2020 г., 13:41:07 | 10 - 11 классы

Как работать в программе ку бейсик?

Как работать в программе ку бейсик?

Tominewt 1 окт. 2020 г., 15:13:40 | 5 - 9 классы

Зачетная работа по информатике?

Зачетная работа по информатике.

1. Написать программу вычисления площади прямоугольника (на паскале).

2. Написать программу вычесления ускорения тела (на паскале).

Bratiwka123 11 сент. 2020 г., 12:41:06 | 10 - 11 классы

99 баллов выручайте кто с информатикой дружит ?

99 баллов выручайте кто с информатикой дружит .

Нужно программу в Бейсике написать.

Дана матрица A (N, M).

Получите вектор X(M) Равный P й строки матрицы и вектор y N РАВНЫЙ Q МУ СТОБЦУ МАТРИЦЫ.

Alinka0115 25 июн. 2020 г., 04:23:56 | 5 - 9 классы

Помогите решить задачу по информатике?

Помогите решить задачу по информатике.

"Написать программу вычисления выражения 4d - 10 / 25 (" / " деление).

Katerinaasanov 26 июн. 2020 г., 15:48:47 | 10 - 11 классы

Помогите с информатикой, пожалуйстааа Нужно написать программу в Pascal ABC?

Помогите с информатикой, пожалуйстааа Нужно написать программу в Pascal ABC.

Pimkinay1 16 февр. 2020 г., 04:29:14 | 5 - 9 классы

Информатика?

Информатика.

Паскаль.

Написать программу S = 2 + 4 + 6 + 8 + .

+ 200.

Lonemay 9 сент. 2020 г., 06:46:05 | 5 - 9 классы

Помогите написать программу Составить из слова "информатика" 5 новых слов?

Помогите написать программу Составить из слова "информатика" 5 новых слов.

В большем из них посчитать количество букв "а".

Redif 9 нояб. 2020 г., 02:08:14 | 10 - 11 классы

Найти максимальное значение в одномерном массиве(A)?

Найти максимальное значение в одномерном массиве(A).

Построить алгоритм( блок - схему) и написать программу в Бейсике.

Помогите пожалуйста).