Текстові величини

Задача 2. Замініть у тексті числа «12» на «дванадцять» . Створіть новий текст.

Program t2;

var a, b : string; i: integer;

BEGIN

writeln (‘задай текст ’); readln (a);

a := ‘ ‘ + a + ‘ ‘; b:=’’;

for i:=1 to length(a) do

if copy(a,i,4)=’ 12 ’ then begin b := b + ’ дванадцять ’; i:=i+2; end else b:=b+a[i];

writeln ( b );

READLN END.

Задача 3. Створіть на основі заданого тексту новий, у якому будуть відсутні всі числа «125».

Program t3;

var a, b : string; i: integer;

BEGIN writeln (‘задай текст ’); readln (a);

a := ‘ ‘ + a + ‘ ‘; b:=’’;

for i:=1 to length(a) do

if copy(a,i,5) = ’ 125 ’ then begin b := b; i:=i+3; end else b:=b+a[i];

writeln ( b );

READLN END.

Задача 4. Перетворіть заданий текс таким чином, щоб у ньому після кожного числа «1234» стояв знак «*» .

Program t4;

var a, b : string; i: integer;

BEGIN

writeln (‘задай текст ’); readln (a); a := ‘ ‘ + a + ‘ ‘; b:=’’;

for i:=1 to length(a) do

if copy(a,i,6)=’ 1234 ’ then begin b := b + ’ 1234* ’; i:=i+4; end else b:=b+a[i];

writeln ( b );

READLN END.

Самостійна робота №2

Задача 2_с. Створіть новий текст, замінивши у ньому слова «three» на «3» .

Задача 3_с. Створіть на основі заданого тексту новий, у якому будуть відсутні всі слова «Book».

Задача 4_с. Перетворіть заданий текс таким чином, щоб у ньому перед кожним словом «word» стояло слово «MS» .

Домашнє завдання №2

1. Підрахуйте, скільки разів у тексті зустрічаються слова ’Windows’ і буква ’W’ . Чого в тексті більше?

2. Замініть у тексті всі слова «XP» на «VISTA».

3. Вилучіть з тексту всі склади «ko».

Урок 3.

Задача 5. Після кожної парної букви тексту вставити «*».

Program t5;

var a,b: string; i: integer;

BEGIN b:=’’;

writeln (‘задай текст ’); readln (a);

for i:=1 to length(a) do

if ( i mod 2 =0) then b:= b+a[i]+’*’ else b:=b + a[i];

writeln ( b );

READLN END.

Задача 6. Оберніть текст, після кожної букви вставити «*», подвойте її.

Program t5;

var a,b: string; i: integer;

BEGIN

b:=’’;

writeln (‘задай текст ’); readln (a);

for i:=1 to length(a) do b:= a[i]+a[i]+’*’+ b;

writeln ( b );

READLN END.

Задача 7. Утворіть послідовність за таким правилом: цифра 1 повторюється 1 раз , цифра 2 –двічі, цифра 3- тричі і т.д. Знайдіть, який символ стоїть на k-ому місці.

program zad_7;

var posl, it: string; sym : char; k,i,j,n : integer;

BEGIN

writeln ('zaday k'); readln (k);

posl := ''; i:=1;

repeat

str(i,it);

for j:=1 to i do posl:= posl+it;

n:=length(posl); i:=i+1;

until n>=k;

writeln ('poslydovnist=', posl);

sym := posl[k]; writeln ('symvol=',sym);

READLN END.

Самостійна робота №3

Задача 6_c. У тексті потройте кожну букву і вставте «-000-»

Задача 5_c. Після кожної п’ятої букви тексту вставити «***».

Задача 7_с. Утворіть послідовність, у якій записані куби послідовних натуральних чисел: 182764125…. Знайдіть, який символ стоїть на 25 місці.

Домашнє завдання №3