Инвертированного

Begin

Begin

Begin

Var

End.

Then begin

Begin

Begin

Begin

Var

End.

Begin

Begin

Begin

Var

End.

Begin

Begin

Begin

Var

Begin

Begin

Var

End.

Begin

Begin

Var

Москва 2012

Лабораторная работа № 2

Информационных систем и инноватики

Неотлаженный или не полностью отлаженный проект и/или не полностью готовый отчет приводят к неудовлетворительной оценке защиты. При неудовлетворительной оценке защиты проводится повторное представление работы к защите.

После защиты работы второй экземпляр титульного листа с оценками остаётся у подгруппы и хранится до экзамена.

По результатам защиты каждый член подгруппы получает свою индивидуальную оценку за защиту.

Без этих компонентов защита не принимается.

На защиту представляется

Защита лабораторной работы производится полным составом подгруппы разработчиков в заданные сроки. В особых случаях допустима индивидуальная защита работы.

· полностью отлаженный проект,

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

· заранее созданные наборы тестовых данных для демонстрации работы программы.

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

Защита оценивается в соответствии с требованиями балльно-рейтинговой системы (БРС). При защите оцениваются демонстрация работы программы, оформление, качество работы, степень владения студентами материалом тех тем, на базе которых выполнена работа (как в теории, так и на практике).

ПРИЛОЖЕНИЕ 1

Форма титульного листа:

МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ЭКОНОМИКИ, СТАТИСТИКИ И ИНФОРМАТИКИ

Кафедра Математического обеспечения

по дисциплине "Информатика и программирование.

Работа со строками и двумерными массивами"

Вариант N ____

Руководитель: профессор Грибанов В.П.

Дата защиты «_____»__________2012_ г.

Разбор задач обработки строк.

{ Определение количества символов в словах строки. }

Program Strings_0;

i, {номер обрабатываемого символа }

kol_sym { количество символов в словах строки}

: integer;

st: string; { исходная строка }

{ В задаче простейший разделитель - ПРОБЕЛ }

writeln(‘Введите строку для обработки ’);

Readln (st);

i:=1; { обработка начинается с первого символа строки}

kol_sym:=0; {до обработки строки количество = 0 }

while (i<=length(st)) do {обеспечение перебора всех

символов строки }

if (st[i] <> ‘ ‘) {очередной символ – не пробел}

then kol_sym:= kol_sym +1;

i:=i+1; {переход к очередному символу строки }

end;

writeln (‘ В строке ‘, st,

‘ обнаружено ‘, kol_sym, ‘ символов’);

readln;

{Условие то же, что и в предшествующей задаче, но }

{в качестве разделителей – набор спецсимволов, SET OF CHAR}

Program Strings_1;

razd: set of char; {множество предполагаемых

разделителей слов в строке }

i, {номер обрабатываемого символа }

kol_sym { количество символов в словах строки}

: integer;

st: string; { исходная строка }

{ задание символов-разделителей слов в строке }

razd:=[ ' ',',','.',':','!' ];

end.

{ Определение количества слов в строке. Использование флажка}

Program Strings_2;

razd: set of char; {множество предполагаемых

разделителей слов в строке }

i, {номер обрабатываемого символа }

kol_sl, { количество слов в строке }

dl_sl { длина очередного слова в строке }

:integer;

st:string; { исходная строка }

fl: Boolean; {индикатор – слово найдено или нет }

{ задание символов-разделителей слов в строке }

razd:=[' ',',','.',':','!'];

writeln(‘Введите строку для обработки ’);

Readln (st);

i:=1; { обработка начинается с первого символа строки}

kol_sl:=0; {до обработки строки количество слов = 0 }

while (i<=length(st)) do {обеспечение перебора всех

символов строки }

fl:= false; {пока слово не обнаружено }

{ цикл перебора символов текущего слова }

while (i<=length(st)) and (not (st[i] in razd)) do

fl:= true; {слово обнаружено }

i:=i+1; {переход к очередному символу строки }

end;

if fl = true

