Приклад програми
Приклад 1. У введеному рядку, що містить слова, які відокремлюються одне від одного пробілами або комами, підрахувати кількість слів
program Lab_str;
uses crt;
var s:string; { рядок, що вводиться }
i:integer; { параметр циклу }
kol:integer; { кількість слів }
{============ вилучення пробілів, що повторюються =============}
procedure Blank;
begin
while (s[1] = ' ') do
Delete(s,1,1); {вилучення початкових пробілів}
while Pos(' ',s)<>0 do
Delete(s,Pos(' ',s),1); {вилучення повторних пробілів}
if s[Length(s)]<>0 then s:=s+' ';
end;
{================= визначення кількості слів ==================}
procedure Amount_words;
begin
kol:=0;
for i := 1 to Length(s) do
if s[i]=' ' then kol:=kol+1; {якщо є пробіл, то є слово}
WriteLn('Number of words : ',kol);
end;
{===================== основна програма ====================}
begin
TextBackGround (7);
TextColor (0);
ClrScr;
WriteLn('input string: '); ReadLn(s);
Blank; {вилучення пробілів, що повторюються}
Amount_words; {визначення кількості слів}
end.
Відеокопія результату
Варіанти завдань
У заданому рядку символів визначити кількість слів, довжина яких більша за вказану користувачем.
Заданий рядок символів, що містить цифри і пробіли. Групи цифр, що розділені пробілами (одним або декількома), вважаємо словами. Розглядаючи кожне слово як число, визначити їх суму.
У заданому рядку символів визначити слова, довжина яких співпадає із заданою користувачем.
У заданому рядку символів підрахувати кількість слів, які починаються групою заданих символів.
Із заданого рядка символів вилучити слова, довжина яких менша, за вказану користувачем.
У заданому рядку символів визначити кількість слів, у яких співпадають перший та останній символи. Слова відділяються довільною кількістю пробілів.
У заданому рядку символів знайти найдовше слово. Слова відділяються довільною кількістю пробілів, ком, крапок.
Ввести рядок символів, переформатувати його, подовживши до довжини 60 символів рівномірним додаванням пробілів між словами. Визначити кількість доданих пробілів.
У заданому рядку символів визначити символи, які зустрічаються по одному разу і надрукувати номери їх позицій.
У заданому рядку символів підрахувати кількість кожного із символів.
Із заданого рядка символів вилучити всі слова, які закінчуються групою заданих символів. Підрахувати кількість вилучень.
У заданому рядку символів визначити слова, які починаються та закінчуються на задані символи.
Ввести два рядки, вилучити з першого рядка всі слова, які зустрічаються у другому рядку.
У заданому рядку символів підрахувати кількість слів, що знаходяться між симвлоами ';’.
Із заданого рядка символів вилучити символи, що співпадають. Підрахувати кількість вилучень.
У заданому рядку символів визначити слова, що мають однакові перший та останній символи. Підрахувати кількість таких слів.
У заданому рядку символів вилучити слова, що мають парні порядкові номери.
Заданий рядок символів, що містить цифри і пробіли. Групи цифр, що розділені пробілами (одним або декількома), вважаємо словами. Розглядаючи кожне слово як число, визначити найбільше і найменше із них і поміняти знайдені слова місцями.
У заданому рядку символів знайти символи з максимальною і мінімальною частотою входження.
У заданому рядку символів вилучити всі слова, що зустрічаються більше двох раз.
У заданому рядку символів всі слова, що стоять на парних позиціях, вивести в зворотньому порядку.
Заданий рядок, що містить розділені пробілами слова. Визначити всі наявні в рядку слова-паліндроми (слова, які пишуться однаково зліва направо і справа наліво) і їхню кількість.
У заданому рядку символів поміняти місцями саме довге і саме коротке слово.
Заданий рядок, що містить розділені пробілами слова. Відсортувати слова по зростанню їхньої довжини.
Заданий рядок символів, що містить цифри і пробіли. Групи цифр, що розділені пробілами (одним або декількома), вважаємо словами. Розглядаючи кожне слово як число, упорядкувати їх по зростанню числових значень.