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

1 жауап

1 like 0 ұнамайтын
Жаңа қолданушы жауап берді
 
Жақсы Жауап
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 ұнайтын 0 ұнамайтын
4 жауап
0 ұнайтын 0 ұнамайтын
0 жауап
0 ұнайтын 0 ұнамайтын
0 жауап

Санаттар

Онлайн Чат

116k сұрақ

292k жауап

153k пікір

58.9k қолданушы

...