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

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

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






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

 

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

 

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

 

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

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

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

 

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

 

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

 

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

 

Вариант 1

 

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;

st: =st+' ';

for i: =1 to length(st) do

Begin

if st[i]='a' then

inc(td)

Else

Begin

Iftd> mdthen

md: =td;

td: =0;

end;

end;

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.

 

Вариант 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

if st[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;

 

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.

 

Вариант 4

program Project1;

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

{$APPTYPE CONSOLE}

 

Uses

SysUtils;

 

Var

st: string;

procedur e vvodstr(va r 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; просмотров: 544. Нарушение авторских прав; Мы поможем в написании вашей работы!



Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Метод архитекторов Этот метод является наиболее часто используемым и может применяться в трех модификациях: способ с двумя точками схода, способ с одной точкой схода, способ вертикальной плоскости и опущенного плана...

Примеры задач для самостоятельного решения. 1.Спрос и предложение на обеды в студенческой столовой описываются уравнениями: QD = 2400 – 100P; QS = 1000 + 250P   1.Спрос и предложение на обеды в студенческой столовой описываются уравнениями: QD = 2400 – 100P; QS = 1000 + 250P...

Дизартрии у детей Выделение клинических форм дизартрии у детей является в большой степени условным, так как у них крайне редко бывают локальные поражения мозга, с которыми связаны четко определенные синдромы двигательных нарушений...

Правила наложения мягкой бинтовой повязки 1. Во время наложения повязки больному (раненому) следует придать удобное положение: он должен удобно сидеть или лежать...

ТЕХНИКА ПОСЕВА, МЕТОДЫ ВЫДЕЛЕНИЯ ЧИСТЫХ КУЛЬТУР И КУЛЬТУРАЛЬНЫЕ СВОЙСТВА МИКРООРГАНИЗМОВ. ОПРЕДЕЛЕНИЕ КОЛИЧЕСТВА БАКТЕРИЙ Цель занятия. Освоить технику посева микроорганизмов на плотные и жидкие питательные среды и методы выделения чис­тых бактериальных культур. Ознакомить студентов с основными культуральными характеристиками микроорганизмов и методами определения...

САНИТАРНО-МИКРОБИОЛОГИЧЕСКОЕ ИССЛЕДОВАНИЕ ВОДЫ, ВОЗДУХА И ПОЧВЫ Цель занятия.Ознакомить студентов с основными методами и показателями...

Studopedia.info - Студопедия - 2014-2024 год . (0.008 сек.) русская версия | украинская версия