Информатика: написать программу на Pascal

blrikiog

10.10.2020 18:04

Информатика

Есть ответ 👍

написать программу на Pascal

293

379

Посмотреть ответы 2

Ответы на вопрос:

LamanAchverdiyeva

Информатика

4,4(1 оценок)

uses crt;

const nmax=20;

type matr=array [1..nmax,1..nmax] of integer;

mas=array [1..nmax] of integer;

var a: matr;

a1,a2,a3,a4: mas;

n,m: byte;

procedure Vvod (var z: matr; var ri,rj: byte);

var i,j: byte;

begin

repeat

write('Kol-vo strok, ne menee 4, ne bolee ',nmax,', n='); readln(ri);

until ri in [4..nmax];

repeat

write('Kol-vo stolbzov, ne bolee ',nmax,', n='); readln(rj);

until rj in [1..nmax];

writeln('Vvedite elementy matrizy:');

for i:=1 to ri do

for j:=1 to rj do

begin

write('a[',i,',',j,']='); readln(z[i,j]);

end;

procedure Vivod (z: matr; ri,rj: byte);

var i,j: byte;

begin

writeln('Ischodnaja matriza');

for i:=1 to ri do

begin

for j:=1 to rj do

write(z[i,j]:4);

writeln;

end;

procedure Vivod1M (c: char; z: mas; rj: byte);

var j: byte;

begin

writeln('Massiv ',c);

for j:=1 to rj do

write(z[j]:4);

writeln;

end;

procedure MakeArray (ns: byte; x: matr; var y: mas; rj: byte);

var j: byte;

begin

for j:=1 to rj do

y[j]:=x[ns,j];

end;

function Jmin (z: mas; rj: byte): byte;

var j,jm: byte;

begin

jm:=1;

for j:=1 to rj do

if z[j]<z[jm] then jm:=j;

Jmin:=jm;

end;

procedure Zamena (var z: mas; rj: byte);

var j: byte; g: integer;

begin

g:=z[Jmin(z,rj)];

if Jmin(z,rj)<rj then

for j:=Jmin(z,rj)+1 to rj do

z[j]:=g;

end;

begin

Vvod (a,n,m);

clrscr;

Vivod (a,n,m);

MakeArray (1,a,a1,m);

MakeArray (2,a,a2,m);

MakeArray (3,a,a3,m);

MakeArray (4,a,a4,m);

writeln('Massivy do preobrazovania');

Vivod1M ('1',a1,m);

Vivod1M ('2',a2,m);

Vivod1M ('3',a3,m);

Vivod1M ('4',a4,m);

Zamena (a1,m);

Zamena (a2,m);

Zamena (a3,m);

Zamena (a4,m);

writeln('Massivy posle zameny');

Vivod1M ('1',a1,m);

Vivod1M ('2',a2,m);

Vivod1M ('3',a3,m);

Vivod1M ('4',a4,m);

readln;

end.

krikstoon1

Информатика

4,6(60 оценок)

Граф - множество вершин и ребер, соединяющих эти вершины. он несет информацию об элементах системы и связи между ними. элементы системы изображаются как вершины или узлы графа. отношения между ними изображаются как ребра или дуги графа. деревом называют ациклический (то есть между любыми вершинами есть только один путь), связный (то есть от любой вершины графа можно добраться в другую) граф. корень дерева - это вершина с нулевой степенью захода (то есть в нее не ведут другие ребра). для неориентированного графа это просто выбранная нами вершина. ветви - это ребра дерева. листья дерева - это вершины с нулевой степенью исхода (то есть из них не выходят ребра), т.е. не имеющих поддеревьев. надеюсь объяснил доступно.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.