VPF::Help - Форум программистов

Vint

Дата 17.1.2005, 18:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

составиь программу, которая считывает текст из файла и определяет какие символы встречаются в этом тексте тот или иной символ. При этом в статистику символов должны быть включены наряду с буквами,цифрами,знаками препинания так же и пробелами.При выводе статистики символ "пробелы" должен быть указан словом "пробел"ю Если сможете то пожалуйста решение на мой эмэйл отправте!!!

Это сообщение отредактировал(а) Vint - 17.1.2005, 18:18

Akina

Дата 17.1.2005, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: нет
Всего: 454

Вот блин!!!
Тебе сюда: http://forum.vingrad.ru/index.php?showforum=146

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Pakshin A. S.

Дата 17.1.2005, 18:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

М	Не надо создавать опрос, если в этом нет нужды!!! И эта тема пока будет здесь...

Это сообщение отредактировал(а) Pakshin A. S. - 17.1.2005, 18:56

~FoX~

Дата 17.1.2005, 23:35 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68

Цитата(Vint @ 17.1.2005, 18:06)

Если сможете то пожалуйста решение на мой эмэйл отправте!!!

А зачем тогда в форум писать? smile

А сколько платишь?

А почему такая задача возникла? Может по полней опишешь? Тебе количество символов надо определить, или вообще есть ли они, или позицию первого(последнего символа), или etc?

--------------------

…множественность никогда не следует полагать без необходимости…

Zero

Дата 18.1.2005, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата

А сколько платишь?

999999999999999999999999999999999999999$ smile

poor_yorik

Дата 3.4.2005, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 12.1.2005
Где: Общаги г. Киева

Репутация: нет
Всего: 8

Как много на этом форуме таких жалобных просьб, уму не постижимо. Ну ладно помогу, если нужно "составиь" программу.

Код


Var
 mas:array [char] of integer;
 st:string;
 i:longint;
begin
  assign(input,'input.txt');
  assign(output,'output.txt');
  reset(input);
  while not eof(input) do begin
    readln(st);  
    for i:=1 to length(st) do 
     inc(mas[st[i]]);
 end;
 close(input);
 rewrite(output);
 for i:=1 to  255 do
  if mas[chr(i)]<>0 then begin
   str(i,st);
   if i=32 then st:='Пробел - '+st
              else st:=chr(i)+' - '+st;
   writeln(output,st);
  end;
 close(output); 
end.

Ни чего себе "сложная программа!!!!!!!!!!!!!!!!!!!!!!!!!". smile

--------------------

Семь раз отмерь, один раз - откомпиль.... Семь раз отпей, один раз - отлей... Семь раз отъешь, один раз - не жадничай и другим дай...

Zero

Дата 3.4.2005, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

poor_yorik к сожалению ты 3 месяца уже опоздал, врядли Vint увидет этот ответ. smile

Ну всё равно молодец, что решил помоч.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »