Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 13.12.2015, 12:43   #1
Grecu Alexandru
 
Регистрация: 11.12.2015
Сообщений: 8
Репутация: 2
По умолчанию процедуры и функции(string)

составляйте программу которая будет читать количества слов оканчивающихся с буквой а, в одной произвольной строке символов , введенных с клавиатуры.
Помогите исправить

Код:
Program P3;
 var s:string;
 i,l,n:integer;
Begin
 writeln('Дайте строку s:');
 readln(s);n:=0
 l:=lenghr(s);
 for i:=1 to l dp
 case s[i]of
     'a':n:=n+1;
 end;
  writeln('Строка содержит ',n,' , слов с маленькой буквы a,');
  readln;
End.
Grecu Alexandru вне форума   Ответить с цитированием
Старый 13.12.2015, 14:52   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,841
Репутация: 6850
По умолчанию

Хм...
Код:
for i:=1 to Length(s) do if copy(s,i,2)='a ' then inc(n);
 writeln('Строка содержит ',n,' , слов с маленькой буквы a,');
Не?
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедуры и функции - Заданы три двумерных массива одинаковой размерности. Написать фукнции и процедуры их обработки sekirei Паскаль 8 21.11.2013 15:45
Программа на СИ++, используя функции работы с файлами и функции <string.h> Аня Popova Фриланс 9 13.09.2010 15:52
Процедуры и Функции hewlett Помощь студентам 1 13.05.2010 15:18
Передача результата функции как String Alex Cones Общие вопросы Delphi 9 05.12.2009 11:21
Передача выражения функции (string) в переменную real Vohakisa Помощь студентам 3 12.05.2009 01:57


08:55.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.