Вопрос Помогите изменить программу с СИ на паскаль

Регистрация
12 Окт 2013
Сообщения
86
Репутация
0
Спасибо
0
Монет
0
#include
#include
#include
#include
#include

using namespace std;

int main()
{
ifstream text("text.txt"); //файл для чтения
if (!text.good()) return -1; //если какой-либо флаг badbit, eofbit, failbit установлен, то выход
string str, min_punct_str; //строка и строка с мин. кол-вом пунктуальных знаков
size_t punct_count, min_punct_count = numeric_limits::max(); //количество пунктуальных знаков в строке с минимальным
//количеством пунктуальных знаков и в строке, которая сейчас проверяется
while ( getline(text, str) ) { //пока из файла можно достать строку
size_t punct_count =
count_if( str.begin(), str.end(), ::ispunct ); //считаем сколько в строке пункт. знаков
if (min_punct_count > punct_count) { //если количество пункт. знаков в проверяемой строке меньше чем
//в строке с минимальным количество пункт. знаков, то
min_punct_str.swap(str); //меняем местами строки (почему не = ? а зачем копировать, если содержимое str больше не нужно?
//просто меняем владельца str на min_punct_str
min_punct_count = punct_count; //устанавливаем новое количество пункт. знаков
}
}
cout << min_punct_str;
text.close();
return 0;
}
 
Назад
Сверху