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

Автор: Bronislav

Bronislav — Tue, 27 Feb 2018 14:24:28 +0000

//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.

//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.

Автор: Anton

Anton — Wed, 20 Dec 2017 09:09:07 +0000

В ответ на Bronislav. Ну и лично я предпочитаю языки где компилятор не пытается найти мне тип данных и пытается обработать корректно деление на ноль... именно так и можно понять что там происходит :) а так потом будешь делить на ноль и не доумевать почему не делиться :)

Автор: Anton

Anton — Wed, 20 Dec 2017 09:04:30 +0000

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

Автор: Anton

Anton — Wed, 20 Dec 2017 08:59:09 +0000

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

Автор: Bronislav

Bronislav — Wed, 20 Dec 2017 08:51:45 +0000

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

Автор: Anton

Anton — Wed, 20 Dec 2017 02:23:04 +0000

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

Автор: Anton

Anton — Wed, 20 Dec 2017 02:12:39 +0000

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

Автор: Bronislav

Bronislav — Tue, 19 Dec 2017 18:28:54 +0000

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

var
  N: byte;

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

var

N: byte;

begin

N:=255; { 255 – максимальное значение для байта }

N := N + 1;

Writeln(N);

Readln;

end.

Автор: Bronislav

Bronislav — Sat, 16 Dec 2017 18:07:19 +0000

k mod 2 <> 0

Автор: Bronislav

Bronislav — Sat, 16 Dec 2017 18:05:46 +0000

В решении Кирилла не учтен вариант 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]))), ' ')

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]))), ' ')