КОНТРОЛЬНАЯ РАБОТА
по дисциплине “Основы программирования”
на тему
Алгоритмические языки: обработка массивов
Задание 1. Символьные типы данных. Работа со строками
Краткие теоретические сведения.
Символьный тип (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!');
Halt;
end;
j:=0; i:=1; k:=1; n:=1; - н.у. для переменных
while i<=Length(Slovo) do - цикл в котором слова из предложения заносятся в массив begin строк
n:=i;
while (Slovo[i]<>',')and(Slovo[i]<>'.') do begin inc(i); inc(j); end;
str[k]:=Copy(Slovo, n, j); - занесение в массив слова
j:=0;
inc(k);
inc(i);
end;
str[k]:='.';
for i:=1 to k-1 do - цикл в котором происходит сравнение и удаление
for j:=(i+1) to k-1 do begin одинаковых слов в предложении
if str[i]=str[j] then begin
str[j]:='';
end;
end;
st:='';
for j:=1 to k-1 do begin - формирование предложения из неповторяющихся слов
if (str[j]<>'') then st:=st+str[j]+',';
end;
delete(st,Length(st),1);
st:=st+'.';
writeln;
writeln('Posledovatelnost');
write('bez povtoreniy:',st); - вывод результата
readln;
end.
Блок-схема алгоритма программы.
Рис.1 Блок-сема программы задания 1.
Результаты работы программы.
Задание 2. ............ 
