Робототе́хника (от робот и техника; англ. robotics — роботика[1], роботехника[2]) — прикладная наука, занимающаяся разработкой автоматизированных технических систем и являющаяся важнейшей технической основой развития производства[3].
Робототехника опирается на такие дисциплины, как электроника, механика, кибернетика, телемеханика, мехатроника[4], информатика, а также радиотехника и электротехника. Выделяют строительную, промышленную, бытовую, медицинскую, авиационную и экстремальную (военную, космическую, подводную) робототехнику.
1
var
mas:array[1..100] of integer;
i,n:integer;
en,out:text;
res:real;
qw,qwe:string;
begin
n:=0;
i:=1;
write('Введите полный путь к импортируемому файлу: ');readln(qw);
write('Введите полный путь к экспортируемому файлу: ');readln(qwe);
assign(en,qw+'.txt'); assign(out,qwe+'.txt');
reset(en); rewrite(out);
while not Eof(en) do
begin
readln(en,mas[i]);
n:=n+mas[i];
inc(i);
end;
res:=(n/(i-1));
write(out,res);
close(out);
close(en);
end.
Там во вторую тупо добавляешь:
max:=-100001;
min:=100001;
if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];
if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];
if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')
else
begin
writeln(out,min);
writeln(out,max);
Тоже такие же задачи решал)) лол). Ты не из 604??)))
Координаты даны в двоичной системе счисления, поэтому переводим их в десятичную.
Потом сортируем по порядку по номерам точек.
И отмечаем точки на графике, соединяя соседние отрезком.
Я все эти преобразования сделал в таблице Эксель.
Саму таблицу и картинку, полученную после нанесения всех точек смотри внизу.
А вот координаты точек, отсортированные и в десятичной системе:
№ x y
1 11 7
2 12 7
3 13 6
4 13 5
5 14 6
6 15 6
7 16 5
8 15 5
9 12 3
10 10 1
11 7 1
12 5 2
13 4 1
14 2 2
15 3 2
16 4 3
17 3 6
18 1 7
19 3 8
20 4 8
21 5 7
22 6 5
23 7 6
24 9 6
25 8 5
26 7 5
27 8 4
28 10 4
29 12 5
30 12 6
31 11 7