Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Лабораторная работа 9




Множества, строки

 

Цель работы: формирование умений и навыков в разработке сложных циклических алгоритмов обработки строк с использованием стандартных процедур и функций над строками; изучение типа данных «множество» и операций над данными этого типа.

 

Что нужно знать для выполнения работы

 

1. Стандартные процедуры и функции над строками.

2. Операции над множествами.

3. Особенности использования строк в качестве параметров в процедурах и функциях.

 

Примеры выполнения задания лабораторной работы

 

Пример 1. Составьте программу, находящую в данной строке символов длину самой длинной цепочки идущих подряд символов a.

 

Варианты решения

 

Вариант 1

 

programProject1;

{Длина самой длинной цепочки а}

{$APPTYPE CONSOLE}

Uses

SysUtils;

Var

st:string;

procedure vvodstr(varst:string);

//Ввод строки

Var

fin:TextFile;

Begin

AssignFile(fin,'File1.txt');

Reset(fin);

readln(fin,st);

CloseFile(fin);

end;

functionmaxlena(st:string):integer;

//Длина самой длинной цепочки из a

Var

td,md,i:integer;

Begin

md:=0;

td:=0;

st:=st+' ';

for i:=1tolength(st)do

Begin

ifst[i]='a'then

inc(td)

Else

Begin

Iftd>mdthen

md:=td;

td:=0;

end;

end;

maxlena:=md;

end;

procedurevivodres;

// Вывод результата

Var

fout:TextFile;

Begin

AssignFile(fout,'File2.txt');

Rewrite(fout);

writeln(fout,'maxa= ',maxlena(st));

CloseFile(fout);

end;

Begin

vvodstr(st);

vivodres;

End.

 

Вариант 2

 

program Project1;

{Длина самой длинной цепочки а}

{$APPTYPE CONSOLE}

 

Uses

SysUtils;

 

Var

st:string;

 

procedure vvodstr(var st:string);

//Ввод строки

Var

fin:TextFile;

Begin

AssignFile(fin,'File1.txt');

Reset(fin);

readln(fin,st);

CloseFile(fin);

end;

function maxlena(st:string):integer;

//Длина самой длинной цепочки из a

Var

td,md,i:integer;

Begin

md:=0;

td:=0;

delete(st,1,pos('a',st)-1);

While pos('a',st)<>0 do

if pos('a',st)=1 then

Begin

delete(st,1,1);

inc(td);

End

Else

Begin

If td>md then

md:=td;

td:=0;

delete(st,1,pos('a',st)-1);

end;

If td>md then

md:=td;

maxlena:=md;

end;

 

procedure vivodres;

// Вывод результата

Var

fout:TextFile;

Begin

AssignFile(fout,'File2.txt');

Rewrite(fout);

writeln(fout,'maxa= ',maxlena(st));

CloseFile(fout);

end;

Begin

vvodstr(st);

vivodres;

end.

Вариант 3

program Project1;

{Длина самой длинной цепочки а}

{$APPTYPE CONSOLE}

 

Uses

SysUtils;

 

Var

st:string;

procedure vvodstr(var st:string);

//Ввод строки

Var

fin:TextFile;

Begin

AssignFile(fin,'File1.txt');

Reset(fin);

readln(fin,st);

CloseFile(fin);

end;

 

function maxlena(st:string):integer;

//Длина самой длинной цепочки из a

Var

i,md:Integer;

mn:set of byte;

Begin

mn:=[];

md:=0;

for i:=1 to length(st) do

ifst[i]='a' then

Begin

inc(md);

mn:=mn+[md];

End

Else

md:=0;

If mn<>[]then

Begin

for i:= length(st) downto 1 do

If i in mnthen

Begin

maxlena:=i;

break; {Выход из цикла}

end;

End

Else

maxlena:=0;

end;

 

procedurevivodres;

// Вывод результата

Var

fout:TextFile;

Begin

AssignFile(fout,'File2.txt');

Rewrite(fout);

Writeln(fout,'maxa= ',maxlena(st));

CloseFile(fout);

end;

Begin

vvodstr(st);

vivodres;

End.

 

Вариант 4

programProject1;

{Длина самой длинной цепочки а}

{$APPTYPE CONSOLE}

 

Uses

SysUtils;

 

Var

st:string;

procedure vvodstr(var st:string);

//Ввод строки

Var

fin:TextFile;

Begin

AssignFile(fin,'File1.txt');

Reset(fin);

readln(fin,st);

CloseFile(fin);

end;

 

function maxlena(st:string):integer;

//Длина самой длинной цепочки из a

Var

ts:string;

Begin

ts:='a';


Поможем в написании учебной работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой





Дата добавления: 2014-11-10; просмотров: 420. Нарушение авторских прав; Мы поможем в написании вашей работы!

Studopedia.info - Студопедия - 2014-2022 год . (0.025 сек.) русская версия | украинская версия
Поможем в написании
> Курсовые, контрольные, дипломные и другие работы со скидкой до 25%
3 569 лучших специалисов, готовы оказать помощь 24/7