Алгоритмические языки: обработка массивов

Краткие теоретические сведения.

Символьный тип (char) представляет собой тип данных, предназначенных для хранения одного символа (буквы, знака или кода).

Функции над символьными переменными:

chr(x) - определение символа из набора символов по порядковому номеру;

ord(x) - определение порядкового номера символа в наборе символов;

upcase(x) - преобразование строчных букв в прописные;

pred(x) - определение предыдущего элемента;

succ(x) - определение последующего элемента.

Тип данных string (строка) специально предназначен для обработки строк (цепочек символов). Переменная типа string состоит из элементов типа char. Переменные типа string могут быть объявлены следующим образом:

var Имя_переменной1: string;

Имя_переменной2: string[n];

Переменная типа string объявляется, как правило, путем указания имени переменной, зарезервированного слова string и указания (в квадратных скобках) максимального размера (длины) строки, которая может храниться в этой переменной. Если максимальный размер строки не указан, то он автоматически принимается равным 255 - максимально возможная длина строки.

Стандартные процедуры и функции для строк:

· функция Length - определение фактической длины текстовой строки, хранящейся в указанной переменной;

· функция UpCase - преобразование символа любой литеры из строчного в прописной;

· функция Copy - копирование фрагмента некоторой строки из одной переменной в другую;

· функция Pos - осуществление в некоторой строке поиска определенного фрагмента;

· функция Concut - соединение строк;
процедуры Insert и Delete - вставка фрагмента из одной строки в другую, удаление фрагмента из строки[1-8].
Постановка задачи.

Дана последовательность слов; между соседними словами – запятая, за последним словом – точка. Напечатать эту же последовательность слов, но удалив из неё повторные вхождения слов. Составить блок схему алгоритма и программу.

Листинг программы

uses crt;

var str:array[1..10] of string; - массив для слов

Slovo,st:string; - строка предложения

i,j,n,k:integer; - вспомогательные переменные

begin

ClrScr;

Writeln(' Programma ydalyaet povtornoe vhojdenie slov ');

Writeln;

Writeln('Vvedite posledovatelnost slov v formate: <>,<>,<>.'); - формат ввода слов в программе

Write('Vashi slova: ');

Readln(Slovo);

if Length(Slovo)<1 then - проверка на ввод слов

begin

Writeln('Nujno vvesti slovo!');