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

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

ИНФОРМАТИКИ И РАДИОЭЛЕКТРОНИКИ

Кафедра программного обеспечения информационных технологий

Факультет ФНиДО

Специальность ПОИТ

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

по дисциплине «Основы алгоритмизации и программирования»

часть 1

Вариант № 1

Выполнил студент: Рябченко А.И.

Минск 2013

1). Задание

п.1. - Напечатать слово, имеющее максимальную длину и отличное от последнего слова.

п.2. - Напечатать те слова последовательности, которые отличны от последнего слова, предварительно все вхождения abc заменив на def, если такие есть.

2). Текст программы.

program LAB_2;

var p:integer;

s,p_s,s1,s2,s3,s4:string;

n,n1,k,max:byte;

begin

writeln('stroka s');

readln(s);

{Делим строку на две части}

n := length(s);

while (n >= 1) and (s[n] = ' ') do dec(n); { Пропуск пробелов в конце строки}

n1 := n;

while (n >= 1) and (s[n] <> ' ') do dec(n); { Поиск пробела перед последним словом}

s3 := copy(s, 1, n); { строка без последнего слова}

p_s := copy(s, n+1, n1-n); { последнее слово}

{ Дальше работаем только с первой частью без последнего слова}

n := 1; k := 1; max := 0; s1 := ''; s2 := '';

while n <= length(s3) do begin

if s3[n] = ' ' then begin

{ Нашли очередной пробел}

if n-k > 0 then begin

s4 := copy(s3, k, n-k); {Очередное слово в строке}

{ дальше решаем, что делать с этим словом}

if s4 <> p_s then begin { Отличное от последнего}

if length(s4) > max then begin

s1 := s4;

max := length(s4)

end;

end;

{ Заменяем}

p := pos('abc', s4);

while p <> 0 do begin

delete(s4, p, 3);

insert('def', s4, p);

p := pos('abc', s4);

end;

if length(s2) > 0 then s2 := s2 + ' ';

s2 := s2+s4;

end;

k := n+1;

end;

inc(n);

end;

if max<>0 then writeln('s1=',s1)

else writeln('stroka S1 pysta');

if length(s2)=0 then writeln('stroka S2 pysta')

else writeln('s2=',s2);

readln;

end.

3). Тестовый набор данных.

stroka s

aba abc abc fhffjgfjg djf

s1=fhffjgfjg

s2=aba def def fhffjgfjg