при проверке она всегда показывает что выражение истинное

[Guest]

написала программу по условию : Запишите условие истинное, если в записи фамилии «Соколенко» не встречается буква «я».

program z_4;
uses crt;
const
st='Sokolenko';
var s:string;
i,l:integer;
begin
if s[i]='i'
then
writeln ('uslovie lojnoe')
else
writeln ('uslovie istinnoe');
readln;
end.

почему то при проверке она всегда показывает что выражение истинное..т.е. всегда выдает 2-ое условие. не могу понять в чем ошибка..помогите пожалуйста

 

[hosm]

а кто программу писал?) где здесь сравнение на фамилию, где здесь "я"?
бред полный...

st='Sokolenko';
if s='i'

Добавлено: почитать про Pos или хотя бы циклы for, определиться, какую строку - s или st просматривать

 

[isqoff]

uses CRT;
const st = 'Sokolenko';
var i:integer;
ch : char;
ok : boolean;
BEGIN
ok := false;
ch := 'я';
for i := 1 to length(st)do
if st[i] = ch then ok:= not ok
else ok:= ok;

if ok then write('ok')
else write('not ok');
END.

может слишком сложно написал???

 

[Dock1100]

program z_4;
uses crt;
const
st='Sokolenko';
var s:string;
i:integer;
ind:boolen;
begin
s:=st;
ind:=false;
for i:=1 to length(s) do
if s[i]='i' then ind:=true;
if ind=false then writeln ('uslovie lojnoe')
else writeln ('uslovie istinnoe');
readln;
end.

 

[Guest]

спасибо всем большое!!! очень помогли! :not