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
| program Project1;
{12. Матрица М состоит из 8 строк, 6 столбцов.
Сформировать матрицу М1,
в которой каждым 2 строкам исходной матрицы соответствует 1 строка двойной длины.
Выяснить, имеется ли в матрице М элемент,
являющийся максимальным в своем столбце и минимальным в своей строке .
Если такой найдется, напечатать его координаты ,
если нет - напечатать соответствующее сообщение.}
{$APPTYPE CONSOLE}
uses
SysUtils;
type
tm=array of array of integer;
tb=array of integer;
var
k1,k2,c:integer;
M,M1:TM;
B:TB;
function Rus(mes:string):string;
var h:byte;
begin
for h:=1 to length(mes) do
case mes[h] of
'А'..'п':mes[h]:=Chr(Ord(mes[h])-64);
'р'..'я':mes[h]:=Chr(Ord(mes[h])-16);
end;
rus:=mes;
end;
///////////////////////////
procedure input(st,sr:integer; var w:tm);
var i,j:integer;
begin setlength(w,st,sr);
for i:=0 to st-1 do begin
writeln(rus('строка'),i);
for j:=0 to sr-1 do
readln(w[i,j]);
end;
end;
//////////////////////////
procedure output( w:tm);
var i,j:integer;
begin
for i:=0 to high(W) do
begin
for j:=0 to high(W[1]) do
write(w[i,j]:5);
writeln;
end;
end;
//////////////////////////
procedure task1(w:tm; var Q:Tm);
var i,j,k:integer;
begin
setlength(b,k1*k2);
k:=0;
for i:=0 to k1-1 do
for j:=0 to k2-1 do
begin
b[k]:=w[i,j];
k:= k+1;
end;
setlength(Q,k1 div 2,k2*2 );
k:=0;
for i:=0 to k1 div 2-1 do
for j:=0 to k2*2-1 do
begin
Q[i,j]:=b[k];
K:=k+1;
end;
end;
//////////////////////////
procedure menu;
begin
writeln(rus('1-Ввод с клавиатуры'));
writeln(rus('2- Вывод '));
writeln(rus('3-Задача1 '));
writeln(rus('4-Задача2 '));
writeln(rus('0-Вывод'));
end;
/////////////////////////
begin
writeln(rus('кол-во строк')); readln(k1);
writeln(rus('кол-во столбцов')); readln(k2);
repeat
menu;
writeln(rus('ваш выбор->'));
readln(c);
case c of
1:input(k1,k2,m);
2:output(m);
3:begin
task1(m,m1);
output(m1);
end;
//4:task2;
end;
until c=0;
readln;
end. |
(
