Автор: setare 18.03.2005 22:19
Здравствуйте! Это опять я! Недавно нам задали задачу о счастливых билетиках. Надо написать ее с помощью перебора с возратом. Я как бы поняла как писать, но что-то оно у меня не работает. Не могли бы вы сказать в чем проблема. Спасибо. Здесь надо найти все счастливые билетики и распечатать их сумму в файл. А также все возможные ьилеты с неповторяющимися цифрами.
Код
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.
Автор: virt 19.03.2005 1:30
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 21.03.2005 18:07
мне понравилось
Код
procedure summa(var f:text);
var
s:integer;
begin
s:=0;
s:=s+head;
end;
не проще s:=head. да и нафига? +там ещё и файловую переменную передаём.
Автор: Stream 21.03.2005 18:45
Цитата(FreeMan @ 21.03.05 14:07)
мне понравилось
Код
procedure summa(var f:text);
var
s:integer;
begin
s:=0;
s:=s+head;
end;
не проще s:=head. да и нафига? +там ещё и файловую переменную передаём.
а чего? Зато все как на ладони. Мощная процедура.