Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Общее количество букв в предложении. Блок-схема - Pascal  (Прочитано 271 раз)
0 Пользователей и 1 Гость смотрят эту тему.
NewStudent
Читатель

ru
Offline Offline

« : 26-12-2017 18:47 » new

Товарищи, вечер добрый!
Задача такая:Даны два предложения. Найти общее количество букв в них. Определить функцию для расчета количества букв в предложении.

Сама программа составлена. Помогите пожалуйста с составлением блок схемы  А черт его знает...
Код: (Pascal)
const
  rl = ['А'..'Я', 'а'..'п', 'р'..'я', 'ё', 'Ё'];
  el = ['a'..'z', 'A'..'Z'];
 
var
  s1, s2: string;
  k: integer;
 
function LiteraCount(st: string): Integer;
var
  i, n: integer;
begin
  n := 0;
  for i := 1 to Length(st) do
    if (st[i] in rl) or (st[i] in el)  then
      n := n + 1;
  LiteraCount := n;
end;
 
begin
  Writeln('Введите 1 предложение: ');
  Readln(s1);
  Writeln('Введите 2 предложение: ');
  Readln(s2);
  s1 := concat(s1, s2);
  k := LiteraCount(s1);
  Writeln('Общее количество букв в преложениях= ', k);
end.
Записан
NewStudent
Читатель

ru
Offline Offline

« Ответ #1 : 26-12-2017 18:51 » 

При необходимости, могу материально поддержать,того,кто поможет с этим Улыбаюсь
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines