Файл даних

Приклад 16.4

Результат

Приклад 16.3

Результати

length(dlina)=0

flower-red_rose

length(lin)=15

delete- flower-_rose

insert- flower-yellow_rose

upcase- Flower-yellow_rose

lin=18

Задано текст, що складається з декількох слів, які відокремлені одне від одного пробілами. Визначити чи є у тексті слова, які читаються однаково, як зліва направо так і навпаки.

Задано текст, що складається з декількох слів, які відокремлені одне від одного пробілами. Визначити чи є у тексті слова, які читаються однаково, як зліва направо так і навпаки.

Розділ об’яв

Program slova_probil;

uses crt;

var s,old,new:string; r,k,n,j:integer;

Розділ інструцій

BEGIN clrscr; readln(s); j:=0;

repeat begin k:=pos(' ',s); {відшукується позиція пробіла}

old:=copy(s,1,k); {копіювання слова з пробілом включно}

write(' old=',old); {друкування слів} new:=' ';

for n:=1 to k-1 do

new:=concat(s[n],new); {створення нового слова за рахунок перестановки літер, де n – позиція літери у слові}

writeln('new=',new); {друкування новоствореного слова}

if old=new then j:=j+1; {якщо слова співпадають значення лічильника збільшується на одиницю}

delete(s,1,k); end; {видалення поточного слова із рядка}

until k=0; {поки не залишиться ні одного пробіла}

writeln; write('j=',j); {друкування кількості відшуканих слів}

end.

Дані обов'язково повинні закінчуватися пропуском після останнього слова.

assa abba kit madam rot

Результат

old=assa new=assa

old=abba new=abba

old=kit new=tik

old=madam new=madam

old=rot new=tor

old=new= j=3

Задано текст, що складається з декількох слів, що відокремлені одне від одного комами, за останнім крапка. Визначити чи є у тексті слова, які читаються однаково, як зліва направо так і навпаки.

Розділ об’яв

Program slova_koma;

var s,old,new:string;

r,k,n,j:integer;

f,f1:text;

Розділ інструцій

BEGIN assign(f,'slkomad.pas');

reset(f);

assign(f1,'slkomar.pas');

rewrite(f1);

readln(f,s);

writeln(f1,s); j:=0;

while length(s)<>0 do begin

k:=pos(',',s);

if k=0 then k:= pos('.',s);

old:=copy(s,1,k-1);

write(f1,' old=',old);

new:=s[1];

for n:=2 to k-1 do

new:=concat(s[n],new);

writeln(f1,' new=',new);

if old=new then j:=j+1;

delete(s,1,k);

end;

writeln(f1); write(f1,'j=',j); close(f1);

end.

Файл даних slkomad.pas:

zaz,month,sos,assa,beeb,cat,dog.

Файл результатів slkomar.pas

zaz,month,sos,assa,beeb,cat,dog.

old=zaz new=zaz

old=month new=htnom

old=sos new=sos

old=assa new=assa

old=beeb new=beeb

old=cat new=tac

old=dog new=god

j=4

Лекція 17

Рядки (String) продовження.

Порівняння рядків

Довільні два рядки можна порівнювати один з одним за допомогою операцій відношення (=, <>, <, >, <=, =>).

Порівняння рядків відбувається зліва направо, до першого відмінного символу.

Рівні рядки

Два рядки вважаються рівними, якщо вони мають однакову довжину і складаються з однакових символів, що йдуть в одному і тому ж порядку.

Дата добавления: 2014-01-07