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

Series18. Дано целое число $$N$$ и набор из $$N$$ целых чисел, упорядоченный по возрастанию. Данный набор может содержать одинаковые элементы. Вывести в том же порядке все различные элементы данного набора.

Решение:

program Series18;
var
  i,N,Num,Num1 :Integer;
begin
 Writeln('N:');
 Readln(N);
 for i:=1 to N do
   begin
    write('Введите ',i,' число из набора :');
    Readln(Num);
    if (Num<>Num1) or (i=1) then
     begin
      writeln(Num);
      Num1:=Num;
     end;
   end;
end.

program Series18;

var

i,N,Num,Num1 :Integer;

begin

Writeln('N:');

Readln(N);

for i:=1 to N do

begin

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

Readln(Num);

if (Num<>Num1) or (i=1) then

begin

writeln(Num);

Num1:=Num;

end;

end.

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

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

То же, но с динамическим массивом:

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

uses PT4;

var n,i,num,temp:integer;

arr:array of integer;

begin

Task('Series18');

read(n);

SetLength(arr,n);

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

begin

read(num);

arr[i]:=num;

end;

temp:=arr[0]-1;

for i:=0 to n-1 do

if (arr[i]temp) then

begin

temp:=arr[i];

write(temp);

end;

end.

Ответить

Было:

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

program Series18;

const

N=5;

var

i, Mw :Integer;

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

begin

for i:=1 to N do

begin

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

Readln(m[i]);

end;

Mw:=m[1]-1;

for i:=1 to N do

if (m[i]<>Mw) then

begin

Mw:=m[i];

writeln(Mw);

end;

end.

Стало:

program Series18;
var
  i,N,Num,Num1 :Integer;
begin
 Writeln('N:');
 Readln(N);
 for i:=1 to N do
   begin
    write('Введите ',i,' число из набора :');
    Readln(Num);
    if (Num<>Num1) or (i=1) then
     begin
      writeln(Num);
      Num1:=Num;
     end;
   end;
end.

program Series18;

var

i,N,Num,Num1 :Integer;

begin

Writeln('N:');

Readln(N);

for i:=1 to N do

begin

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

Readln(Num);

if (Num<>Num1) or (i=1) then

begin

writeln(Num);

Num1:=Num;

end;

end.

Ответить

Ого, вижу не меньше десяти переделанных решений за день!!
Здесь красиво (i=1)

if (Num не равно Num1) or (i=1) then

1	if (Num не равно Num1) or (i=1) then

На случай джек-пота, если случайное значение неопределенной переменной Num1 вдруг равно Num. Недодумался. Сделал так:

var
n,i,num,num1:integer;
begin
  read(n);
  read(num1);//считываем первый член последовательности 
  write(num1); //его можно сразу выводить
  for i:=2 to n do //начинаем сравнения со второго
    begin
     read(num);
     if num1<>num then write(num);
     num1:=num;
    end;
end.

var

n,i,num,num1:integer;

begin

read(n);

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

write(num1); //его можно сразу выводить

for i:=2 to n do //начинаем сравнения со второго

begin

read(num);

if num1<>num then write(num);

num1:=num;

end;

end.

Ответить

Anton

21.12.2015 в 07:17

Да, когда решал пошёл по не правильному пути используя массивы. Но это не правильно по условию к задачам. Пришлось переделать.

Ответить

//ручной ввод, pascalABC.net
begin
  var n:=ReadlnInteger('n =');
  writeln('введите ',n,' целых чисел, можно с повторами: ');
  var a:=ReadArrInteger(n).Sorted;
  a.Distinct.Println;//или a.Union(a).Println;
  readln;readln;
end.

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

begin

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

writeln('введите ',n,' целых чисел, можно с повторами: ');

var a:=ReadArrInteger(n).Sorted;

a.Distinct.Println;//или a.Union(a).Println;

readln;readln;

end.

//автоввод, pascalABC.net
begin
  var a:=ArrRandomInteger(20,0,10).Sorted.Println;
  a.Distinct.Println;//или a.Union(a).Println;
  readln;
end.

//автоввод, pascalABC.net

begin

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

a.Distinct.Println;//или a.Union(a).Println;

readln;

end.

Ответить

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

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

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

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