В двовимірному масиві замінити всі елементи що макють парні індекси нулями, а непарні – одиницями (excel)

//Боль
//Pascal ABC.NET 3.1 сборка 1219

Var
 f:text;
 max,min,p:real;
 maxn,minn,n,i:integer;
 ar:array of real;
 s:string;
begin
max:=real.MinValue;
min:=real.MaxValue;
n:=0;
 assign(f,'text.txt');
 reset(f);
 while not(Eof(f)) do
  begin
   read(f,p);
   inc(n);
   setlength(ar,n);
   ar[n-1]:=p;
   if ar[n-1]>max then
    begin
     max:=ar[n-1];
     maxn:=n-1;
    end;
   if ar[n-1]<min then
    begin
     min:=ar[n-1];
     minn:=n-1;
    end;
  end;
 close(f);
swap(ar[minn],ar[maxn]);
for i:=0 to n-1 do
if i<>n-1 then s:=s+floattostr(ar[i])+' '
else
s:=s+floattostr(ar[i]);
rewrite(f);
write(f,s);
close(f);
end.

Пример содержимого text.txt:
0 -2.1 1.1
Пример содержимого text.txt после работы программы:
0 1.1 -2.1

УЧЕБНЫЙ КУРС

ЗАНЯТИЕ 1 ИЗ 1

Пошаговые действияСоединение с реальным миромСоздание моделиСовместное

Базовый набор MINDSTORMS EV3

Поворот при датчика

ПечатьПоделиться

Ваша задача состоит в том, чтобы запрограммировать своего робота на выполнение поворота на месте на точный угол, используя гироскопический датчик.

45–90 мин

Средний уровень

Классы 5–8



Пошаговые действия

Постройте своего робота.

Создайте свою программу.

Далее установите робота в позицию 2 на поле 2 и запустите программу.

Запишите результаты.

Продолжите изучать использование гироскопического датчика для управления движениями робота.

Прежде чем вы начнете выполнять эту миссию, советуем изучить следующие разделы пособий самоучителя:

• Остановиться под углом

• Цикл

При выполнении миссии учащиеся будут изучать связь между вводом датчика и поведением робота. Приводная платформа будет вращаться под управлением гироскопического датчика.

Наблюдайте за учащимися, чтобы удостовериться, что они:

•  используют правильную терминологию;

•  понимают функционирование программируемых блоков;

•  находят подходящие проверки угла поворота своего робота;

• понимают, какие факторы могут повлиять на точность остановки при использовании гироскопического датчика (погрешность датчика, мертвый ход мотора и вращающий момент)