Упорядочить по невозрастанию массив

@Ya6Jloko · Регистрация: 25.03.2016

Author24 — интернет-сервис помощи студентам

1) Упорядочить по невозрастанию массив, содержащий 25 вещественных чисел.

@SW Developer · 25.03.2016, 10:40

Пожалуйста...

Pascal

const n = 25;
 
var
  mas : array [1..n] of real;
  new : real;
  i, j, k : byte;
  
begin
  Writeln('Введите 25 элементов массива: ');
  for i:= 1 to n do
    Read(mas[i]);
  Writeln;
    
  for j:= 1 to n-1 do
    begin
      new:= mas[n];
      k:= n;
      for i:= n downto j do
        if mas[i] > new then
          begin
            k:= i;
            new:= mas[i];
          end;
        mas[k]:= mas[j];
        mas[j] := new;
      end;
    for i:= 1 to n do
      Write(mas[i], '  ');
    Writeln;
end.

@capricornus CF · 25.03.2016, 16:17

SW Developer, new - зарезервированное слово.

@SW Developer · 25.03.2016, 16:39

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

@bormant · 25.03.2016, 18:55

Скажем так, с точки зрения языка есть зарезервированные слова, например, for, to, ... -- их невозможно использовать в другом контексте, а есть идентификаторы -- имена переменных, процедур, функций, типов и т.п.
В отношении идентификаторов существует понятие "область видимости" (scope), объявление в текущей области видимости одноименного идентификатора делает невидимым в этой области видимости тот, с которым имеется совпадение. При этом к некоторым глобальным на уровне модулей идентификаторам по-прежнему можно добраться по полному имени, например, System.Str -- процедура Str из модуля System.

В Turbo Pascal New зарезервированным словом не являлось.
В Free Pascal Compiler -- согласно официальной документации уже является, см. http://www.freepascal.org/docs... efsu2.html

On top of the Turbo Pascal reserved words, Free Pascal also considers the following as reserved words:

Pascal

dispose  
exit  
false  
new  
true

Добавлено через 4 минуты
Справедливости ради нужно отметить, что FPC 3.0, несмотря на содержимое документации, по-прежнему код с переменной new компилирует без каких-либо предупреждений.
PascalABC.NET тоже не считает new зарезервированным словом.
А вот про PascalABC, о котором раздел, сказать навскидку не могу.

@SW Developer · 26.03.2016, 13:14

PascalABC компилирует эту программу без проблем.

bormant и capricornus CF, соглашусь с вами. Чтобы не было недоразумений, желательно, конечно, не использовать new в качестве переменной.

Есть процедура new, для работы с динамической памятью.

@Ya6Jloko 0 / 0 / 0 Регистрация: 25.03.2016 Сообщений: 4
		1
	Упорядочить по невозрастанию массив 25.03.2016, 06:39. Показов 1958. Ответов 5 Метки нет (Все метки) 1) Упорядочить по невозрастанию массив, содержащий 25 вещественных чисел. 0

@capricornus CF 318 / 208 / 162 Регистрация: 08.12.2015 Сообщений: 863
	25.03.2016, 16:17	3
	SW Developer, new - зарезервированное слово. 0

@SW Developer 97 / 93 / 81 Регистрация: 10.01.2016 Сообщений: 663 Записей в блоге: 13
	25.03.2016, 16:39	4
	Возможно, оно и зарезервировано, однако, new не относится к служебным словам, которые, кстати, нельзя использовать в программе в другом качестве. 0

@SW Developer 97 / 93 / 81 Регистрация: 10.01.2016 Сообщений: 663 Записей в блоге: 13
	26.03.2016, 13:14	6
	PascalABC компилирует эту программу без проблем. bormant и capricornus CF, соглашусь с вами. Чтобы не было недоразумений, желательно, конечно, не использовать new в качестве переменной. Есть процедура new, для работы с динамической памятью. 0

Упорядочить по невозрастанию массив

Решение