прога исправляющая маленькую букву в новом предложении.

[Миха_М]

Народ, помогите чем можете.
задание: В текстовом файле хранится текст или
вводится с консоли (около 10 предложений), с пунктунционными ошибками -
после точки новое предложение начинается с маленькой буквы, написать
программу исправляющую эту ошибку.

[andrey4623]

можно делать так
создадим 2 переменных: temp и all типа string
1. Считал строку
2. проверяем каждый символ в строке
если это не '.' то дописать этот символ в строку temp
если '.', то следующий символ записать большим (поднять регистр)
all := temp; temp := '';
и так далее

[Миха_М]

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

[andrey4623]

можно функцией вырезания подстроки
Copy(строка, первый символ, длина вырезания)
или к каждому символу можно обратиться как к массиву.
Допустим, есть переменная str:string;
первый символ - str[0], второй - str[1], третий - str [2]
(не помню, первый символ под индексом 0 или 1)

[lamonana]

Под индексом 1.

[Карась]

Сообщение от Миха_М

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

Нет сайта где описано "большенство переменных"... ибо их придумывают.

Как вариант это создать две строки.
1 - малые буквы(Mal), 2 - заглавные(Big).

Начинаем перебор текста. При встрече точки ставим флаг.
Теперь при дальнейшем "сканировании" мы смотрим не попалась ли нам буква.
Как только она попалась начинаем в цикле проверять эту букву в строке Mal. Найдя такую букву мы узнаём номер большой буквы.
И просто делаем замену. Если буква не встретилась, значит там стоит заглавная.
Сбрасываем флаг и снова ищем точку.

[Миха_М]

я имел в виду не переменные, а процедуры и типы

[andrey4623]

Купи какую-нибудь книжку по Delphi, она лучше, чем самоучители в интернете (правда, не всегда)

[Vincent]

Есть еще вариант, без создания строк типа temp:

...
var boolean prevDot;
Spacer: set of char;
...
prevDot := false;
Spacer := [#$09, #$20, #$0D, #$0A]; // символы, пропускаемые после точки
for i := 1 to length(text) do
if text[i] = '.' then
prevDot := true;
else if (prevDot) and (not (text[i] in Spacer)) then begin
text[i] := UpCase(text[i]);
prevDot := false;
end;