Комментарии: Решаем задачи Абрамян на Паскале. Array17

Автор: Bronislav

Bronislav — Mon, 30 Apr 2018 09:16:24 +0000

//PascalABC.NET
begin
   var n := ReadInteger();
   var arr := ArrGen(n, i -> i + 1); arr.Println();
   
   var i := 0;
   var j := n - 1;
   
   while (i <= j) do
   begin
      Print(arr[i]);
      i += 1;
      if (i < j) then
      begin
         Print(arr[i], arr[j]);
         i += 1;
         j -= 1;
         if (i < j) then
         begin
            Print(arr[j]);
            j -= 1;
         end;
      end;
   end;
   
end.

//PascalABC.NET

begin

var n := ReadInteger();

var arr := ArrGen(n, i -> i + 1); arr.Println();

var i := 0;

var j := n - 1;

while (i <= j) do

begin

Print(arr[i]);

i += 1;

if (i < j) then

begin

Print(arr[i], arr[j]);

i += 1;

j -= 1;

if (i < j) then

begin

Print(arr[j]);

j -= 1;

end;

end.

Автор: Anton

Anton — Thu, 10 Mar 2016 09:31:37 +0000

я даже как то и не подумал, что можно вывести все элементы только один раз %)
Добавил решение.
И изменил своё:
Было:

program Array17;
var
  a:array[1..10] of integer;
  N,i:Integer;
 
begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  i:=1;
  While (i< =N) do
   begin
    writeln(i,' : ',a[i]);
    if i+1<=N then writeln(a[i+1],' : ',a[i+1]);
    writeln(N-i+1,' : ',a[N-i+1]);
    if i+1<=N then writeln(a[N-i],' : ',a[N-i]);
    inc(i,2);
   end;
end.

program Array17;

var

a:array[1..10] of integer;

N,i:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=1;

While (i< =N) do

begin

writeln(i,' : ',a[i]);

if i+1<=N then writeln(a[i+1],' : ',a[i+1]);

writeln(N-i+1,' : ',a[N-i+1]);

if i+1<=N then writeln(a[N-i],' : ',a[N-i]);

inc(i,2);

end;

end.

Стало:

program Array17;
var
  a:array[1..10] of integer;
  N,i:Integer;

begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  i:=1;
  While (i< =(N div 2)+1) do
   begin
    writeln(i,' : ',a[i]);
    if i<=N div 2 then writeln(a[i+1],' : ',a[i+1]);
    if N-i>(N div 2) then writeln(N-i+1,' : ',a[N-i+1]);
    if N-i-1>(N div 2) then writeln(a[N-i],' : ',a[N-i]);
    inc(i,2);
   end;   
end.

program Array17;

var

a:array[1..10] of integer;

N,i:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=1;

While (i< =(N div 2)+1) do

begin

writeln(i,' : ',a[i]);

if i<=N div 2 then writeln(a[i+1],' : ',a[i+1]);

if N-i>(N div 2) then writeln(N-i+1,' : ',a[N-i+1]);

if N-i-1>(N div 2) then writeln(a[N-i],' : ',a[N-i]);

inc(i,2);

end;

end.

Автор: olegst1975

olegst1975 — Wed, 09 Mar 2016 19:14:06 +0000

[crayon-6999357396492970017468 inline="true" ]
var
  n,i:integer;
  a:array [1..10]of real;
begin  
  read(n);
  for i:=1 to n do read(a[i]);
  for i:=1 to n div 4 do write(a[2*i-1],a[2*i],a[n+2-2*i],a[n+1-2*i]);//разбиваем на четверки и выводим их согласно задачи
  case (n mod 4) of//если N не кратно 4
    1:write(a[2*(n div 4)+1]);
    2:write(a[2*(n div 4)+1],a[2*(n div 4)+2]);
    3:write(a[2*(n div 4)+1],a[2*(n div 4)+2],a[2*(n div 4)+3]);
  end;    
end.

[crayon-6999357396492970017468 inline="true" ]

var

n,i:integer;

a:array [1..10]of real;

begin

read(n);

for i:=1 to n do read(a[i]);

for i:=1 to n div 4 do write(a[2*i-1],a[2*i],a[n+2-2*i],a[n+1-2*i]);//разбиваем на четверки и выводим их согласно задачи

case (n mod 4) of//если N не кратно 4

1:write(a[2*(n div 4)+1]);

2:write(a[2*(n div 4)+1],a[2*(n div 4)+2]);

3:write(a[2*(n div 4)+1],a[2*(n div 4)+2],a[2*(n div 4)+3]);

end;

end.

[/crayon]

Автор: Anton

Anton — Wed, 09 Mar 2016 04:46:36 +0000

не кратно 4 это то ещё пережить можно, а вот то что не кратно 2 это хуже…
При этом как бы формально условие задачи выполняется… не определено же что должно быть, когда кол-во элементов не чётное, да и не сказано что все элементы должны выводится. 🙂
Но обращение к не определённым элементам массивов это конечно очень плохо.. поправил на то что в конце выводится вместо четырёх, всего два элемента:
Было:

While (i< =N) do
   begin
    writeln(i,' : ',a[i]);
    writeln(a[i+1],' : ',a[i+1]);
    writeln(N-i+1,' : ',a[N-i+1]);
    writeln(a[N-i],' : ',a[N-i]);
    inc(i);
    inc(i);
   end;

While (i< =N) do

begin

writeln(i,' : ',a[i]);

writeln(a[i+1],' : ',a[i+1]);

writeln(N-i+1,' : ',a[N-i+1]);

writeln(a[N-i],' : ',a[N-i]);

inc(i);

end;

Стало:

While (i< =N) do
   begin
    writeln(i,' : ',a[i]);
    if i+1<=N then writeln(a[i+1],' : ',a[i+1]);
    writeln(N-i+1,' : ',a[N-i+1]);
    if i+1<=N then writeln(a[N-i],' : ',a[N-i]);
    inc(i,2);
   end;

While (i< =N) do

begin

writeln(i,' : ',a[i]);

if i+1<=N then writeln(a[i+1],' : ',a[i+1]);

writeln(N-i+1,' : ',a[N-i+1]);

if i+1<=N then writeln(a[N-i],' : ',a[N-i]);

inc(i,2);

end;

Автор: olegst1975

olegst1975 — Tue, 08 Mar 2016 10:37:45 +0000

Не работает. Особенность — N не всегда кратно 4.