then kol_sl:= kol_sl+1;

i:=i+1; {переход к очередному символу строки }

end;

writeln (‘ В строке ‘, st,

‘ обнаружено ‘, kol_sl, ‘слов’);

readln;

{ Определение количества слов в строке. Использование длины слова}

Program Strings_2a;

razd:set of char; {множество предполагаемых

разделителей слов в строке }

i, {номер обрабатываемого символа }

kol_sl, { количество слов в строке }

dl_sl { длина слова }

:integer;

st,st1,max,min:string;

{ задание символов-разделителей слов в строке }

razd:=[' ',',','.',':','!'];

writeln(‘Введите строку для обработки ’);

Readln (st);

i:=1; { обработка начинается с первого символа строки}

kol_sl:=0; {до обработки строки количество слов = 0 }

while (i<=length(st)) do {обеспечение перебора всех

символов строки }

dl_sl:=0; {длина текущего слова}

{ цикл перебора символов текущего слова }

while (i<=length(st)) and (not (st[i] in razd)) do

dl_sl:= dl_sl+1;

i:=i+1; {переход к очередному символу строки }

end;

if dl_sl > 0

then {было слово} kol_sl:= kol_sl+1;

i:=i+1; {переход к очередному символу строки }

end;

writeln (‘ В строке ‘, st,

‘ обнаружено ‘, kol_sl, ‘слов’);

readln;

{ Распечатка в столбик слов заданной строки с их номерами}

Program Strings_3;

razd:set of char;

i, {номер обрабатываемого символа }

kol_sl, { количество слов в строке,

оно же – порядковый номер }

dl_sl {длина очередного слова}

: integer;

st, {исходная строка }

wrd {текущее слово }

: string;

razd:=[' ',',','.',':','!'];

writeln(‘Введите строку для обработки ’);

Readln (st);

i:=1; { обработка начинается с первого символа строки}

kol_sl:=0; {до обработки строки количество слов = 0 }

while (i<=length(st)) do {обеспечение перебора всех

символов строки }

dl_sl:=0; {длина текущего слова}

wrd:= ‘’; { нач. значение – пустая строка}

{ цикл перебора символов текущего слова }

while (i<=length(st)) and (not (st[i] in razd)) do

dl_sl:= dl_sl+1;

wrd:= wrd + st[ i ]; {формирование текущего

слова из букв}

i:=i+1; {переход к очередному символу строки }

end;

if dl_sl > 0

kol_sl:= kol_sl+1;

writeln (kol_sl, ‘ ‘, wrd);

end;

i:=i+1; {переход к очередному символу строки }

end;

readln;

{ Поиск палиндромов среди слов заданной строки }

Program Strings_3;

razd:set of char;

i, {номер обрабатываемого символа }

kol_sl, { количество слов в строке,

оно же – порядковый номер }

dl_sl {длина очередного слова}

: integer;

st, {исходная строка }

wrd, {текущее слово }

inv_wrd {инвертированное слово }

: string;

razd:=[' ',',','.',':','!'];

writeln(‘Введите строку для обработки ’);

Readln (st);

i:=1; { обработка начинается с первого символа строки}

kol_sl:=0; {до обработки строки количество слов = 0 }

while (i<=length(st)) do {обеспечение перебора всех

символов строки }

dl_sl:=0; {длина текущего слова}

wrd:= ‘’; { нач. значение – пустая строка}

inv_wrd:= ‘’; beg_w:=i;{запом }

{ цикл перебора символов текущего слова }

while (i<=length(st)) and (not (st[i] in razd)) do

dl_sl:= dl_sl+1;

wrd:= wrd + st[ i ]; {формирование текущего

слова из букв}

inv_wrd:= st [ i ] + inv_wrd; {формирование

слова из букв,

буква «приклеивается»

слева}

i:=i+1; {переход к очередному символу строки }

end;

if dl_sl > 0

Дата добавления: 2017-02-01; Просмотров: 61; Нарушение авторских прав?; Мы поможем в написании вашей работы!