Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задача на строки
Автор: Fatality 9.10.2004 20:44
Кто-нибудь ПОМОГИТЕ!!! В понедельник ЛАБОРАТОРНАЯ, надо сдать эту задачу!! Заранее ОЧЕНЬ БЛАГОДАРЕН!!!!
Задача:
Даны две одинаковых строки, в одной из них пропущена буква. Определите, в какой строке, в каком слове и какая буква.
Автор: Altair 9.10.2004 21:07
А лабораторные Нечаев принимает, да? ;)
ну и что тут такого?
сравниваешь поэлементно все символы и узнаешь какая буква и в какой строке.
А узнав строку, и номер символа, можешь вывести слово.
Автор: Amro 10.10.2004 0:43
Типа вот так мона.............
Код
program ex1;
uses crt;
var
st1,st2,st3,slovo: string;
i,k,k1,k2,n,q:integer;
f:char;
begin
clrscr;
st1:='В этой строке пропущена буква';
st2:='В этой стоке пропущена буква';
if length(st1)>length(st2) then
begin
for i:=1 to length(st1) do
if st1[i]<>st2[i] then
begin f:=st1[i]; k:=2; n:=i; break;
end else st3:=st2;
end
else for i:=1 to length(st2) do
if st2[i]<>st1[i] then
begin f:=st2[i];k:=1; n:=i; break;
end else st3:=st1;
for i:=n to length(st3) do
if st3[i]=' ' then begin k1:=i; break end;
for i:=n downto 1 do
if st3[i]=' ' then begin k2:=i; break end;
q:=k1-k2; slovo:=copy(st3,k2+1,q);
writeln('N1= "',st1,'"');
writeln('N2= "',st2,'"');
writeln('буква:',f:2,' пропущена в строке №:',k:2,' в слове "',slovo,'"');
end.
uses crt;
var
st1,st2,st3,slovo: string;
i,k,k1,k2,n,q:integer;
f:char;
begin
clrscr;
st1:='В этой строке пропущена буква';
st2:='В этой стоке пропущена буква';
if length(st1)>length(st2) then
begin
for i:=1 to length(st1) do
if st1[i]<>st2[i] then
begin f:=st1[i]; k:=2; n:=i; break;
end else st3:=st2;
end
else for i:=1 to length(st2) do
if st2[i]<>st1[i] then
begin f:=st2[i];k:=1; n:=i; break;
end else st3:=st1;
for i:=n to length(st3) do
if st3[i]=' ' then begin k1:=i; break end;
for i:=n downto 1 do
if st3[i]=' ' then begin k2:=i; break end;
q:=k1-k2; slovo:=copy(st3,k2+1,q);
writeln('N1= "',st1,'"');
writeln('N2= "',st2,'"');
writeln('буква:',f:2,' пропущена в строке №:',k:2,' в слове "',slovo,'"');
end.
Автор: Гость_Fatality 10.10.2004 18:14
Ещё раз спасибо!!!!!
Ты меня реально ВЫРУЧИЛ!!! :D 
:D