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

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

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


Ответ
 
Опции темы
Старый 07.11.2010, 09:49   #1
LILI26092009
Новичок
Джуниор
 
Регистрация: 05.11.2010
Сообщений: 1
По умолчанию

вы не могли бы помочь написать программу в Delphi 7?
нужно подсчитать количество единиц входящий в текст
LILI26092009 вне форума Ответить с цитированием
Старый 07.11.2010, 09:58   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Примерно так:
Код:
uses classes;
...
var s:TStringList;c,i:integer;
begin
 s:=TStringList.Create;
 s.LoadFromfile('файл');c:=0;
 for i:=1 to length(s.text) do if s.text[i]='1' then inc(c);
 s.free;
 write(c);readln;
end.
и нечего лезть в чужую тему.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
подсчитать количество точек пересечения fallti Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 28.06.2010 12:46
подсчитать количество цветов в картинке DianaKL Помощь студентам 1 28.12.2009 20:56
Даны сведения о товарах на складе: наименование, цена, количество единиц товара. Найти товар, стоимость н Evidence Паскаль, Turbo Pascal, PascalABC.NET 1 02.06.2009 23:09
Подсчитать количество шагов MAKEDON Помощь студентам 3 02.06.2009 14:04


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS