VPF::написать в комментах обозначения функций

ilnar21

Дата 20.1.2011, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 20.1.2011

Репутация: нет
Всего: нет

я пару обозначил (ввод и выводы я знаю конечно), если не сложно обозначения тоже(типа kolsl(это наверное кол-во строк))

Код


uses crt;
const
lat=['А'..'Я'];
var s,temp:string;i,j:byte;
function kolsl(s:string):byte;
var b,i:byte;
begin
b:=0;
for i:=1 to length(s) do
if (s[i]=' ')or(s[i]=',') then
inc(b);
kolsl:=b+1;
end;
function slovo(s:string;a:byte):string; {преобразуются в тип строка}
var s1:string[31];l:byte;j:byte;
begin j:=0;
for l:=1 to a do
begin
s1:='';j:=j+1;
while(s[j]<>' ')and(j<>length(s)+1)and(s[j]<>',')do
begin
        s1:=s1+s[j];
        inc(j);    {+1}
end;
end;
slovo:=s1;
end;
begin clrscr;
write('                     пишем предложение, где присутствуют имена собственные:         ');
readln(s);
for i:=1 to kolsl(s) do
begin
temp:=slovo(s,i);
if temp[1]in lat then
inc(j);
end;
writeln(j);
readkey;
end.

Snowy

Дата 20.1.2011, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

kolsl - количество слов. (кстати, она корявая. Считает неправильно)
slovo - получить слово в позиции b

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »