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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.02.2012, 23:37   #1
XaVi_06
 
Регистрация: 14.01.2012
Сообщений: 4
По умолчанию Строковые переменные

Подскажите по теме Строковые переменные
1 Написать программу, определяющую размер строки в байтах
2 Дана строка символов состоящая только из цифр. Определить сколько раз среди них встречается цифра 5

Спасибо большое!
XaVi_06 вне форума Ответить с цитированием
Старый 14.02.2012, 23:39   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
определяющую размер строки в байтах
Это функция Length()
Цитата:
Определить сколько раз среди них встречается цифра 5
Строка это массив символов. Умеешь в цикле по массиву проходить?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 14.02.2012, 23:56   #3
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
Это функция Length()
length и и ещё +1
не забываем про нулевой байт(символ)
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 14.02.2012, 23:59   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
не забываем про нулевой байт(символ)
Гадом буду, братан
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.02.2012, 15:39   #5
deathNC
Пользователь
 
Аватар для deathNC
 
Регистрация: 10.01.2010
Сообщений: 44
По умолчанию

2:
Код:
var
  s: String;
  i, count: Integer;
begin
  ReadLn(s);
  count := 0;
  for i := 1 to Length(s) do
    if s[i] = '5' then
      inc(count);
  WriteLn(count);
  ReadLn;
end.
deathNC вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Строковые переменные natt23 Общие вопросы C/C++ 8 15.04.2011 18:54
Строковые переменные ramilll Паскаль, Turbo Pascal, PascalABC.NET 0 20.12.2010 19:53
Строковые переменные locdoc Помощь студентам 5 14.11.2010 14:14
Строковые переменные nisha Помощь студентам 3 12.11.2010 20:51
строковые переменные Serious Помощь студентам 3 01.02.2010 20:15