ПОМОГИТЕ ПОЖАЛУЙСТА)) дан...

Тема в разделе "Информатика", создана пользователем fcuked, 4 апр 2010.

  1. fcuked

    fcuked New Member

    ПОМОГИТЕ ПОЖАЛУЙСТА)) дан исходный текст. проверить является ли он перевертышем. ( читается туда и обратно одинаково, например КОМОК). x- исходныйтекст, у- текст в обратном порядке. Вывести на кран, "является перевертышем" или "не является перевертышем".
     
  2. Urshul@

    Urshul@ New Member

    var
      s:string;

    {функция проверки на палиндром}
    function palind(s:string):boolean;
    var
      i:integer;
      fl:boolean;
    begin
      fl:=true;
      for i:=1 to length(s) div 2 do
        if s<>s[length(s)-i+1] then
          fl:=false;
      Result:=fl
    end;

    {основная программа}
    begin
      writeln('Введите строку...');
      readln(s);
      if palind(s) then
        writeln('Данная строка является палиндромом!')
      else
        writeln('Данная строка НЕ является палиндромом!')
    end.

    Без функции:
    var
    s:string;
    i:integer;
    palin:boolean;
    {основная программа}
    begin
      writeln('Введите строку...');
      readln(s);
    fl:=true;
      for i:=1 to length(s) div 2 do
        if s<>s[length(s)-i+1] then
          fl:=false;
    if palin then
        writeln('Данная строка является палиндромом!')
    else
        writeln('Данная строка НЕ является палиндромом!')
    end.
     

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

Наша группа