Учеба и наука
Решено
Написать программу в Паскале. - вопрос №551446
Даны две буквенные цепочки a и b. Составьте программу, которая может сказать совпадают ли эти цепочки с точностью до пробелов. Внимание: вы не имеете права изменять цепочки a и b, вы не имеете права порождать новые цепочки. Это запрещает вам удалять пробелы из обеих цепочек или копировать их, удаляя пробелы. Под равенством с точностью до пробелов нужно понимать, что обе
февраль 13, 2013 г.
-
Всего ответов: 3
-
на каком Языке?
-
program compareChains;
var
ch1, ch2: string;
i1, i2, ln1, ln2: integer;
b: boolean;
begin
write('Введите цепочку 1 ');
readln(ch1);
writeln('');
write('Введите цепочку 2 ');
readln(ch2);
writeln('');
i1 := 1;
i2 := 1;
b := true;
ln1 := length(ch1);
ln2 := length(ch2);
while true do
begin
while (i1 <= ln1) and (ch1[i1] = " ") do i1 := i1 + 1;
while (i2 <= ln2) and (ch2[i2] = " ") do i2 := i2 + 1;
if (i1 > ln1) or (i2 > ln2) then
begin
b := (i1 > ln1) and (i2 > ln2);
break;
end;
if ch1[i1] <> ch2[i2] then
begin
b := false;
break;
end;
i1 := i1 + 1;
i2 := i2 + 1;
end;
if b then
writeln('Совпадают с точностью до пробелов.')
else
writeln('Не совпадают с точностью до пробелов.')
end.Лучший ответ по мнению автора -
Program a1;
var i,j,n:integer; a,b:string; tf:boolean;
begin
write('string a = ');
readln(a);
write('string b = ');
readln(b);
tf:= true;
if (length(a)=length(b)) then
begin
for i:=0 to length(a) do
begin
if(a[i]<> b[i]) then
tf:= false;
end;
if( tf= true ) then
writeln('совпадают')
else
writeln('Не совпадают');
end
else
writeln('Не совпадают');
end.
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.