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

Автор: Bronislav

Bronislav — Thu, 22 Feb 2018 11:18:39 +0000

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

begin
  //Task('Series17');
  var B := ReadReal();
  var N := ReadInteger();
  var a := ReadSeqReal(N);
  a.Concat(Seq(B)).Order.Println;
end.

program Series17;//pabc.net

//uses PT4;

begin

//Task('Series17');

var B := ReadReal();

var N := ReadInteger();

var a := ReadSeqReal(N);

a.Concat(Seq(B)).Order.Println;

end.

Автор: Anton

Anton — Thu, 17 Dec 2015 11:23:32 +0000

Да, именно этого и хотел автор вопросов… заменил своё решение вашим, с небольшими изменениями в оформлении..
Было:

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

program Series17;

const

N=5;

var

i,B :Integer;

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

begin

write('Введите B : ');

readln(B);

for i:=1 to N do

begin

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

Readln(m[i]);

end;

if m[1]>=B then writeln(' ',B);

for i:=1 to N do

begin

writeln(m[i]);

if i+1>N then

begin

if m[i]< =B then writeln(' ',B);

end

else

if (m[i]<=B) and (B<m[i+1]) then writeln(' ',B);

end;

end.

Стало:

program Series17;
var
n,i,c:integer;// c - check выводилось ли b
b,num:real;
begin
  Write('N:');
  read(n);
  Write('B:');
  read(b);
  c:=0;// число b пока не выводили
  for i:=1 to n do
    begin
    Write('Num:');
    readln(num);
    if (c=0)and(b<num ) then
      begin
      writeln(b);
      c:=1;//число b уже вывели
      end;
    writeln(num);
    end;
  if c=0 then write(b);//если b самое старшее - цикл закончен, но с=0
end.

program Series17;

var

n,i,c:integer;// c - check выводилось ли b

b,num:real;

begin

Write('N:');

read(n);

Write('B:');

read(b);

c:=0;// число b пока не выводили

for i:=1 to n do

begin

Write('Num:');

readln(num);

if (c=0)and(b<num ) then

begin

writeln(b);

c:=1;//число b уже вывели

end;

writeln(num);

end;

if c=0 then write(b);//если b самое старшее - цикл закончен, но с=0

end.

Автор: olegst1975

olegst1975 — Thu, 17 Dec 2015 10:28:25 +0000

Без массивов. При вводе чисел последовательности, сравниваем их с В. Как только В впервые!!! меньше вводимого числа — выводим его. Переменной С контролируем чтобы В выводилось лишь раз.

var
n,i,c:integer;// c - check выводилось ли b
b,num:real;
begin
  read(b);
  read(n);
  c:=0;// число b пока не выводили
  for i:=1 to n do
    begin
    read(num);
    if (c=0)and(b<num) then
      begin
      write(b);
      c:=1;//число b уже вывели
      end;
    write(num);
    end;
  if c=0 then write(b);//если b самое старшее - цикл закончен, но с=0
end.

var

n,i,c:integer;// c - check выводилось ли b

b,num:real;

begin

read(b);

read(n);

c:=0;// число b пока не выводили

for i:=1 to n do

begin

read(num);

if (c=0)and(b<num) then

begin

write(b);

c:=1;//число b уже вывели

end;

write(num);

end;

if c=0 then write(b);//если b самое старшее - цикл закончен, но с=0

end.

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

Кирилл — Thu, 25 Dec 2014 22:25:04 +0000

Можно с динамическим массивом, чтобы было возможно любое количество элементов. + сортировка

uses PT4;
var b,num,temp:real;
    n,i,j:integer;
    arr: array of real;
begin
Task('Series17');
read(b,n);
SetLength(arr,n+1);
arr[0]:=b;//занесение b в массив
for i:=1 to n do //занесение всех остальных переменных в массив
  begin
    read(num);
    arr[i]:=num;
  end;
//сортировка массива
for i:=0 to n-2 do
  for j:=0 to (n-1)-i do
    if(arr[j] > arr[j+1]) then
      begin
        temp:= arr[j];
        arr[j] := arr[j+1];
        arr[j+1]:=temp
      end;
for i:=0 to n do
writeln(arr[i]);
end.

uses PT4;

var b,num,temp:real;

n,i,j:integer;

arr: array of real;

begin

Task('Series17');

read(b,n);

SetLength(arr,n+1);

arr[0]:=b;//занесение b в массив

for i:=1 to n do //занесение всех остальных переменных в массив

begin

read(num);

arr[i]:=num;

end;

//сортировка массива

for i:=0 to n-2 do

for j:=0 to (n-1)-i do

if(arr[j] > arr[j+1]) then

begin

temp:= arr[j];

arr[j] := arr[j+1];

arr[j+1]:=temp

end;

for i:=0 to n do

writeln(arr[i]);

end.