Приклад виконання завдання
Відомо, що в тексті слова розділені символом “проміжок”, а текст завершується крапкою. Скільки символів у найдовшому слові?
Program lab6_4;
const n=50;
var
tekst:string;
k:array[1..n] of integer;
dl, ns, m, L, j, i:integer;
begin
writeln ('введіть невеликий текст з крапкою в кінці,');
writeln ('між словами ставте один проміжок');
readln (tekst);
dl:=length (tekst);
if tekst[dl]<>'.' then begin
writeln (ви не ввели крапку');
writeln ('повторіть спочатку');
halt;
end;
insert (' ', tekst, dl); i:=0;
while tekst<>'.' do begin
i:=i+1;
l:=pos (' ', tekst);
k[i]:=L-1; {формування масива довжин}
delete (tekst, 1, L);
end;
m:=k[1]; ns:=1;
for j:=2 to l do if k[j]>m then begin
m:=k[j]; ns:=j;
end;
writeln (ns, 'слово в тексті саме довге і вміщує ',m, 'символів');
end.
Варіанти завдань
В заданому тексті знайти і вивести на друк цифри, які містяться в ньому, і їх кількість.
В заданому тексті знайти і вивести на друк кількість і номери позицій букви “А”, які містяться в ньому.
В заданому тексті знайти і вивести на друк кількість цифр і кількість букв, які містяться в ньому.
Дано текст. Підрахувати кількість малих латинських букв, які містяться в ньому до 10-го символа включно. На друк вивести ці букви і обчислену кількість.
Дано текст. Вияснити, чи є він ідентифікатором. Ідентифікатор – це послідовність букв і цифр, яка починається з букви.
Дано текст. Вияснити, чи є він числом. Від’ємні числа містять на початку знак мінус.
Якщо в заданому тексті немає символа “*”, то залишити його без зміни. В противному випадку кожну латинську букву, яка знаходиться перед першим символом “*”, замінити на крапку.
Дано текст. Якщо він не містить символа “+”, то залишити його без зміни. В противному випадку кожну цифру, яка знаходиться перед першим символом “+”, замінити на кому.
Дано текст, який містить букви і пропуски. Якщо в ньому немає слова “весна”, то залишити його без зміни. В противному випадку замінити всі слова “весна” на “зима”. Словом вважати послідовність букв, розділених пропусками.
Дано текст, який містить букви і пропуски. Знайти і надрукувати слова і їх кількість, довжина яких перевищує 5 символів. Словом вважати послідовність букв, розділених пропусками.
Дано текст, який містить букви і пропуски. Знайти і надрукувати слова і їх кількість, які містять по 2 букви “А”. Словом вважати послідовність букв, розділених пропусками.
Дано текст, який містить букви і пропуски. Знайти і надрукувати слова і їх кількість, які закінчуються буквосполученням “ати”. Словом вважати послідовність букв, розділених пропусками.
Дано текст, який містить букви і пропуски. Знайти слова, які закінчуються буквосполученням “ати”, і замінити це буквосполучення на “али”. Словом вважати послідовність букв, розділених пропусками.
Дано текст, який містить букви і 2 символи “%”. Знайти кількість букв, які знаходяться між першим і другим символами “%”.
Дано текст, який містить букви і пропуски. Знайти і надрукувати слово, в якому міститься найбільше символів “А”. Словом вважати послідовність букв, розділених пропусками.
Контрольні запитання:
Як оголосити масив?
Для чого оголошується масив?
Як записується елемент масиву?
Які способи введення і виведення одновимірних масивів ви знаєте?
Як визначається номер індексу який заданий арифметичним виразом?
Охорактеризуйте основні атрибути масиву?
Який алгоритм пошуку найменшого елемента масиву?
Чому необхідно ввести додаткову змінну для перестановки місцями двох елементів масиву?
Як оголошується двовимірний масив?
Яким способом можна записати значення індексів елементів?
Який порядок зміни індексів елементів двовимірних масивів?
Які способи введення елементів двовимірного масиву ви знаєте?
В чому різниця між перебором елементів двовимірного масиву по рядках і стовпцях?
Як оголошують символьні змінні?
Як визначити символьні змінні у тексті?
Яким програмним засобом виконується перегляд тексту по одному чи N символів?
Як здійснити доступ до окремого символу рядка?
Які стандартні функції і процедури для роботи з рядками ви знаєте?