3-ТОҚСАН БОЙЫНША ЖИЫНТЫҚ БАҒАЛАУҒА АРНАЛҒАН ТАПСЫРМАЛАР «Программалар ды құрудың кіріктірілген орталары» бөлімі бойынша жиынтық бағалау Тапсырма

Берілген бағдарламалық қамтамасыз ету түрлері мен анықтамаларын сәйкестендіріңіз.

Бағдарламалық

Анықтама

қамсыздандыру

Арнайы бір саланың есебін шешуге арналған

Жүйелік

қосымшаларды құруға арналған бағдарламалар

Компьютердің құрылғылары мен бағдарламалар

арасында байланыс орнататын бағдарламалар

Қолданбалы

Қолданушының бір мақсатта жұмыс жасауына

арналған бағдарламалар

«Программалау жүйелері» ұғымын анықтайтын тұжырымдарды «иә» немесе «жоқ» деп белгілеңіз.

Қолданбалы есептерді шешеді

Бағдарламашылар жұмыс жасайды

Арнайы бір есепті шешуге арналған бағдарлама

Көмекші жүйелік бағдарламалар

Қайталау параметрін бағдарламалау тілінде жазылу синтаксисін толықтырыңыз. for to do

1..10 дейінгі оң сандар тізбегі берілген. Программаны өңдеудің кіріктірілген ортасында сандардың қосындысын есептейтін бағдарлама алгоритмін жазыңыз.

Type
  mass = array[1..10, 1..10] of real;

var
  a, b, c: mass;
  n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
  i, j: integer;
begin
  for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
  writeln('Введите n,m матрицы A');
  readln(n, m);
  MatrA(a);
  writeln('Введите n,m матрицы B');
  readln(n1, m1);
  MatrB(b);
  if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
  else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
  end;
  readln;
end.

Вот программа : program xxx; 
<p>program xxx;</p><p>&nbsp;&nbsp; var i, k, d, e, s : integer;</p><p>begin</p><p>&nbsp; k:=0;</p><p>&nbsp;for i:= 10 to 99 do</p><p>&nbsp;&nbsp; begin</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d:= i div 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e:= i mod 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s:=d + e;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if i mod s = 0 then k:=k+1</p><p>&nbsp;&nbsp; end;</p><p>&nbsp;&nbsp; write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p>&nbsp;&nbsp; readln</p><p>end.</p>