+3 дауыс
75 қаралды
K(m,n ) матрицасын мына тәртіп  бойынша  толықтырыңыздар: шек  аралық  элементтерге  (матрица  периметі  б/ша) 1 мәнін  меншіктеңдер; қалған  ішкі  матрицаның  периметрлік  элементтерге  2 мәнін  меншіктеңдер, осылайша  матрица  толғанша  жалғастырыңдар. Көмекші  программа  көмегімен Procedurе  немесе Function. өтініш
Информатика сұрақ қойды | 75 қаралды

1 жауап

+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.
Жаңа қолданушы жауап берді

Сіздің жауабыңыз

Есіміңіз:
Құпиялық: Email поштаңыз тек сізге хабарлама жіберу үшін ғана қолданылады
Спамға қарсы тексеру:
Он бірге бесті қосыңыз?
Модерациядан өтпес үшін сайтқа кіріңіз немесе тіркеліңіз

Ұқсас сұрақтар

0 дауыс
4 жауап
Elnur97 Жаңа қолданушы Информатика сұрақ қойды | 1.4k қаралды
0 дауыс
0 жауап
0 дауыс
0 жауап
Сұрақ қою
115,338 сұрақ
291,844 жауап
152,586 пікір
58,436 қолданушы