testy / Laboratornaya_rabota Информатика

Лабораторная работа №7.

Тема: Двумерные массивы.

Задание:

Дана квадратная матрица A(n,n). Ввести с клавиатуры размерность матрицы – n и заполнить все элементы матрицы случайными целыми числами в диапазоне от -10 до 10. Вывести исходную матрицы на экран. Выполнить следующие преобразования и, при необходимости, вывести полученную матрицу на экран.

Заменить элементы k-ой строки нулями.

Программа:

Sub Lab7()

n = Val(InputBox("Введите размерность матрицы"))

ReDim a(n, n)

For i = 1 To n

For j = 1 To n

a(i, j) = Round(Rnd() * 20 - 10)

Debug.Print a(i, j);

Next j

Debug.Print

Next i

k = Val(InputBox("Номер строки"))

For i = 1 To n

For j = 1 To n

a(k, j) = 0

Debug.Print a(i, j);

Next j

Debug.Print

Next i

End Sub

Результат

4 1

2 -4

0 0

2 -4

Блок-схема

Начало

n

i = 1, n

j = 1, n

a(i, j) = Round( Rnd() * 20 ) - 10

Да

k, l

Конец

i =1, n

Да

j = 1, n

a(k, j) = 0

Лабораторная работа №8.

Тема: Обработка символьной информации.

Задание:

В заданном тексте везде букву «a» заменить на букву «б», а букву «б» – на букву «a»

Программа:

Sub Lab8()

s2 = ""

s = InputBox("предложение")

For i = 1 To Len(s)

If Mid(s, i, 1) = "á" Then s2 = s2 + "б" Else s2 = s2 + Mid(s, i, 1)

If Mid(s, i, 1) = "б" Then s3 = s3 + "á" Else s3 = s3 + Mid(s2, i, 1)

Next

Debug.Print предложение="; s3

End Sub

Результат

Слово выводится в соответствии с требованиями.

Блок-схема

Начало

S

i = 1 To Len(s)

Mid (s,i,1)= «а»

Да

s2 = s2 + "б"

s2 = s2 + Mid (s,i,1)

S3

Конец

i = 1 To Len(s)

S3= s3+ "а"

Mid (s,i,1)= «б»

S3= s3+ Mid (s2,i,1)

нет да