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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.12.2013, 16:20   #1
Blagodetel
Новичок
Джуниор
 
Регистрация: 09.12.2013
Сообщений: 1
Восклицание Задачи на символьные строки

Добрый день. Если не сложно - помогите разобраться в этих двух задачах:

Дан глагол в неопределенной форме и список окончаний настоящего времени по обоим спряжениям. Определить спряжение глагола и выдать таблицу его спряжений на экран.

Файл содержит информацию в виде символьных строк произвольной длины. Провести частотный анализ текста: посчитать, сколько различных символов встречается в данном тексте. В новый файл записать информацию в виде гистограммы: символ + количество *, равное числу этих символов в тексте.
Blagodetel вне форума Ответить с цитированием
Старый 09.12.2013, 17:46   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Вот что-то похожее делал : 2-я задача
Код:
uses crt;
const
  n=26;
type
  dict=record
    symb:char;
    quantity:integer;
  end;
const
  symbol:set of char=['A'..'Z'];
var
  f:text;
  s:string;
  buf:array [1..n] of dict;
  i,j,k:integer;
BEGIN
  k:=0;
  clrscr;
  for i:=1 to n do
  begin
    buf[i].symb:=chr(i+64);
    buf[i].quantity:=0;
  end;
  assign(f,'nirvana.txt');
  reset(f);
  while not eof(f) do
    begin
      readln(f,s);
      for i:=1 to length(s) do
        s[i]:=UpCase(s[i]);
      if s[i] in symbol then
        begin
          j:=1;
          while j<>length(s) do
            begin
              for i:=1 to n do
                if buf[i].symb=s[j] then
                  buf[i].quantity:=buf[i].quantity+1;
              j:=j+1;
            end;
        end;
    end;
  close(f);
  for i:=1 to n do
  begin
    write(buf[i].symb);
    write(' ',buf[i].quantity,' ');
  end;
END.
Текст
Цитата:
Load up on guns and bring your friends
It's fun to lose and to pretend
She's over bored and self assured
Oh no, I know a dirty word
Hello, hello, hello, how low?
Hello, hello, hello, how low?
Hello, hello, hello, how low?
Hello, hello, hello!
With the lights out, it's less dangerous
Here we are now, entertain us
I feel stupid and contagious
Here we are now, entertain us
A mulatto
An albino
A mosquito
My libido
Yay! Yay! Yay!
I'm worse at what I do best
And for this gift I feel blessed
Our little group has always been
And always will until the end
Hello, hello, hello, how low?
Hello, hello, hello, how low?
Hello, hello, hello, how low?
Hello, hello, hello!
With the lights out, it's less dangerous
Here we a re now, entertain us
I feel stupid and contagious
Here we are now, entertain us
A mulatto
An albino
A mosquito
My Libido
Yay! Yay! Yay!
And I forget just why I taste
Oh yeah, I guess it makes me smile
I found it hard, it's hard to find
Oh well, whatever, never mind
Hello, hello, hello, how low?
Hello, hello, hello, how low?
Hello, hello, hello, how low?
Hello, hello, hello!
With the lights out, it's less dangerous
Here we are now, entertain us
I feel stupid and contagious
Here we are now, entertain us
A mulatto
An albino
A mosquito
My libido
A denial! A denial! A denial!
A denial! A denial! A denial!A denial! A denial! A denial!
Изображения
Тип файла: jpg Безымянный.jpg (14.3 Кб, 118 просмотров)

Последний раз редактировалось ZX Spectrum-128; 09.12.2013 в 17:49.
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Символьные строки. Си. meta Помощь студентам 2 24.05.2011 16:40
Символьные строки Арнис Общие вопросы C/C++ 2 18.09.2010 22:59
Символьные строки Арнис Общие вопросы C/C++ 1 13.07.2010 14:04
Символьные строки (Delphi) Angel G G Помощь студентам 8 27.12.2009 19:54
Символьные массивы и строки. kGxDD Паскаль, Turbo Pascal, PascalABC.NET 1 24.04.2009 11:39