Укажите все примеры информационных моделей: (: 2) муляж яблока выкройка фартука график зависимости расстояния от времени карта макет здания манекен схема метро

ответ:

карта

график зависимости расстояния от времени  

схема узора для вязания крючком  

схема метро

карта

график зависимости расстояния от времени  

схема узора для вязания крючком  

схема метроение:

{$apptype console} const     n = 13; var     a: array[1..n] of real;     i,c: integer; procedure zapolneniernd(); var i,j: integer; begin randomize; for i: = 1 to n do       a[i]: =random*21-10; end; procedure bbibod(); var i,j: integer; begin for i: = 1 to n do       write(a[i]: 4: 1,' '); writeln; end; procedure re(); begin write('i = '); readln(i); write('a[',i,'] = '); readln(a[i]); end; procedure sf(); var     i: integer;     s: real; begin s: =0; for i: = 1 to n do       if a[i] > 0 then s: =s+frac(a[i]); writeln('s = ',s); end; begin zapolneniernd(); bbibod(); repeat writeln; writeln('1 - заполнить массив случайными числами'); writeln('2 - ввести новое значение заданного элемента'); writeln('3 - вычислить сумму дробных частей положительных элементов массива. '); writeln('4 - вывод массива'); writeln('9 - выход'); readln(c); case c of 1:   begin   zapolneniernd;   bbibod;   end; 2: re; 3:   begin   sf();   end; 4: bbibod; end until c = 9; end.

{$apptype console} var     a: array of array of real;     n,m,i,j,c: integer; procedure bbodgranic(); begin write('n = '); readln(n); write('m = '); readln(m); setlength(a,n,m); end; procedure zapolneniernd(); var i,j: integer; begin randomize; for i: = 0 to n-1 do       for j: = 0 to m-1 do               a[i,j]: =random*21-10; end; procedure bbibod(); var i,j: integer; begin write('': 3); for i: = 0 to m-1 do       write(i: 5,' '); writeln; for i: = 0 to n-1 do       begin       write(i: 2,' ');       for j: = 0 to m-1 do               write(a[i,j]: 5: 1,' ');       writeln;       end; end; procedure re(); begin write('i = '); readln(i); write('j = '); readln(j); write('a[',i,',',j,'] = '); readln(a[i,j]); end; procedure sumdok(); var     k,i,j: integer;     s: real; begin repeat write('k = '); readln(k); until k > 0; m: =m+1; setlength(a,n+1,m+1); if k > m then k: =m; for i: = 0 to n-1 do       begin       s: =0;       for j: = 0 to k-1 do               s: =s+a[i,j];       for j: = m downto k do               a[i,j]: =a[i,j-1];       a[i,k-1]: =s;       end; end; begin bbodgranic(); zapolneniernd(); bbibod(); repeat writeln; writeln('1 - изменить размеры массива'); writeln('2 - заполнить массив случайными числами'); writeln('3 - ввести новое значение заданного элемента'); writeln('4 - вычислить суммы элементов в каждой строке до k-ого столбца и вставить их перед k-столбцом.'); writeln('5 - вывод массива'); writeln('9 - выход'); readln(c); case c of 1: bbodgranic; 2:   begin   zapolneniernd;   bbibod;   end; 3: re; 4:   begin   sumdok();   bbibod   end; 5: bbibod; end until c = 9; end.