Приклад 2

Приклад 1.

Приклад.

var x:real;

y:integer;

st,st1:string;

begin

st:=concat('12','345'); {рядок st містить 12345}

st1:=copy(st,3,length(st)-2); {st1 містить 345}

insert('-',st1,2); {рядок st1 містить 3-45}

delete(st,pos('2',st),3); {рядок st містить 15}

str(pi:6:2,st); {рядок st містить 3.14}

val('3.1415',x,y); {у містить 2, х без змін}

Розробити програму введення з клавіатури рядка символів та порахувати загальну кількість символів '+', '–', '*'.

Program stroka;

const N=10;

var s:string[N];

i, m: integer;

begin

writeln (’Введите строку символов’);

readln(s);

m:=0;

for i:=1 to length(s) do

if (s[i] = '+') or (s[i] = '–') or (s[i] = '*')

then m:=m + 1;

writeln('m= ',m);end.

У лабораторії є 10 приладів з номерами ВК, РО та послідовності з чотирьох цифр (наприклад ВК2137 і т. д.). Скласти програму визначення кількості номерів, які починаються з ВК. Номери увести з клавіатури.

Program navt;

type number=string [6];

var na:array[1..10] of number;

S:number;

i,n:byte;

begin

for i: = 1 to 10 do

begin

writeln('Ввести номер', i: 2, '-го');

readln(na[i])

end;

n:=0;

for i:=1 to 10 do

begin

S: = na[i];

if (s[1] ='B') and (s[2] = 'K')

then n: = n+1;

end;

writeln('Количество приборов ВК = ', n: 2);end.

Завдання:

Виконати на комп’ютері програму опрацювання символьних даних відповідно до варіанта, вказаного у табл. 30.

Таблиця 30

№ з/п	Завдання
	Складіть алгоритм і програму перевірки, чи є в заданому тексті баланс дужок, що відкриваються і закриваються.
	Для пар поруч розташованих символів, що зустрілися в заданому тексті, знайти скільки разів зустрічається кожне з таких двосимвольних сполучень.
	Знайти найдовше симетричне слово заданого речення, наприклад, “ПОТОП”.
	У заданому реченні знайти найкоротше і найдовше слова.
	Скласти алгоритм і програму підрахунку сумарного числа літер “а” і літер “б” у заданому реченні.

Закінчення табл. 30

№ з/п	Завдання
	Складіть алгоритм заміни в якій-небудь літерній величині всіх букв “о” на букву “к”, і навпаки (при такій заміні, наприклад зі слова “око” повинно утворитися слово “кок”).
	Складіть алгоритм, що подвоює кожну літеру в заданому тексті (при цьому, наприклад, із слова “паскаль” повинно вийти слово “ппаассккаалльь”).
	Складіть алгоритм, що з’ясовує, чи є дане слово симетричним. Так називають слова, що читаються однаково зліва направо і справа наліво. Наприклад: потоп, зараз.
	Складіть алгоритм, що викреслює з даного слова всі літери “а” (так, щоб, наприклад, із слова “заноза” вийшло слово “зноз”).
	Складіть алгоритм, який кожну літеру “б”, що зустрічається в слові, заміняв би сполученням літер “ку”. Так, щоб, наприклад, із слова “абракадабра” утворилося слово “акуракадакура”.
	З допомогою операції вирізання і склеювання скласти із частин слова “інтеграл” слова “гантелі”, “рентген”, “ген”, “агент”.
	Напишіть алгоритм, що підраховує, чи є частиною даного слова слово “сок”. Відповідь повинна бути “так” або “ні”. Наприклад, для слів “сокіл” і “кусок” відповідь “так”, а для слова “кокос” – “ні”.
	Напишіть алгоритм, що підраховує, скільки разів у даному слові зустрічається сполучення “со” (наприклад, в слові “согласование” воно зустрічається 2 рази).

Дата добавления: 2015-05-24