Решаем задачи Абрамян на Паскале. Series19

Series19. Дано целое число $$N$$ ($$> 1$$) и набор из $$N$$ целых чисел. Вывести те элементы в наборе, которые меньше своего левого соседа, и количество $$K$$ таких элементов.

Решение:

program Series19;
var
  i,K,N,Num,Num1 :Integer;
begin
 Write('N:');
 Readln(N);
 K:=0;
 for i:=1 to N do
   begin
    write('Введите',i,' элемент :');
    Readln(Num);
    if (Num1>Num) and (i<>1) then
     begin
      writeln(Num);
      inc(K);
     end;
     Num1:=Num;
   end;
  Writeln(K);
  readln;
end.

program Series19;

var

i,K,N,Num,Num1 :Integer;

begin

Write('N:');

Readln(N);

K:=0;

for i:=1 to N do

begin

write('Введите',i,' элемент :');

Readln(Num);

if (Num1>Num) and (i<>1) then

begin

writeln(Num);

inc(K);

end;

Num1:=Num;

end;

Writeln(K);

readln;

end.

Решение Newton:

program Series19; 

label
   Restart;

var
   Counter, Number, Prev, Curr, Total : integer;

begin
Restart:
   write('Enter the number of elements N: ');
   readln(Number);
   writeln;
   Total := 0;
   Prev := random(50);
   writeln('Element # 1:', Prev :4);
   for Counter := 2 to Number do
      begin
         Curr := random(50);
         write('Element #', Counter :2, ':', Curr :4);
         if Curr < Prev then
            begin
               Total := Total + 1;
               write(Curr :4, Total :4);
            end;
         Prev := Curr;
         writeln;      
      end;
   writeln;
   writeln('The K is: ', Total);
   writeln;
goto Restart;
end.

program Series19;

label

Restart;

var

Counter, Number, Prev, Curr, Total : integer;

begin

Restart:

write('Enter the number of elements N: ');

readln(Number);

writeln;

Total := 0;

Prev := random(50);

writeln('Element # 1:', Prev :4);

for Counter := 2 to Number do

begin

Curr := random(50);

write('Element #', Counter :2, ':', Curr :4);

if Curr < Prev then

begin

Total := Total + 1;

write(Curr :4, Total :4);

end;

Prev := Curr;

writeln;

end;

writeln;

writeln('The K is: ', Total);

writeln;

goto Restart;

end.

Другие задачи из раздела Series можно посмотреть здесь.

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

uses PT4;
var n,i,k,num:integer;
var arr: array of integer;
begin
  Task('Series19');
read(n);
SetLength(arr,n);
for i:=0 to n-1 do
  begin
    read(num);
    arr[i]:=num;
  end;
for i:=0 to n-2 do
  begin
  if arr[i]>arr[i+1] then
    begin
      k:=k+1;
      write(arr[i+1]);
    end;
  end;
    write(k);
end.

uses PT4;

var n,i,k,num:integer;

var arr: array of integer;

begin

Task('Series19');

read(n);

SetLength(arr,n);

for i:=0 to n-1 do

begin

read(num);

arr[i]:=num;

end;

for i:=0 to n-2 do

begin

if arr[i]>arr[i+1] then

begin

k:=k+1;

write(arr[i+1]);

end;

write(k);

end.

Ответить

Было:

program Series19;
const
 N=5;
var
 i, K :Integer;
 m :array [1..N] of Integer;
begin
 for i:=1 to N do
  begin
   write('Введите ',i,' число из набора :');
   Readln(m[i]);
  end;
  K:=0;
  for i:=2 to N do
   if (m[i-1]>m[i]) then
    begin
     writeln(m[i]);
     K:=K+1;
    end;
   writeln('K: ',K);
end.

program Series19;

const

N=5;

var

i, K :Integer;

m :array [1..N] of Integer;

begin

for i:=1 to N do

begin

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

Readln(m[i]);

end;

K:=0;

for i:=2 to N do

if (m[i-1]>m[i]) then

begin

writeln(m[i]);

K:=K+1;

end;

writeln('K: ',K);

end.

Стало:

program Series19;
var
  i,K,N,Num,Num1 :Integer;
begin
 Write('N:');
 Readln(N);
 K:=0;
 for i:=1 to N do
   begin
    write('Введите',i,' элемент :');
    Readln(Num);
    if (Num1>Num) and (i<>1) then
     begin
      writeln(Num);
      inc(K);
     end;
     Num1:=Num;
   end;
  Writeln(K);
  readln;
end.

program Series19;

var

i,K,N,Num,Num1 :Integer;

begin

Write('N:');

Readln(N);

K:=0;

for i:=1 to N do

begin

write('Введите',i,' элемент :');

Readln(Num);

if (Num1>Num) and (i<>1) then

begin

writeln(Num);

