K(m,n ) матрицасын мына тәртіп бойынша толықтырыңыздар: шек аралық элементтерге (матрица периметі б/ша) 1 мәнін меншіктеңдер; қалған ішкі матрицаның периметрлік элементтерге 2 мәнін меншіктеңдер, осылайша матрица толғанша жалғастырыңдар. Көмекші программа көмегімен Procedurе немесе Function. өтініш
1 жауап
Program otiniw;
uses crt;
function massiv_mywesi (k,l:integer) : integer;
var j,l:integer;
begin
if (k>1) and (k<m) and (l>1) and (l<n) then massi_mywesi:=2 else massiv_mywesi:=1;
end;
i,j:integer;
K:array [1..10,1..10] of intager; /*m=10, n=10 деп алдым*/
begin
clrscr;
for i:=1 to 10 do
begin
writeln();
for j:=1 to 10 do
begin
K[i,j]:=random (100)-50;
write(K[i,j]:5);
end;
end;
for i:=1 to 10 do
begin
writeln();
for j:=1 to 10 do;
begin
massiv_mywesi(i,j);
write(massiv_mywesi);
end;
end;
end;
end.
uses crt;
function massiv_mywesi (k,l:integer) : integer;
var j,l:integer;
begin
if (k>1) and (k<m) and (l>1) and (l<n) then massi_mywesi:=2 else massiv_mywesi:=1;
end;
i,j:integer;
K:array [1..10,1..10] of intager; /*m=10, n=10 деп алдым*/
begin
clrscr;
for i:=1 to 10 do
begin
writeln();
for j:=1 to 10 do
begin
K[i,j]:=random (100)-50;
write(K[i,j]:5);
end;
end;
for i:=1 to 10 do
begin
writeln();
for j:=1 to 10 do;
begin
massiv_mywesi(i,j);
write(massiv_mywesi);
end;
end;
end;
end.
Сіздің жауабыңыз
- Санаттар
- Авто, Мото 1.1k
- Қаржы, Бизнес 1.8k
- Қаржы кеңесшісі 224
- Саясат, Мемлекет 1.7k
- Заң 1.7k
- Электрондық үкімет 238
- Жаңалықтар 640
- Өмір, Тіршілік 4.7k
-
Ғылым, Білім
23.2k
- Мектеп 8.2k
- ЖОО, Университет 2.3k
- Колледж 538
- Математика 2.7k
- Химия 1.9k
- Информатика 596
- Аспан әлемі, Ғарыш 188
- Геометрия 1k
- Физика 2.1k
- Биология 808
- Психология 171
- География 741
- ҰБТ жайлы 923
- Үй тапсырмасы 991
- Серпін-2050 жобасы 61
- Тіл, Сөз 5.3k
- Қала, Ауылдар 686
- Тағам, Аспаздық 965
- Жұмыс, Мансап 1.2k
- Экология, Табиғат 1.2k
- Денсаулық 5.9k
- Мода, Стиль 895
- Спорт 3k
- Танысу, Махаббат 2.6k
- Көңіл-көтеру 1.6k
- Өнер 1.5k
- Тарих, Заман 1.8k
- Қыдыру, Демалыс 445
- Кітап, Әдебиет 3k
- Құрылыс, Жобалау 364
- Музыка, Ән 5.7k
- Ұялы телефон 5.2k
- Компьютер, Интернет 16.4k
- Әлеуметтік желі 1.6k
- Кино, Теледидар 3.1k
- Сурет, Видео 1.4k
- Тұлға, Адам 2.9k
- Салт-дәстүр 867
- Логикалық сұрақтар 11.2k
- Сұрақ-Жауап 3.1k