ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от >>serhio<<

Помогите разобраться в pascale
Задача:
1)Найти слова начинающиеся и заканчивающиеся на те же буквы.

Если всё правильно понял то вот:

Код:

program serhio_1;
var S: string; p: integer;
begin
write('Введи строку.. ');
readln(S);

repeat
p:= pos(' ',S);
if p=0 then p:=length(S)+1;
if S[1]= S[p-1] then write(copy(S,1,p-1),' ');
S:= copy(S,p+1,255);

until p=length(S)+1;

readln;
end.

UPD:

Цитата:

Сообщение от >>serhio<<

2)Дана символьная строка которая заканчивается точкой. Найти длину самого длинного и короткого слова.

Код:

program serhio_2;
var S: string; i,p,k,lowlen,maxlen: integer;
begin
write('Введи строку.. ');
readln(S);

k:=0; maxlen:=0;
p:= pos('.',S);
if p=0 then writeln('Строка не заканчивается точкой!')
	else begin
	S:= copy(S,1,p-1)+' ';

		lowlen:= length(S);
		for i:=1 to length(S) do
			if S[i]= ' ' then begin
					if k> maxlen then maxlen:= k;
					if k<lowlen then lowlen:= k;
					k:=0;
				end else inc(k);
	
		Writeln('Длина максимального слова: ',maxlen);
		Writeln('Длина минимального слова: ',lowlen);
	end;
	
readln;
end.

Удачи!