Строки в паскале

[DomiNik]

Даны две строки символов S1 и S2. Выяснить, верно ли, что среди
символов строки S1 имеются все буквы строки S2.

uses crt ;
var s1,s2:string;
i,j:integer;
notFound,res:boolean;
begin
clrscr;
writeln('Enter first string');
readln(s1);
writeln('Enter second string');
readln(s2);
for i:=1 to length(s1) do s1[i]:=upcase(s1[i]);
for i:=1 to length(s2) do s2[i]:=upcase(s2[i]);
res:=true;
i:=1;
while (i<=length(s2)) and (res) do begin
j:=1;
notFound:=true;
while (j<=length(s1)) and (notFound) do begin
if s2[i]=s1[j] then notFound:=false;
inc(j);
end;
if notFound then res:=false;
i:=i+1;
end;
if res then writeln('All letters from second string are present in the first string')
else writeln('Some letters from second string are not present in the first string');
readln;
end.

Проверьте, пжл, она работает не верно((( Оччч нужно

[savva]

здравствуй.

на чем пишешь?

просто я не знаю что за upcase.

да,кстати, в чем собственно ошибка у тебя?не компилируется или результат не тот или что-то ещё?

парень я вроде нашел твою ошибку.


for i:=1 to length(s1) do s1[i]:=upcase(s1[i]);
for i:=1 to length(s2) do s2[i]:=upcase(s2[i]);

ну и просмотри прочие свои строчки кода там тоже с 1 начинается
строки начинаются с [0] как и массивы и прочая лабуда.

[DomiNik]

результат не тот, при вводе "мама" и "амам" выдает что нет символов в первой строке; в паскале

[savva]

ну читай выше.

[DomiNik]

спс, я нашел ошибку

[savva]

"+" в карму)

[Grag]

savva, символы в Паскалевой строке располагаются с индекса = 1. В нулевом байте находится значение длины строки... В связи с этим длину строки можно определять как Length(Line), так и Line[0]...

[savva]

спасибо за разъяснение.