Строки. Турбо-Паскаль.

[hewlett]

Помогите решить:
1.Дана строка. Заменить все символы 'о' на 'а'
2.Определить, является ли заданная строка палиндромом (пример палиндрома:'А РОЗА УПАЛА НА ЛАПУ АЗОРА')
3.Дан текст из n (n<256) литер. Напечатать только строчные русские буквы, входящие в этот текст. Указание: Использовать множество.
4.Строка символов представляет собой текст, слова в котором разделены одним или более пробелами. Преобразовать эту строку так, чтобы все слова разделились ровно одним пробелом, а ведущие и хвостовые пробелы отсутствовали.
5.Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы "b".
6.Дана строка, состоящая из нескольких слов, между соседними словами не менее одного пробела, за последним словом - точка. Найти все слова, содержащие подстроку "рок".
7.Заданы два слова. Определить, можно ли получить второе слово из первого удалением некоторых его символов.
8.Перевести число, записанное римскими цифрами (для их записи используются латинские буквы I - 1, V - 5, X - 10, L - 50, C - 100, D - 500, M - 1000), в его десятичное представление.

[Google2010]

1.Дана строка. Заменить все символы 'о' на 'а'

for i:=1 to length(s) do
if s[i]='o' then s[i]:=a;

2.Определить, является ли заданная строка палиндромом (пример палиндрома:'А РОЗА УПАЛА НА ЛАПУ АЗОРА')

for i:=1 to length(s) do
if s[i]:=' ' then s[i]:='';
k:=length(s);
p:=true;
for i:=1 to k div 2 do
if  s[i]<>s[k-i+1] then begin p:=false;break;end;
if p then writeln('yes')
else writeln('no');

3.Дан текст из n (n<256) литер. Напечатать только строчные русские буквы, входящие в этот текст.

for i:=1 to length(s) do
if s[i] in ['а'..'п','р'..'я'] then write(s[i],' ':3);

4.Строка символов представляет собой текст, слова в котором разделены одним или более пробелами. Преобразовать эту строку так, чтобы все слова разделились ровно одним пробелом, а ведущие и хвостовые пробелы отсутствовали.

while pos('  ',s)<>0 do
    delete(s,pos('  ',s),1);
  while s[1]=' ' do
     delete(s,1,1);
  while s[length(s)]=' ' do
     delete(s,length(s),1);

5.Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы "b".

c:=0;
for i:=2 to length(s) do
if (s[i]:=b) and (s[i-1]=' ') then inc(c)
if s[1]:=b then inc(c);

6.Дана строка, состоящая из нескольких слов, между соседними словами не менее одного пробела, за последним словом - точка. Найти все слова, содержащие подстроку "рок".

sub:='';
  k:=0;
  c:=0;
  for I := 1 to length(s)  do
   if (s[i]=' ') and (sub<>'') then begin inc(k); a[k]:=sub;sub:='';end
   else if s[i]<>' '  then sub:=sub+s[i];
  if sub<>'' then begin inc(k);a[k]:=sub; end;
  for i := 1 to k do
  if pos('pok',a[i]) then writeln(a[i]);

8.Перевести число, записанное римскими цифрами (для их записи используются латинские буквы I - 1, V - 5, X - 10, L - 50, C - 100, D - 500, M - 1000), в его десятичное представление.

k:=0;
  for I := 1 to length(s) do
   case s[i] of
     'I':inc(k,1);
     'V':inc(k,5);
     'X':inc(k,10);
     'L':inc(k,50);
     'C':inc(k,100);
     'D':inc(k,500);
     'M':inc(k,1000);
  end;

[hewlett]

upupupupup

[Serge_Bliznykov]

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

upupupupup

лучше бы Большое спасибо господину Google2010 сказали! ;(

И ещё, "помогите решить" - это значит, что Вы пытаетесь решить и у Вас что-то не получается.
А так это называется - "сделайте за меня". И вообще-то это такое обычно попадает во фриланс, где вам всё решат (но за деньги).

8.Перевести число, записанное римскими цифрами (для их записи используются латинские буквы I - 1, V - 5, X - 10, L - 50, C - 100, D - 500, M - 1000), в его десятичное представление.

взял задачу из своего архива (хотя уже публиковал здесь на форуме этот же исходник, можно и продублировать )

{Перевод из арабской в римскую систему и наоборот

Алгоритм весьма прост и извлекается непосредственно из исходника.
}

{ Copyright MM Andrew Usachov }

const

  R: array[1..13] of string[2] =
  ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');

  A: array[1..13] of Integer =
  (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);

function Roman(N: Integer): string;
var Result: string;
  i: Integer;
begin
  Result := '';
  i := 13;
  while N > 0 do
  begin
    while A[i] > N do Dec(i);
    Result := Result + R[i];
    Dec(N, A[i]);
  end;

  Roman := Result;

end;

function Arabic(S: string): Integer;
var Result: Integer;
  i, p: Integer;
begin
  Arabic := -1;
  Result := 0;
  i := 13;
  p := 1;
  while p <= Length(S) do
  begin
    while Copy(S, p, Length(R[i])) <> R[i] do
    begin
      Dec(i);
      if i = 0 then Exit;
    end;
    Result := Result + A[i];
    p := p + Length(R[i]);
  end;
  if Roman(Result) = S then Arabic := Result
end;

var N, Err: Integer;
  S: string;
begin
  repeat
    ReadLn(S);
    if S = '' then Break;
    Val(S, N, Err);
    if Err = 0 then
      WriteLn(Roman(N))
    else
      WriteLn(Arabic(S));
  until false;
end.