информатика для филолога

[Bankai]

Люди, помогите пожалуйста. Нам препод задала написать в паскале прогу по Обработке Символьных и Текстовых данных, сделать уже надо очень скоро, а мы еще даже паскаль не проходили! Помогите пожалуйста) Я подумал и еще хочу узнать, можно ли сделать прогу по этой теме в паскале так, чтобы она к примеру подсчитывала количество букв Э и О в вводимом тексте...вот что то такое надо) и пожалуйста с объяснениями почему где какой код) Заранее спасибо)

[Alex11223]

Дык и чего эта

прога по Обработке Символьных и Текстовых данных

делать должна? самому придумать что ли?

[Bankai]

да...вообще хоть что...ну хотя бы посоветуйте)

[Mandrivnyk]

Ну, раз для филолога...
Как вариант -- программа должна правильно форматировать текст. Например, правильно взаиморазмещать пробелы и знаки препинания. То есть, _до_ точки/запятой/восклицательного/вопросительного знака пробела быть не должно, а вот _после_ -- должен. Можно еще обрамлять тире (двойной дефис "--") с обеих сторон пробелами.

Или просто выдавать статистику документа -- количество слов, пробелов и знаков препинаний.

ЗЫ Существует мнение, что лучшие программисты получаются именно из филологов, а не математиков -)

[Bankai]

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

[Alex11223]

А вам на каком паскале надо? (Турбо/АБС/Фри/Дельфи/Лазарус/...)

Не очень понятно какого уровня программа нужна. Вот например простая программка, которая считает в файле буквы "О" и "Э" (не "о" и "э"!):

var
  count: integer; 
  chr: char;
  fileName: string;
  f: file;

begin
  // ввод пути к файлу
  write('Введите путь к файлу (например C:\1.txt): ');
  readln(fileName);

  assign(f, fileName);
  reset(f); // открытие файла

  count := 0; // обнуление счетчика букв Э и О

  while not eof(f) do // цикл до конца файла
  begin
    read(f, chr); // читаем один символ
    if (chr = 'Э') or (chr = 'О') then 
      count := count + 1;
  end;
 
  // вывод результата
  writeln('Букв Э и О найдено: ', count);
 
end.

[Bankai]

желательно в ABC, но можно и Turbo...извините, а можно объяснить коды в программе выше?)

[Alex11223]

Ну у меня как раз АБС (АБС.НЕТ), в нем вроде работает Добавил немного комментариев

[Bankai]

а можно что-то полегче?) имею ввиду размером поменьше)

[Alex11223]

Дык вроде и так легкая и небольшая...

Ну вот тоже самое, но в введенной пользователем строке, а не файле:

var
  i, count: integer; 
  str:string;
begin
  // ввод текста
  write('Введите текст: ');
  readln(str);
  
  count := 0; // обнуление счетчика букв Э и О

  for i:=1 to length(str) do // в цикле проходим строку по одному символу с первого символа до последнего 
    if (str[i] = 'Э') or (str[i] = 'О') then 
      count := count + 1; 

  // вывод результата
  writeln('Букв Э и О найдено: ', count);
 
end.