Работа со строками
.doc
Министерство образования Российской Федерации
Санкт–Петербургский Государственный
Электротехнический Университет
Кафедра МО ЭВМ
Дисциплина: Программирование
Отчет по лабораторной работе №3
Выполнил:
студент группы 3341, Худяков Я.Д.
Проверил:
Преподаватель Самойленко В. П.
Санкт-Петербург
2004
1) Задание
Задан массив строк длиной не более 30 знаков каждая. Строки не содержат пробелов. Сформировать массив строк, длина которых определяется значением дополнительного задаваемого параметра. Каждая строка в результирующем массиве должна содержать максимально возможное количество очередных строк исходного массива, разделённых по крайней мере одним пробелом. Если результирующая строка получается короче заданной длины, в неё следует по возможности равномерно вставить дополнительные пробелы между составляющими её исходными строками.
2) Постановка задачи
В задаче требуется сформировать массив из исходного, способом, описанном в задании. В ходе работы алгоритма реализации решения задачи будет строиться массив, согласно условию, причём на каждом шаге, т.е. при постороении очередной строки эта строка будет дополняться недостающими пробелами . Это реализовано с помощью процедуры form_mass. В этой процедуре в текущую новую строку «пристраиваются» текущие входные строки, пока это возможно. Если это невозможно(то есть какая-то входная строка длиннее максимальной выходной строки), то будет выведено сообщение об ошибке. Добавление в сформированную строку пробелов осуществляется при помощи процедуры ins_pr.
Спецификация функций и процедур:
|
Процедура |
Назначение |
Входные параметры |
Выходные параметры |
|
form_mass |
Формирование нового массива |
Входной массив |
Выходной массив, сторока с ошибкой |
|
ins_pr |
Расстановка в строке дополнительных пробелов |
Строка |
Новая строка с дополнительными пробелами |
3) Текст программы
Юнит:
unit mass;
interface
const
n=30;{макс длина строк входного массива}
k=5;{длина массива}
m=10;{макс длина строк выходного файла}
type
mystring=string[m];
mytypein=array[1..k] of string[n];
mytypeout=array[1..k] of mystring;
procedure form_mass(masin:mytypein; var masout:mytypeout; var er:string);
procedure ins_pr(var masoutstr:mystring);
implementation
var
{err:string;} {строка ошибки}
i,j:integer;
pr:string[1];{строка пробел}
procedure ins_pr(var masoutstr:mystring);
begin
pr:=' ';
for j:=1 to m do
begin
if (length(masoutstr)<m) and (masoutstr[j]=' ') then begin
insert(pr,masoutstr,j);
j:=j+1;
end;
end;
end;
{процедура формирования масива}
procedure form_mass(masin:mytypein; var masout:mytypeout; var er:string);
var
q,t,r:integer; {r=0 если массив удалось создать, =1 в противном случае}
begin
i:=1;{in}
pr:=' ';
r:=0;
j:=1;{out}
q:=0;
while (i<=k) and (j<=k) do
begin
t:=Length(masin[i]);
if (q+t<=m) then
begin
if (q<>0) then masout[j]:=masout[j]+' '+masin[i] else masout[j]:=masin[i];
q:=q+t+1;
i:=i+1;
end else begin
while (length(masout[j])<m) and (pos(pr,masout[j])<>0) do
begin
ins_pr(masout[j]);
end;
j:=j+1;
q:=0;
end;
end;
if (j>k) then begin
er:='Внимание, выходной массив пуст!';
writeln(er);
end;
end;
begin
end.
Сама программа:
uses crt, mass;
var
f1,f2:text;
err:string;
massin:mytypein;
massout:mytypeout;
i,j:integer;
Begin
clrscr;
assign(f1,'massiv.in'); reset(f1);
assign(f2,'massiv.out'); rewrite(f2);
for i:=1 to k do readln(f1,massin[i]);
form_mass(massin,massout,err);
i:=1;
if (length(err)<>0) then write(f2,err) else
begin
while (length(massout[i])<>0) do
begin
writeln(f2,massout[i]);
i:=i+1;
end;
end;
close(f1);
close(f2);
End.
4) Тестирование
|
Входные данные |
Выходные данные |
|
weee e f esfqwe eeqw |
weee e f esfqwe eeqw |
|
weee e f esffsdfdfqwe eeqw |
Внимание, выходной массив пуст! |
|
w e f ew qwe |
w e f ew qwe |
|
w e f e e |
w e f e e |
|
w e f e edfhgf |
w e f e edfhgf |
|
w e f e ehtrhtrdhnht |
Внимание, выходной массив пуст! |