Строковые типы данных

[grev_4]

Если есть возможность, то помогите, пожалуйста, выполнить следующие задачи:

1. Вывести все слова из строки в столбик.
2. Проверить, является ли строка палиндромом (Аргентина манит негра).
3. Подсчитать сумму цифр в строке.
4. Удалить из строки все символы, равные заданному.
5. Подсчитать количество слов в строке, начинающихся на заданную букву.
6. Получить из данной строки новую строку, в которой каждый символ продублировать.
7. Составить программу для диалога с пользователем (3 вопроса).

[Niro]

нет конкретных вопросов - нет помощи, решить за вас - не за бесплатно

[Stilet]

Вывести все слова из строки в столбик.

http://www.programmersforum.ru/showt...369#post398369

Проверить, является ли строка палиндромом (Аргентина манит негра).

http://www.programmersforum.ru/showthread.php?t=20138

[grev_4]

2. Проверить, является ли строка палиндромом (Аргентина манит негра).

{программа проверяет, является ли фраза палиндромом.
слова разделяются произвольным числом пробелов}
program p9_5;
var s: string; {заданная фраза}
{функция проверяет, является ли фраза палиндромом}
function fpol (s: string): boolean;
var n, {длина фразы}
i, {индекс анализируемого символа слева}
j: byte; {индекс анализируемого символа справа}
c1, {очередной символ слева}
c2: char; {очередной символ справа}
p: boolean; {изменится на false, если символы не равны}
begin p := true;
n := length (s);
i := 1; {слева от i символы просмотрены}
j := n; {справа от j символы просмотрены}
c1 := s[i]; {первый не просмотренный символ слева}
c2 := s[j]; {первый не просмотренный символ справа}
while (i < j) and p do
if c1 =' '
then {пробел слева пропускаем, сдвигаясь вправо}
begin i:=i+1; c1:=s[i] end
else
if c2 =' '
then
{пробел справа пропускаем, сдвигаясь влево}
begin j:=j-1; c2:=s[j] end
else {оба символа не пробелы}
if c1 <> c2
then p := false {фраза не палиндром}
else Begin i:=i+1; c1:=s[i];
j:=j-1; c2:=s[j]
end;
fpol :=p
end;
begin writeln ('Введите фразу: '); readln (s);
if fpol (s)
then writeln (' фраза является палиндромом')
else writeln (' фраза не палиндром')
end.

[DRAgon™]

7)
На те разговорчик

USES crt;
VAR	Otvet:String;
 BEGIN
WriteLn ('Здравствуй, я компьютер, а тебя как зовут?');
ReadLn(Otvet);
WriteLn('Очень приятно,otvet ,Сколько тебе лет?');
ReadLn (Otvet);
if Otvet<='17'
then
   Begin WriteLn ('В какой школе ты учишься?');
         ReadLn(Otvet);
         WriteLn('Неплохая школа');
       end
     else
       begin WriteLn('В каком институте ты учишься?');
             ReadLn(Otvet);
             WriteLn('Хороший институт');
          end;
       WriteLn('До следующей встречи!');
        Readln;
       END.

[DRAgon™]

4)

USES CRT;
VAR k:string;
      i:integer;
BEGIN
readln(s);
readln(k);//удаляем
for i:=1 to length(s) do 
Delete(s,Pos(k,s),1);
Writeln;
Write(s);
end.

[grev_4]

5. Подсчитать количество слов в строке, начинающихся на заданную букву.

program zadannayabukva;
uses crt;
const
  dividers = [' '];
var
  s,temp: string;
  i,c: integer;
  ch: char;
begin
  clrscr;
  writeln('Введите букву:');
  readln(ch);
  writeln('Введите строку:');
  readln(s);
  temp := '';
  c := 0;
  for i := 1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp := temp + s[i];
    if ((s[i] in dividers) or (i = length(s))) and (temp <> '') then
    begin
      if temp[1] = ch then
        inc(c);
      temp := ''
    end;
  end;
  writeln('Слов начинающихся на заданную букву: ', c)
end.

[grev_4]

3. Подсчитать сумму цифр в строке.

program summacifr;
uses crt;
var 
  d,i,k,n:integer;
  st:string;
begin
  clrscr;
  write('Введите строку (буквы и цифры): ');
  readln(st);
  k:=length(st);
  n:=0;
  for i:=1 to k do
    begin
      val(st[i],d,k);
      if k=0 then n:=n+d;
    end;
  writeln('Сумма цифр в строке = ',n);
  readln;
end.