Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Нужна доработка

Автор: Вованыч 28.05.2008 20:27

Дано предложение, состоящее из слов. Описать в виде функций или процедур следующие операции:

а) представление предложения в виде массива слов (представляемых строками),
б) проверка упорядоченности слов,

Program KonRab_7;
uses crt;
var i: byte;
Pred: string;
Mas_slov: array [1..100] of string;
kol: byte;
procedure InputPred;
begin
clrscr;
Writeln('Введите предложение');
read(Pred);
readkey;
end;
procedure RazMAsSlov;
var
st: string;
i, k: byte;
begin
k:=1;


for i:=1 to length(pred) do begin
if Pred[i] in ['a' .. 'z','A'..'Z',' '..'Ї', 'а'..'п','Ђ'..'Џ', 'ђ'..'џ'] then
begin
st:=st+pred[i];
end
else
begin
if st<>'' then
begin
mas_slov[k]:=st;
k:=k+1;
st:='';
end;
end;
kol:=k;
end;

end;

procedure InputMas_slov;
var
i:byte;
begin
for i:=1 to kol do
begin
writeln('[',i,']',Mas_slov[i]);
end;
end;

begin

clrscr;
InputPred;

RaZMasslov;
InputMas_slov;
readln;
readln;}
end.
Вроде как под (а) сделал но почему то работает не правильно?
А под (б) не знаю как сделать, помогите хотя бы с аглоритмом?

Автор: klem4 28.05.2008 20:42

http://forum.pascal.net.ru/index.php?showtopic=6972

ps За второй профиль тебя можно уже и по ip банить, твой первый профиль asu2006 на премодерации, и сообщения с него будут видны только после одобрения модератором.