inc(K);

end;

Num1:=Num;

end;

Writeln(K);

readln;

end.

Ответить

Была ли инициализирована переменная Num1 до ее использования в первом прогоне цикла?

Несколько избыточное ради наглядности решение с элеменами автоматизации:
// на англ — не люблю часто переключаться между раскладками
// знаю, что goto+label — это плохо, использую только чтобы зациклить программу для проверки

program Series19; 

label
   Restart;

var
   Counter, Number, Prev, Curr, Total : integer;

begin
Restart:
   write('Enter the number of elements N: ');
   readln(Number);
   writeln;
   Total := 0;
   Prev := random(50);
   writeln('Element # 1:', Prev :4);
   for Counter := 2 to Number do
      begin
         Curr := random(50);
         write('Element #', Counter :2, ':', Curr :4);
         if Curr < Prev then
            begin
               Total := Total + 1;
               write(Curr :4, Total :4);
            end;
         Prev := Curr;
         writeln;      
      end;
   writeln;
   writeln('The K is: ', Total);
   writeln;
goto Restart;
end.

program Series19;

label

Restart;

var

Counter, Number, Prev, Curr, Total : integer;

begin

Restart:

write('Enter the number of elements N: ');

readln(Number);

writeln;

Total := 0;

Prev := random(50);

writeln('Element # 1:', Prev :4);

for Counter := 2 to Number do

begin

Curr := random(50);

write('Element #', Counter :2, ':', Curr :4);

if Curr < Prev then

begin

Total := Total + 1;

write(Curr :4, Total :4);

end;

Prev := Curr;

writeln;

end;

writeln;

writeln('The K is: ', Total);

writeln;

goto Restart;

end.

Ответить

Anton

31.10.2016 в 09:01

> Была ли инициализирована переменная Num1 до ее использования в первом прогоне цикла?
Нет не была.
Что бы её инициализировать надо много писать. А так как компилятор bp позволяет стрелять себе в ногу я не преминул этим воспользоваться.
Дело в том, что паскаль это строго типизированный язык и в Num1 :Integer всегда будет целое число. Любое но всегда целое. :

При первом прогоне:
Num1 не инициализирована (может быть любое число из диапозона целых чисел, дипазон зависит от компилятора)
i =1
И вот такое вырожение:
if (Num1>Num) and (i<>1) then
По правилам логики (i<>1) = лож, следовательно нам без разницы что получилось вот здесь: (Num1>Num).
Выражение при первом проходе будет ложным. И да, так можно делать не везде. И лучше так не делать. И особенно не делить на не инициализированные числа . 🙂

Ну а после того выражения оно сразу приобретает точное значение:
Num1:=Num;

>знаю, что goto+label — это плохо, использую только чтобы зациклить программу для проверки
так зачем? можно заменить конструкцией repeat … until false; или более распростаннёное в других язываках while (true) do begin .. end;

> на англ — не люблю часто переключаться между раскладками
да ещё и не везде этот русский будет корректно отображаться. Пишу на русском, что бы не писать комментариев 🙂

Ответить

Anton

31.10.2016 в 11:44

А по решению, так то это тоже самое решение, что и у меня, но первое значение вводиться до цикла.
вывел его в шапку.. чтоб если что был бы пример как можно по разному реализовать один и тот же алгоритм. 🙂

Ответить

program Series19;//pabc.net
//uses PT4;

begin
  //Task('Series19');
  var N := ReadInteger();
  var a := ReadSeqInteger(N);
  var K := a.Incremental((x, y)-> (x, y))
            .Where(x -> x.Item2 < x.Item1)
            .Select(x -> x.Item2).Println().Count();
  Print(K)
end.

program Series19;//pabc.net

//uses PT4;

begin

//Task('Series19');

var N := ReadInteger();

var a := ReadSeqInteger(N);

var K := a.Incremental((x, y)-> (x, y))

.Where(x -> x.Item2 < x.Item1)

.Select(x -> x.Item2).Println().Count();

Print(K)

end.

program Series19;//pabc.net
//uses PT4;

begin
  //Task('Series19');
  var N := ReadInteger();
  var a := ReadSeqInteger(N);
  var x := integer.MinValue;
  var K := 0;
  foreach var y in a do
  begin
    if x > y then
    begin
      Print(y);
      K += 1
    end;
    x := y
  end;
  Print(K)
end.

program Series19;//pabc.net

//uses PT4;

begin

//Task('Series19');

var N := ReadInteger();

var a := ReadSeqInteger(N);

var x := integer.MinValue;

var K := 0;

foreach var y in a do

begin

if x > y then

begin

Print(y);

K += 1

end;

x := y

end;

Print(K)

end.

Ответить

Решаем задачи Абрамян на Паскале. Series19

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

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

Добавить комментарий Отменить ответ