1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
| program zadanie1; (*программа на операции с матрицами*)
uses crt;
const n=100; (*n наибольшее количество строк и столбцов*)
type
mas1=array [1..n,1..n] of integer;(*тип для двумерного массива*)
mas2=array [1..n] of integer;(*тип для одномерного массива*)
var
(*входные данные*)
A,B:mas1; (*A исходный массив, В транспонированный массив*)
i, j:integer; (*рабочие переменные*)
V:mas2; (*конечный результат, вектор V*)
begin
Clrscr; (*очистка экрана*)
writeln('vvedite razmernost massiva, n='); (*ввод размерности массива*)
readln(m);
writeln('matrix A');
(*заполнение массива А с клавиатуры*)
For i:=1 to m do begin
For j:=1 to m do begin
write('A[',i,',',j,']=');
readln(A[i,j]);
end;
writeln;
end;
(*операция вычисления единичной матрицы из массива А*)
writeln(' iz matrix A vychest edinichnuyu matricu :');
for i:=1 to m do
for j:=1 to m do
if i=j then A[i,j]:=A[i,j]-1;
(*если элементы стоят на главной диагонали, то из них вычитается 1*)
(*Вывод получившегося массива*)
for i:=1 to m do begin
for j:=1 to m do begin
write(A[i,j]:7);
end;
writeln;
end;
(* транспонирование матрицы А и вывод результата*)
writeln('transponirovannaya matrica B:');
for i:=1 to m do begin
for j:=1 to m do begin
B[i,j]:=A[j,i];
write(B[i,j]:7);
end;
writeln;
end;
(*нахождение элементов вектора V*)
writeln('vektor V:');
for i:=1 to m do begin
V[i]:=0;
for j:=1 to m do begin
V[i]:=V[i]+B[i,j]+B[j,i]; (*суммирование элементов, пересекающихся на одной диагонали*)
end;
end;
(*вывод конечного результата*)
for i:=1 to m do
writeln(V[i]:7);
writeln;
readln;
end.
ТАК ВОТ ПОМОГИТЕ ТОЧНО ТАК ЖЕ НАПИСАТЬ АЛГОРИТМИЗАЦИЮ ВОТ К ЭТОЙ ПРОГРАММЕ
program p3;
uses {ПОДКЛЮЧАЕМЫЕ МОДУЛИ}
crt; {модуль работы с текстовым экраном и клавиатурой}
label {МЕТКИ}
m1; {метка}
const {КОНСТАНТЫ}
lend=' '; {символ-разделитель строк}
var {ПЕРЕМЕННЫЕ}
s:string; {исходная строка}
s1:string; {копия исходной строки}
s2:string; {искомые символы}
t:string; {подстрока}
i,j:integer; {счетчики}
{***********************************************}
procedure findline(s:string; var s1,s2:string); {Процедура поиска первой строки}
label f1; {метка}
var i:integer; {счетчик}
begin
s1:=''; {очищаем найденную строку}
s2:=''; {очищаем оставшуюся строку}
for i:=1 to length(s) do {цикл по длине строки}
if s[i]<>lend then {если очередной символ не равен разделителю, то}
begin
s:=copy(s,i,length(s)); {удаляем из строки ее часть до такого символа}
goto f1; {переходим далее}
end;
exit; {выходим из функции}
f1:
i:=pos(lend,s); {ищем позицию разделителя в строке}
if i>0 then {если разделитель найден, то}
begin
s1:=copy(s,1,i-1); {получаем первую строку}
s2:=copy(s,i,length(s)); {получаем остаток строки}
end
else {иначе}
s1:=s; {вся оставшаяся строка - первая строка}
end;
{***********************************************}
begin
clrscr; {очищаем экран}
writeln('Введите строку символов:'); {выводим сообщение}
readln(s); {считываем исходную строку}
if s='' then {если введена пустая строка, то}
begin
writeln('Ошибка! Пустая строка!'); {выводим сообщение}
goto m1; {переходим к выходу из программы}
end;
s1:=s; {получаем копию исходной строки}
writeln('Введите искомые символы:'); {выводим сообщение}
readln(s2); {считываем символы}
if s2='' then {если введена пустая строка, то}
begin
{выводим сообщение}
writeln('Ошибка! Искомые символы не заданы!');
goto m1; {переходим к выходу из программы}
end;
{--------------------------------------------}
i:=pos(lend,s1); {получаем позицию разделителя}
while i<>0 do {пока разделитель найден в строке -}
begin
delete(s1,i,1); {удаляем разделитель из строки}
i:=pos(lend,s1); {получаем позицию разделителя}
end;
writeln; {пропускаем строку}
writeln; {пропускаем строку}
writeln('Позиции заданных символов:'); {выводим сообщение}
i:=pos(s2,s1); {получаем позицию искомых символов}
while i<>0 do {пока искомые симолы найдены в строке -}
begin
write(i,';'); {выводим позицию искомых символов}
s1[i]:=lend; {заменяем первый символ на разделитель (чтобы это не нашлось еще раз)}
i:=pos(s2,s1); {получаем позицию искомых символов}
end;
{--------------------------------------------}
i:=pos(s2,s); {получаем позицию искомых символов}
while i<>0 do {пока искомые симолы найдены в строке -}
begin
for j:=1 to length(s2) do {цикл по длине искомых символов}
s[i+j-1]:=lend; {заменяем эти символы - разделителями}
i:=pos(s2,s); {получаем позицию искомых символов}
end;
{--------------------------------------------}
writeln; {пропускаем строку}
writeln; {пропускаем строку}
writeln('Полученные строки:'); {выводим сообщение}
findline(s,t,s); {ищем подстроку в строке}
while t<>'' do {пока найдена непустая подстрока -}
begin
writeln(t); {выводим найденную подстроку}
findline(s,t,s); {ищем подстроку в строке}
end;
{--------------------------------------------}
m1:
writeln; {пропускаем строку}
writeln; {пропускаем строку}
writeln('[Нажмите любую клавишу]'); {выводим сообщение}
repeat until keypressed; {ожидаем нажатия любой клавиши}
end. {КОНЕЦ ПРОГРАММЫ} |
(
