Нет перегруженной подпрограммы с такими типами параметров

@Patriarh_Maxim · Регистрация: 26.10.2017

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

В 26 строчке ошибка нужно построить гистограмму значений массива звездочками, но сделать это при помощи процедуры или функции.
Вот сам код без подпрограммы:

Pascal

const
  N = 5;
 
var
  mas: array [1..N] of integer; 
  i, z: integer;
 
begin
  begin
    for i := 1 to N do 
      mas[i] := i; 
  end; 
  for i := 1 to N do 
  begin
    for z := 1 to mas[i] do 
    begin
      write('*'); 
    end; 
    writeln(); 
  end; 
end.

А вот моя попытка работы с функцией

Pascal

const
  N = 5;
 
type
  mas = array [1..N] of integer;
 
function a(x: mas): integer;
var
  i, z: integer;
begin
  begin
    for i := 1 to N do 
      x[i] := i; 
  end; 
  for i := 1 to N do 
  begin
    for z := 1 to x[i] do 
    begin
      write('*'); 
    end; 
    writeln(); 
  end;
end;
 
begin
  writeln(a);
  
end.

@Cyborg Drone · 26.10.2017, 23:12

Ох, батюшки светы...

Более уместна процедура. Функция должна возвращать в основную программу какое-то значение, здесь этого не требуется. Вот Вам для примера:

Pascal

const N = 5;
 
type mas = array [1..N] of integer;
 
procedure prn(t: mas);
var i, z: integer;
begin
  for i := 1 to N do
    begin
      for z := 1 to t[i] do write('*');
      writeln
    end
end;
 
var i: integer;
    x: mas;
begin
  for i := 1 to N do x[i] := i;
  prn(x)
end.

И проштудируйте подпрограммы. Пока что Вы не умеете их применять.

@Patriarh_Maxim · 26.10.2017, 23:18 **[ТС]**

Спасибо, буду учить

@Patriarh_Maxim 0 / 0 / 0 Регистрация: 26.10.2017 Сообщений: 12
	26.10.2017, 23:18 [ТС]	3
	Спасибо, буду учить 0