Const
n = 10;
m = 10;
var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;
begin
for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;
readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;
for i:=1 to n do
begin
sum_row := sum_row + arr[i,row];
end;
for j:=1 to m do
begin
sum_column := sum_column + arr[column, j];
end;
writeln(sum_column);
writeln(sum_row);
end.
Не проверено. Написал сходу в окне.
Таблица симметрична по оси, значит
1. рисуем точки A, B, C, D, E
2. цифра на пересечении ( например AC-3) значит стоимость/длину/и т. д., зависит от условий задачи, нет цифры или 0 = нет дороги
3. чертим дороги между пунктами, обозначаем цифрами
4. перебираем возможные пути из начала в конец и складываем цифры на дорогах
следовательно, минимальная сумма → оптимальный маршрут
данная задача решается так
<em>(заранее извиняюсь за качество фото)</em>
1)
#include <iostream>
using namespace std;
int main()
{
for(int i=-10;i<=10;i++)
{
cout<<"x="<<i<<" - y="<<i*i-1<<endl;
}
system("PAUSE");
return 0;
}
2)
#include <iostream>
using namespace std;
int main()
{
float i=-10;
while(i<=10)
{
cout<<"x="<<i<<" - y="<<i*i-1<<endl;
i+=0.1;
}
system("PAUSE");
return 0;
}
Pascal
1)
var
i:integer;
begin
for i:=-10 to 10 do begin
wrtite('x=');
wrtite(i);
wrtite(' - y=');
wrtiteln(i*i-1);
end;
end.
2)
var
i:real;
begin
i:=-10;
while not (i>10) do begin
wrtite('x=');
wrtite(i);
wrtite(' - y=');
wrtiteln(i*i-1);
i:=i+0.1;
end;
end.
Автоматизированная система управления(сокращённо АСУ) — комплекс аппаратных и программных средств, а также персонала, предназначенный для управления различными процессами в рамках технологического процесса, производства, предприятия.
Движение объекта.Создание простой анимации в игровой среде.Объект будет двигаться постоянно,дойдя до края оттолкнется и обратнобудет двигаться.