Где ошибка?

@zooxie · Регистрация: 18.10.2016

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

Delphi

program Project1;
{$APPTYPE CONSOLE}
type
mas=array of real;
var
A:mas;
min,z:real;
k,i,m,b,c:integer;
procedure zapoln(k1:integer;var a1:mas);
var i:integer;
begin
randomize;
for i:=1 to k1 do
a1[i]:=random(10);
end;
procedure poiskmin(a2:mas;k2:integer;var min1:real;m1:integer);
var i:integer;
begin
min1:=a2[1];m1:=1;
for i:=1 to k2 do
if a2[i]<min1 then
begin
min1:=a2[i];
m1:=i;
end;end;
procedure smena(b4,k4:integer;z4,min4:real;var a4:mas);
var i:integer;
begin
z4:=min4;
min4:=a4[b4];
a4[b4]:=z4;
end;
procedure delenie(c3:integer;min3:real;var a3:mas);
var i:integer;
begin
for i:=1 to c3 do
a[i]:=a[i]/min3;
end;
begin
writeln('vvedite razmernost');
readln(k);
setlength(a,k);
zapoln(k,a);
poiskmin(a,k,min,m);
writeln('min element= ',min:8:3);
writeln('-----------------------------------------');
writeln('do smeni: ');
for i:=1 to k do
writeln(a[i]:8:3);
writeln('-----------------------------------------');
writeln('vvedite nomer elementa dlya smeni');
readln(b);
smena(b,k,z,min,a);
writeln('-----------------------------------------');
writeln('posle smeni:');
for i:=1 to k do
writeln(a[i]:8:3);
writeln('-----------------------------------------');
writeln('vvedite element do kotorogo vipolnyat delenie');
readln(c);
delenie(c,min,a);
writeln('posle deleniya: ');
for i:=1 to k do
writeln(a[i]:8:3);
readln;
end.

Программа должна поменять местами элемент с заданным номером и самый левый
минимальный элемент, после чего все элементы, имеющие номера с
первого по заданный, поделить на найденное минимальное значение.
У меня всё выполняется , но когда меняет местами , то минимальное ставиться на позицию b , но на место минимального не приходит , то что стояло на позиции b.
В чём тут ошибка

@Пытливый · 16.11.2016, 22:59

Динамический массив начинается не с 1, а с 0 элемента, а потому не

Delphi

1	for i:=1 to k1 do

а

Delphi

1	for i:=0 to k1-1 do

ну и везде поправить надо

@zooxie · 16.11.2016, 23:24 **[ТС]**

Пытливый, теперь вообще не меняет

Добавлено через 18 минут
Что ещё посоветуете?

@northener · 17.11.2016, 01:07

Помимо совета Пытливый #2
могу еще посоветовать две вещи.
Первое это в процедуре smena параметр min4 объявить как var.
Второе это использовать нормальное форматирование кода. Он же у вас просто нечитаемый!

@HiredKiller · 17.11.2016, 01:35

код отформатирован

Кликните здесь для просмотра всего текста

Delphi

program Project1;
{$APPTYPE CONSOLE}
 
type
  mas = array of real;
 
var
  A: mas;
  min, z: real;
  k, i, m, b, c: integer;
 
procedure zapoln(k1: integer; var a1: mas);
var
  i: integer;
begin
  randomize;
  for i := 1 to k1 do
    a1[i] := random(10);
end;
 
procedure poiskmin(a2: mas; k2: integer; var min1: real; m1: integer);
var
  i: integer;
begin
  min1 := a2[1];
  m1 := 1;
  for i := 1 to k2 do
    if a2[i] < min1 then
    begin
      min1 := a2[i];
      m1 := i;
    end;
end;
 
procedure smena(b4, k4: integer; z4, min4: real; var a4: mas);
var
  i: integer;
begin
  z4 := min4;
  min4 := a4[b4];
  a4[b4] := z4;
end;
 
procedure delenie(c3: integer; min3: real; var a3: mas);
var
  i: integer;
begin
  for i := 1 to c3 do
    a[i] := a[i] / min3;
end;
 
begin
  writeln('vvedite razmernost');
  readln(k);
  setlength(a, k);
  zapoln(k, a);
  poiskmin(a, k, min, m);
  writeln('min element= ',min:8:3);
  writeln('-----------------------------------------');
  writeln('do smeni: ');
  for i := 1 to k do
  writeln(a[i]:8:3);
    writeln('-----------------------------------------');
  writeln('vvedite nomer elementa dlya smeni');
  readln(b);
  smena(b, k, z, min, a);
  writeln('-----------------------------------------');
  writeln('posle smeni:');
  for i := 1 to k do
  writeln(a[i]:8:3);
    writeln('-----------------------------------------');
  writeln('vvedite element do kotorogo vipolnyat delenie');
  readln(c);
  delenie(c, min, a);
  writeln('posle deleniya: ');
  for i := 1 to k do
  writeln(a[i]:8:3);
    readln;
end.

зачем передавать в каждою процедуру ваш массив
как по мне проще будет работать на прямую, так как у вас он объявлен глобально да и размер массива (у вас переменная К, К1 и тд) можно получать Length(A)
у всех процедурах где идет работа с массивом нужно начинать работу с 0 т.е

Delphi

1	for i := 0 to Length(A)-1 do

и тд

@zooxie 0 / 0 / 0 Регистрация: 18.10.2016 Сообщений: 34
	16.11.2016, 23:24 [ТС]	3
	Пытливый, теперь вообще не меняет Добавлено через 18 минут Что ещё посоветуете? 0

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	17.11.2016, 01:07	4
	Помимо совета Пытливый #2 могу еще посоветовать две вещи. Первое это в процедуре smena параметр min4 объявить как var. Второе это использовать нормальное форматирование кода. Он же у вас просто нечитаемый! 0

	17.11.2016, 01:35