! | Пользуйся тегами ! klem4 |
program search;
uses
crt;
var
res:text;
x,v,k,s,s1,s2:string;
n:boolean;
m,l,i,b,p:integer;
z:longint;
c:char;
BEGIN
assign(res,'BD.che');
write ('[vvedite CTOUMOCTb iskomogo produkta] ');
readln(x);
z:=length(x);
reset(res);
while not EOF(res) do
begin
readln(res,k);
p:=pos('_',k);
s1:=k;
s2:=k;
delete(s1,1,p);
delete(s2,p,length(k));
l:=length(s1);
for i:=1 to l do begin
for m:=1 to z do
if s1[i]=x[m] then begin;
n:=true;
inc(i);
end else begin
n:=false;
break;
end;
if n=true then
begin
writeln(s2+' '+s1+'pyb.');
end; end;
end;
close(res);
readln;
end.
Так не проще?
program search;
uses
crt;
var
res:text;
x, price: integer;
s: string;
code, pp: integer;
BEGIN
assign(res,'BD.che');
write ('[vvedite CTOUMOCTb iskomogo produkta] ');
readln(x);
reset(res);
while not EOF(res) do begin
readln(res, s);
pp := pos('_', s);
val(copy(s, pp + 1, 255), price, code);
if (code = 0) and (price = x) then
writeln(copy(s, 1, pp - 1) + ' ', x, ' pyb.');
end;
close(res);
readln;
end.