Помогите в написании функции

@nozzz · Регистрация: 09.04.2015

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

Такой вид она имеет в DELPHI:
-------------------------------

Pascal

Function a_b:boolean;      
var k,i,j:byte;            
Z_a,Z_b:predpr;
d:boolean;
Begin
Nul(Z_a); Nul(Z_b);
alfa[1]:=0;
Z_a[1]:=1;
k:=1;
Repeat
d:=1=1;
for i:=1 to Na do
if Z_a[i]=1 then
for j:=1 to Nb do
if (p[i,j]>-1) and (Z_b[j]=0) then
begin
   Z_b[j]:=1;
   betta[j]:=c[i,j]-alfa[i];
   inc(k);
   d:=1=2;
end;
for i:=1 to Nb do
if Z_b[i]=1 then
for j:=1 to Na do
if (p[j,i]>-1) and (Z_a[j]=0) then
begin
   Z_a[j]:=1;
   alfa[j]:=c[j,i]-betta[i];
   inc(k);
   d:=1=2;
end;
Until (k>=Na+Nb) or d;
 
if d then
begin
   i:=1;
   While (Z_a[i]=1) and (i<Na) do
   begin
      inc(i);
      d:=true;
   end;
   
   j:=1;
   While (Z_b[j]=0) and (j<Nb) do
   begin
      inc(j);
      d:=true;
   end;
   p[i,j]:=0;
   write(fpout,' p[',i,',',j,']=',p[i,j]);
   if ((j >= Nb) and ( right_or_not = 'no' )) then write(fpout,' ôèêò. ');
end;
 
a_b:=d;
end;

@nozzz · 25.04.2006, 22:25

Мне вожно описание ее, а не тело!

@VladConn · 25.04.2006, 23:42

Eto ee priblizitel'nyj vid v VB6.
A chto ona delaet: v ciklax schitaet uslovno massivi, zachem-to pereustanavlivaet boolean "d", delaet ee TRUE, kogda ona uzhe i tak TRUE. Zatem vozvraschaet kak znachenie funkcii a_b.

Visual Basic

Private Function a_b() As Boolean
    Dim k As Byte
    Dim i As Byte
    Dim j As Byte
    Dim Z_a(Na) As Variant
    Dim Z_b(Na) As Variant
    Dim d As Boolean
    
    Nul (Z_a) '?
    Nul (Z_b) '?
    
    alfa(1) = 0
    Z_a(1) = 1
    k = 1
    
    Do
        d = True
        
        For i = 1 To Na
            If Z_a(i) = 1 Then
                 For j = 1 To Nb
                    If P(i, j) > -1 And Z_b(j) = 0 Then
                       Z_b (j) = 1
                        betta(j) = c(i, j) - alfa(i)
                        inc (k)
                        d = False
                    End If
                 Next j
            End If
        Next i
        
        For i = 1 To Nb
            If Z_b(i) = 1 Then
                For j = 1 To Na
                    If P(j, i) > -1 And Z_a(j) = 0 Then
                        Z_a(j) = 1
                        alfa(j) = c(j, i) - betta(i)
                        inc (k)
                        d = False
                    End If
                Next j
            End If
        Next i
        
    Loop Until k >= Na + Nb Or d
    
    If d Then
        i = 1
        
        Do While Z_a(i) = 1 And i < Na
            inc (i)
            d = True
        Loop
        
        j = 1
        Do While Z_b(j) = 0 And j < Nb
            inc (j)
            d = True
        Loop
        
        P(i, j) = 0
        Debug.Print "write(fpout,' p[',i,',',j,']=',p[i,j])"
        If (j >= Nb) And (right_or_not = "no") Then
            Debug.Print "ôèêò." 'write(fpout,' ôèêò. ');
 
        End If
    End If
    
    a_b = d
    
End Function
 
vladconn

@nozzz 0 / 0 / 0 Регистрация: 09.04.2015 Сообщений: 3
	25.04.2006, 22:25	2
	Мне вожно описание ее, а не тело! 0

	25.04.2006, 23:42