Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2011, 13:51   #1
ilnar21
Пользователь
 
Регистрация: 14.06.2010
Сообщений: 25
Вопрос нужно написать в комментах обозначения функций

Объясните пожалуйста.

PHP код:
uses crt;
Const 
LetterSet of char=['А'..'Я','ё'];
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);      {увеличивает значение j на единицу}
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 Letter then
inc
(j);
end;
writeln(j);
readkey;
end
ilnar21 вне форума Ответить с цитированием
Старый 19.01.2011, 14:25   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
Const Letter: Set of char=['А'..'Я','ё'];
по вашему ёж и ёлка имена собственные?
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 19.01.2011, 14:46   #3
ilnar21
Пользователь
 
Регистрация: 14.06.2010
Сообщений: 25
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
Код:
Const Letter: Set of char=['А'..'Я','ё'];
по вашему ёж и ёлка имена собственные?
Ну это сойдёт.
ilnar21 вне форума Ответить с цитированием
Старый 19.01.2011, 14:46   #4
ilnar21
Пользователь
 
Регистрация: 14.06.2010
Сообщений: 25
По умолчанию

Главное обозначения

вот это на пример
function slovo(s:string;a:byte):string;
ilnar21 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Допускается до 7 уровней вложения функций IF, а если нужно больше? kapitel_bc@ukr.net Microsoft Office Excel 10 10.02.2013 12:37
Нужно знание о Поверхности и Графике функций Fainble Microsoft Office Excel 5 22.12.2010 22:42
Мат в комментах исходников :) Олвин Свободное общение 70 19.07.2010 11:00
написать программу которая строила графики функций GeSerKo Помощь студентам 1 05.09.2008 21:03