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

Автор: Bronislav

Bronislav — Fri, 23 Feb 2018 08:51:47 +0000

В ответ на Anton. Если привыкнуть, то весьма наглядно читается код. Опять же не захламляется, только то, что нельзя впихнуть в методы, а там наверное очень много чего понапихали.

Автор: Anton

Anton — Thu, 22 Feb 2018 04:11:10 +0000

В ответ на Bronislav. Почитал ваш код... во што превратили язык ... пошёл отпаиваться чаем и привыкать :)

Автор: Bronislav

Bronislav — Wed, 21 Feb 2018 19:23:51 +0000

//ручной ввод, pascalABC.net
begin
  var k:=ReadlnInteger('k =');
  writeln('введите числа:');
  writeln('индекс: ',ReadSeqIntegerWhile(t->t<>0).ToArray.FindLastIndex(t->t>k)+1);
  readln;readln;
end.

//ручной ввод, pascalABC.net

begin

var k:=ReadlnInteger('k =');

writeln('введите числа:');

writeln('индекс: ',ReadSeqIntegerWhile(t->t<>0).ToArray.FindLastIndex(t->t>k)+1);

readln;readln;

end.

//из массива, pascalABC.net
begin
  var k:=6;
  var a:=ArrRandomInteger(20,0,10);a.Println;
  write('индекс: ',a.TakeWhile(t->t<>0).ToArray.FindLastIndex(t->t>k)+1);
  readln;
end.

//из массива, pascalABC.net

begin

var k:=6;

var a:=ArrRandomInteger(20,0,10);a.Println;

write('индекс: ',a.TakeWhile(t->t<>0).ToArray.FindLastIndex(t->t>k)+1);

readln;

end.

Автор: Bronislav

Bronislav — Mon, 11 Dec 2017 11:24:13 +0000

Все как и в предыдущей задаче только break убрать, ну можно еще begin и end в if тоже, будет короче

var
  i, j, num, k: integer;

begin
  write('введите целое число k: ');
  readln(k);
  i := 0;
  j := 0;
  num := 1;
  while num <> 0 do 
  begin
    inc(i);
    write('введите ', i, '-e число из набора: ');
    readln(num);
    if (num > k) and (num <> 0) then begin
      j := i;
      // break;
    end;
  end;
  write(j);
end.

var

i, j, num, k: integer;

begin

write('введите целое число k: ');

readln(k);

i := 0;

j := 0;

num := 1;

while num <> 0 do

begin

inc(i);

write('введите ', i, '-e число из набора: ');

readln(num);

if (num > k) and (num <> 0) then begin

j := i;

// break;

end;

write(j);

end.

Автор: Bronislav

Bronislav — Mon, 11 Dec 2017 11:19:55 +0000

15 строка and R не равно нулю иначе посчитает ноль при отрицательном К

if (R>K) and (R<>0) then num:=i;

1	if (R>K) and (R<>0) then num:=i;