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

Автор: Bronislav

Bronislav — Fri, 23 Feb 2018 08:41:16 +0000

program Series21;//pabc.net

// uses PT4;

begin
//  Task('Series21');
  var n := ReadlnInteger();
  var a := ReadArrReal(n);
  a.SequenceEqual(a.Sorted).Println;
end.

program Series21;//pabc.net

// uses PT4;

begin

// Task('Series21');

var n := ReadlnInteger();

var a := ReadArrReal(n);

a.SequenceEqual(a.Sorted).Println;

end.

program Series21;//pabc.net

// uses PT4;

begin
//  Task('Series21');
  var N := ReadInteger();
  var a := ReadSeqReal(N);
  Print(a.Incremental((x, y)-> (y - x)).Count(x -> x > 0) + 1 = N);
end.

program Series21;//pabc.net

// uses PT4;

begin

// Task('Series21');

var N := ReadInteger();

var a := ReadSeqReal(N);

Print(a.Incremental((x, y)-> (y - x)).Count(x -> x > 0) + 1 = N);

end.

Автор: Anton

Anton — Tue, 11 Apr 2017 05:50:24 +0000

В ответ на Kirk. Добавил ваше решение в шапку.

Автор: Kirk

Kirk — Sun, 09 Apr 2017 04:05:04 +0000

Program s21;

Var
 n,i,k: integer;
 c1,c2: real;
 
Begin
 Readln(n);
 k:=0;
 Write('Enter number #1: ');
 Readln(c2);
 For i:=2 to n do
  Begin
   Write('Enter number #',i,': ');
   Readln(c1);
    If (c1<c2) then 
     Begin
      Inc(k);
      c2:=c1;
     End
    Else c2:=c1;
  End;
 Writeln;
 Writeln(k=0);
End.

Program s21;

Var

n,i,k: integer;

c1,c2: real;

Begin

Readln(n);

k:=0;

Write('Enter number #1: ');

Readln(c2);

For i:=2 to n do

Begin

Write('Enter number #',i,': ');

Readln(c1);

If (c1<c2) then

Begin

Inc(k);

c2:=c1;

End

Else c2:=c1;

End;

Writeln;

Writeln(k=0);

End.

Автор: Anton

Anton — Mon, 21 Dec 2015 02:43:04 +0000

Если с досрочным выходом, то лучше наверно так:

program Series21;
var
 n,i:integer;
 num,num1:real;
begin
  read(n);
  read(num);
  num1:=num-1;
  i:=2;
  while(n>=i) and (num1<num ) do
    begin
     num1:=num;
     read(num);
     inc(i,1);
    end;
  if i<>n+1 then write(FALSE)
  else write(TRUE);
 readln;
end.
</num>

program Series21;

var

n,i:integer;

num,num1:real;

begin

read(n);

read(num);

num1:=num-1;

i:=2;

while(n>=i) and (num1<num ) do

begin

num1:=num;

read(num);

inc(i,1);

end;

if i<>n+1 then write(FALSE)

else write(TRUE);

readln;

end.

</num>

А ваш вариант мне нравиться, но без досрочного выхода, а то как то дана последовательность… из допустим 10 элементов, а вводишь только 5 … как то не хорошо 🙂

Автор: olegst1975

olegst1975 — Sat, 19 Dec 2015 20:31:36 +0000

Для разнообразия с while:

var
n,i:integer;
num,num1:real;
k:boolean;
begin
  read(n);
  read(num1);//считываем первый член последовательности 
  k:=true;
  i:=2; //начинаем сравнения со второго
  while(n>=i)and k do //k - для досрочного выхода из цикла
    begin
     read(num);
     if (num1>=num) then k:=false;
     num1:=num;
     inc(i,1);
    end;
  write(k);
end.

var

n,i:integer;

num,num1:real;

k:boolean;

begin

read(n);

read(num1);//считываем первый член последовательности

k:=true;

i:=2; //начинаем сравнения со второго

while(n>=i)and k do //k - для досрочного выхода из цикла

begin

read(num);

if (num1>=num) then k:=false;

num1:=num;

inc(i,1);

end;

write(k);

end.

Автор: Anton

Anton — Fri, 18 Dec 2015 04:48:10 +0000

Было:

program Series21;
const
 N=5;
var
  i :Integer;
  m :array [1..N] of Integer;
  chek: Boolean;
begin
 for i:=1 to N do
   begin
     write('Введите ',i,' число из набора :');
     Readln(m[i]);
   end;

 chek:=TRUE;
 for i:=1 to N-1 do
  if (m[i]>m[i+1]) then chek:=FALSE;

 writeln(chek);
end.

program Series21;

const

N=5;

var

i :Integer;

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

chek: Boolean;

begin

for i:=1 to N do

begin

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

Readln(m[i]);

end;

chek:=TRUE;

for i:=1 to N-1 do

if (m[i]>m[i+1]) then chek:=FALSE;

writeln(chek);

end.

Стало:

program Series21;
var
  i,N,Num,Num1,El :Integer;
  b:boolean;
begin
 b:=TRUE;
 El:=0;
 Write('N:');
 Readln(N);

 for i:=1 to N do
   begin
    write('Введите ',i,' элемент последовательности :');
    Readln(Num);

    if (((Num1>Num) and (i<>1)) and b) then
     begin
      El:=Num;
      b:=FALSE;
     end;
     Num1:=Num;
   end;
  Writeln(El);
end.

program Series21;

var

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

b:boolean;

begin

b:=TRUE;

El:=0;

Write('N:');

Readln(N);

for i:=1 to N do

begin

write('Введите ',i,' элемент последовательности :');

Readln(Num);

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

begin

El:=Num;

b:=FALSE;

end;

Num1:=Num;

end;

Writeln(El);

end.

Автор: Кирилл

Кирилл — Sat, 27 Dec 2014 19:26:20 +0000

uses PT4;
var n,i:integer;
    num:real;
    arr:array of real;
    bool: boolean;
begin
  Task('Series21');
bool:=true;
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
  if arr[i]>=arr[i+1] then bool:=false;
write(bool);
end.

uses PT4;

var n,i:integer;

num:real;

arr:array of real;

bool: boolean;

begin

Task('Series21');

bool:=true;

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

if arr[i]>=arr[i+1] then bool:=false;

write(bool);

end.