Может ли функция так выглядеть:

@Kizer · Регистрация: 20.11.2009

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

Я конечно понимаю, что только большой оригинал, как я может додуматься сдать преподу прогу, которую съедает компилятори получить за нее 0 из 10. В общем, я признаю, что не прав, но почему Паскаль-то съедает:

Pascal

type
mas=array[1..100,1..100] of real;
//****
var
function Sort(a:mas;n,m:integer):mas;
var i,j,k:integer;
buf:real;
begin
for k:=1 to n do
for i:=1 to n-1 do
if a[i,1]<=a[i+1,1] then begin
for j:=1 to m do
begin buf:=a[i,j];a[i,j]:=a[i+1,j];a[i+1,j]:=buf;end;end;sort:=a;end;

Вопрос к модераторам в основном, оформлял ли кто-то сортировку вот так?

@Puporev · 19.06.2010, 21:32

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

@Kizer · 19.06.2010, 23:00 **[ТС]**

Puporev, понятно, но компилятор съедает...

@DeLuxe · 20.06.2010, 00:13

Сообщение от Kizer

Puporev, понятно, но компилятор съедает...

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

@Puporev · 20.06.2010, 08:20

Кусок написанного вами кода компилятор не сможет выполнить, он написан в корне неправильно.

Да, с точки зрения Турбо Паскаля.
Но этот странный и глючавый АВС все это переваривает и нормально работает!!!

Добавлено через 1 минуту
Если у Вас есть АВС можете проверить. (перестановка строк по возрастанию первого элемента)

Pascal

uses crt;
type
mas=array[1..100,1..100] of real;
function Sort(a:mas;n,m:integer):mas;
var i,j,k:integer;
buf:real;
begin
for k:=1 to n do
for i:=1 to n-1 do
if a[i,1]<=a[i+1,1] then
for j:=1 to m do
 begin
  buf:=a[i,j];
  a[i,j]:=a[i+1,j];
  a[i+1,j]:=buf;
 end;
sort:=a;
end;
var a:mas;
    n,m,i,j:byte;
begin
clrscr;
randomize;
n:=6;
m:=5;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
a:=Sort(a,n,m);
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:6:2);
  writeln;
 end;
 end.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.06.2010, 21:32	2
	Kizer, В паскале сортировками занимаются процедуры, которые умеют передавать отсортированный массив в виде параметра в программу, значением функции массив быть не может. 1

@Kizer 80 / 82 / 36 Регистрация: 20.11.2009 Сообщений: 326
	19.06.2010, 23:00 [ТС]	3
	Puporev, понятно, но компилятор съедает... 1

@DeLuxe 156 / 158 / 93 Регистрация: 01.01.2010 Сообщений: 398
	20.06.2010, 00:13	4
	Сообщение от Kizer Puporev, понятно, но компилятор съедает... Что значит сьедает?Кусок написанного вами кода компилятор не сможет выполнить, он написан в корне неправильно. 0

	20.06.2010, 08:20