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

Тема в разделе "Pascal and Delphi", создана пользователем -, 8 июн 2010.

  1. Гость

    написала программу по условию : Запишите условие истинное, если в записи фамилии «Соколенко» не встречается буква «я».
    Код (Delphi):
    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-ое условие. не могу понять в чем ошибка..помогите пожалуйста
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    а кто программу писал?) где здесь сравнение на фамилию, где здесь "я"?
    бред полный...



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

    isqoff Гость

    Код (Delphi):
     
    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.
    может слишком сложно написал???
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Код (Delphi):
    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.
     
  5. Гость

    спасибо всем большое!!! очень помогли! :) :) :) :not
     
Загрузка...

Поделиться этой страницей