Циклический процесс со счетчиком

[kuy]

Здравствуйте, помогите пожалуйста написать код для задачи:
Даны символы s1,s2,... Известно, что символ s1 отличен от восклицательного знака и что среди s2,s3... есть по крайней мере один восклицательный знак. Пусть s1,...,sn-символы последовательности, предшествующие первому восклицательному знаку (n заранее неизвестно). Выяснить, входит ли в последовательность s1,...sn буква ю.

[NetSpace]

так, знак "!" имеет код 33, значит, а буква "я" имеет код 255.

Write('введите с клавиатуры символ S1:')
Read(S1);
Write('введите N = ');
Read(N);
A:=Ord(s1);//код символа;
if(255<=(A+N))then Write('буква Я присутствует в этой последовательности');
if((A+N)<255)then Write('буква Я отсутствует в этой последовательности');

[Fi11eR]

n неизвестно заранее, так что скорее так:

ifin:=false;
repeat
read(c);
if c='ю' then ifin:=true;
until c='!';

[kuy]

Fi11eR спасибо, вот что получилось:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
ifin: boolean;
c: char;
i:integer;
begin
i:=1;
ifin:=false;
repeat
write('Input S',i,': ');
readln(c);
if c='u' then ifin:=true;
inc(i);
until c='!';
if ifin=false then writeln('''u'' isn''t in S1..S',i-1);
if ifin=true then writeln('''u'' is in S1..S',i-1);
readln;
end.

Кстати вопрос: кто-то знает как сделать так чтобы в консоли выводились русские буквы? Пишу русские - оно мне символы место них выводит, а в примирах програм часто русскими пишут и нормально всё..

[Serge_Bliznykov]

Кстати вопрос: кто-то знает как сделать так чтобы в консоли выводились русские буквы? Пишу русские - оно мне символы место них выводит, а в примирах програм часто русскими пишут и нормально всё..

кстати, неплохо бы научиться пользоваться поиском по форуму.
да и помнить, что одна тема - один вопрос..

ну да ладно.
вот один из вариантов решения:

program StrAnsiToOem;
{$APPTYPE CONSOLE}
uses SysUtils, Windows;

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

begin
WriteLn(StrAnsiToOem('Теперь в консоли всё будет по русски!'));
Readln
end.

А поиском я рекомендовал воспользоваться ради
вот этой темы: Русский текст в консоли

[Fi11eR]

Сообщение от kuy

if ifin=false

if ifin=true

Аж глаза режет, пиши просто if ifin или if not(ifin)

[kuy]

Fi11eR, ну я незнал что так можна, спасибо, так теперь буду)