Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6305
Последний выпуск: 19.06.2015

Написать функцию на Си

86K
17 декабря 2012 года
Tim Grey
2 / / 15.12.2012
Написать функцию, которая считывает первую отличную от пробела букву строки и объявляет ее своим именем. Использовать эту же функцию для подсчета количества букв в этой строке.
87K
24 декабря 2012 года
vladislav998
3 / / 24.12.2012
program ui;
var s:string; k:integer; i:integer;
function f(s: string): char;
var p: integer;
begin
p:=1;
while (p < length(s)) and (s

=' ') do p:=p+1;
f:=s

;
k:=0;
for i:=1 to lengh(s) do begin
if s<>" " then
k:=k+1;
end;
end;
begin
readln(s);
writeln ("первый символ отличающийся от пробела:",f(s));
writeln ("количество символов отличающихся от пробела:",k);
readln;
end.
Как уже поняли задача состоит в том что-бы описать функцию, которая считывает первую букву, отличающеюся от пробела, и объявляет ее своим значением. Использовать эту функцию для подсчета k- количества отличающихся от пробела букв текста.
На паскале все работает только теперь переводя в Си появляются маленькие подводные камни с несовпадением типов... Помогите перевести.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог