Перебор с возратом, Рекурсия Опции

[setare]

Здравствуйте! Это опять я! Недавно нам задали задачу о счастливых билетиках. Надо написать ее с помощью перебора с возратом. Я как бы поняла как писать, но что-то оно у меня не работает. Не могли бы вы сказать в чем проблема. Спасибо. Здесь надо найти все счастливые билетики и распечатать их сумму в файл. А также все возможные ьилеты с неповторяющимися цифрами.

Код

program biletiki;
var
 head,tail,newtail,newhead:string;
 f:text;
 flname:string[20];
 i:integer;
  procedure ticket(var f:text;var head,tail:string);
   var
   s,s1,code,chislo,m,n:integer;
     begin
      if length(head)=4 then
      begin
       s:=0;
       for m:=1 to 3 do
        val(head,chislo,code);
        s:=s+copy(head,m,1);
      end;
      s1:=0;
       for n:=4 to 6 do
        val(head,chislo,code);
        s1:=s1+copy(head,n,1);
     end;
      chislo:=chislo+1;
      if s:=s1 then
       writeln(f,head);
 procedure summa(var f:text);
   var
    s:integer;
      begin
         s:=0;
           s:=s+head;
      end;  
  begin
   writeln('Vvedite nazvaniye fila.');
   readln(flname);
   assign(f,flname);
   rewrite(f);
   for i:=1 to length(tail) do
    newhead:= head + copy(tail,i,1);
    delete(tail,1,i);
    newtail:=tail;
    ticket(newtail,newhead);
  end.

Сообщение отредактировано: setare - 18.03.2005 18:31

[virt]

1)этот код даже не скомпилится
2)что он делает?

теперь по существу ,
1)зачем в процедуре ticket параметр var f:text; хотя вызываете вы эту процедуру с 2 параметрами
2)

Код

   end;
     chislo:=chislo+1;
     if s:=s1 then
      writeln(f,head);

надо поменять на

Код

     chislo:=chislo+1;
     if s:=s1 then
      writeln(f,head);
end;

чтобы это компилилось.
3)зачем в процедуре summa передавать f:text? там наверное надо передавать строку с числом?

ЗЫ
вы этот код хотябы попытались скомпилить ,или сразу от балды сюда написали?

[FreeMan]

мне понравилось

Код

procedure summa(var f:text);
  var
   s:integer;
     begin
        s:=0;
          s:=s+head;
     end;

не проще s:=head. да и нафига? +там ещё и файловую переменную передаём.

[Stream]

мне понравилось

Код

procedure summa(var f:text);
  var
   s:integer;
     begin
        s:=0;
          s:=s+head;
     end;

не проще s:=head. да и нафига? +там ещё и файловую переменную передаём.

а чего? Зато все как на ладони. Мощная процедура.