Комментарии 12

• По ходу, ты по ошибке вставил не то решение.
  У меня как-то так получилось:

  uses PT4; var k,n,i:integer; num:real; arr:array of real; begin Task('Series26'); read(k,n); SetLength(arr,n); for i:=0 to n-1 do begin read(num); arr[i]:=num; end; for i:=0 to n-1 do write(exp(k*ln(arr[i]))); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

  uses PT4; var k,n,i:integer;     num:real;     arr:array of real; begin   Task('Series26'); read(k,n); SetLength(arr,n); for i:=0 to n-1 do   begin     read(num);     arr[i]:=num;     end; for i:=0 to n-1 do   write(exp(k*ln(arr[i]))); end.

  Ответить

• Было:

  program Series26; const N=8; var i,Sr,St :Integer; m :array [1..N] of integer; begin for i:=1 to N do begin write('Введите ',i,' число из набора :'); Readln(m[i]); end; for i:=1 to N do if m[i]=0 then break; for i:=i to N do begin St:=St+m[i]; if m[i]=0 then begin Sr:=St; end; end; writeln(Sr); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

  program Series26; const N=8; var i,Sr,St :Integer; m :array [1..N] of integer; begin for i:=1 to N do   begin    write('Введите ',i,' число из набора :');    Readln(m[i]);   end; for i:=1 to N do   if m[i]=0 then break; for i:=i to N do   begin    St:=St+m[i];    if m[i]=0 then     begin      Sr:=St;     end;   end; writeln(Sr); end.

  Стало:

  program Series26; var i,i2,N,K,Num,Pow :Integer; begin Writeln('N:'); Readln(N); Writeln('K:'); Readln(K); for i:=1 to N do begin write('Введите ',i,' элемент из набора :'); Readln(Num); Pow:=1; For i2:=1 to K do begin Pow:=Pow*Num; end; Writeln(Pow); end; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

  program Series26; var i,i2,N,K,Num,Pow :Integer; begin   Writeln('N:');   Readln(N);   Writeln('K:');   Readln(K);   for i:=1 to N do    begin      write('Введите ',i,' элемент из набора :');      Readln(Num);      Pow:=1;      For i2:=1  to K do       begin        Pow:=Pow*Num;       end;      Writeln(Pow);   end; end.

  Ответить

• В решении Кирилла не учтен вариант arr[i]<0 и K mod 20

  for i := 0 to n - 1 do if odd(k) then write((-1)*exp(k * ln(abs(arr[i]))), ' ') else write(exp(k * ln(abs(arr[i]))), ' ')

  1 2 3 4

  for i := 0 to n - 1 do     if odd(k) then       write((-1)*exp(k * ln(abs(arr[i]))), ' ')     else write(exp(k * ln(abs(arr[i]))), ' ')

  Ответить

• k mod 2 <> 0

  Ответить

• Извиняюсь за оффтоп, почему в pascalABC.net вот этот код выполняется? Результат N равно нулю. Должна же быть ошибка переполнения переменной? Есть какой-то способ чтоб выводило ошибку?

  var N: byte; begin N:=255; { 255 – максимальное значение для байта } N := N + 1; Writeln(N); Readln; end.

  1 2 3 4 5 6 7 8 9

  var   N: byte;   begin   N:=255; { 255 – максимальное значение для байта }   N := N + 1;   Writeln(N);   Readln; end.

  Ответить

  • Из описания PascalABC.net
    «Автоопределение типов
    Тип переменной определяется по типу значения при описании
    с инициализацией. Это компактно записывается и очевидно
    для восприятия»
    То есть ответ на ваш вопрос …походу ни как…тип переменной автоматически расшириться, когда вам это станет нужным. (Тьфу..)
    То есть они превратили Pascal из строго типизированный языка в какой то байсик…
    И если вы хотите понять что такое типы данных… вам наверно больше подойдёт «Старый Паскаль»(термин из описания к языку PascalABC.net там целый абзац почему «Стандартный Паскаль» равно «Старый Паскаль») . Примеры «старых Паскалей», которые не придумывают за вас что вы хотите это Free Pascal и Borland Pascal.

    Ответить

  • А не я ошибся не дочитал комент, не всё так плохо… у вас переполнение переменной 🙂
    Эта штука не предсказуема ни в одном языке. 🙂 у вас всё пошло по кругу.
    Для того что бы появилась ошибка, нужно писать исключения… ошибка могла бы возникнуть, если бы вы разделили число на N.

    Ответить

• В смысле делить на ноль K := 1/N? В pabs-e нет ошибки при делении на ноль, там бесконечность, предел =).
  А вот freepascal при переполнении переменной выдает ошибку (при включенном контроле диапазонов), правда на стадии запуска программы из среды freepascal. Т.е. первоначальная компиляция происходит успешно, exe создает.

  Ответить

  • ну в общем это везде индивидуально… кто как обработал эту ситуацию. Вообще при написании кода стараются не допускать выхода за пределы диапазона. Это может привести к неожиданным последствиям в зависимости от компилятора. Как в общем то вы и убедились. Вы молодец 🙂

    Ответить

  • я бы порекомендовал почитать про try except end; Но у вас ситуация другая… у вас в ошибку не уходит 🙂 не знаю как помочь 🙂 вы пытаетесь пользоваться инструментом, в котором в острых углах по напихали подушки… и вы такой вот здесь острый угол должен быть.. бац туда… а там мягко 🙂 ну здесь подушки оторвать трудно и бесполезно 🙂 легче взять штуку где хардкор 🙂

    Ответить

  • Ну и лично я предпочитаю языки где компилятор не пытается найти мне тип данных и пытается обработать корректно деление на ноль… именно так и можно понять что там происходит 🙂 а так потом будешь делить на ноль и не доумевать почему не делиться 🙂

    Ответить

• //pascalABC.net begin write('введите степень: '); var k:=ReadlnInteger('k ='); write('введите кол-во чисел в наборе: '); var n:=ReadlnInteger('n ='); writeln('введите набор из ',n,' чисел:'); var a:=ReadArrReal(n); a.Select(t->power(t,k)).Println; readln;readln; end.

  1 2 3 4 5 6 7 8 9 10 11

  //pascalABC.net begin   write('введите степень: ');   var k:=ReadlnInteger('k =');   write('введите кол-во чисел в наборе: ');   var n:=ReadlnInteger('n =');   writeln('введите набор из ',n,' чисел:');   var a:=ReadArrReal(n);   a.Select(t->power(t,k)).Println;   readln;readln; end.

  Ответить