Advertisement
mercMatvey4

Untitled

Feb 24th, 2019
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.19 KB | None | 0 0
  1. #include <iostream>
  2. #include <fstream>
  3. #include <iomanip>
  4. #include <windows.h>
  5.  
  6. using namespace std;
  7.  
  8. int main()
  9. {
  10. setlocale(LC_ALL,"");
  11. ifstream fin ("text.txt");
  12. ofstream fout ("result.txt");
  13. if (!fin)
  14. {
  15. cout << "Файл не может быть открыт!" << endl << endl;
  16. }
  17. else
  18. {
  19. fin.seekg(0, ios::end);
  20. long len = fin.tellg();
  21. char *str1 = new char [len + 1];
  22. fin.seekg(0, ios::beg);
  23. fin.read(str1, len);
  24. str1[len] = '\0';
  25. int k = 0, i = 0, j = 0;
  26. char *token;
  27. char deliteli[] = ",.!?\|/<>)(*;:' ";
  28. const int bukvy = 15;
  29. char slovo[bukvy];
  30. const int max = 5000;
  31. char predlojeniya[max], rezerv[max];
  32. cout << "Введите искомое слово: ";
  33. cin >> setw(bukvy) >> slovo;
  34. OemToCharA (slovo, slovo);
  35. system("cls");
  36. cout << "Слово, введенное Вами: " << slovo << endl;
  37. cout << endl << "Предложения с введенным Вами словом выведены в файл result.txt" << endl;
  38. for (i = 0; i < strlen(str1); i++)
  39. {
  40. if (str1[i]=='.' || str1[i] == '!' || str1[i] == '?')
  41. {
  42. strncpy(predlojeniya, str1+k, i-k+1);
  43. predlojeniya[i-k+1] = '\0';
  44. strcpy (rezerv, predlojeniya);
  45. token = strtok(predlojeniya, deliteli);
  46. while (token != NULL)
  47. {
  48. if (!strcmp(token, slovo)) {fout << rezerv; j++;}
  49. token = strtok(NULL, deliteli);
  50. }
  51. k = i + 1;
  52. }
  53. }
  54. }
  55. return 1;
  56. }
  57.  
  58. /*
  59. Задача организации, в особенности же постоянное информационно-пропагандистское обеспечение нашей деятельности обеспечивает широкому кругу (специалистов) участие в формировании соответствующий условий активизации. Значимость этих проблем настолько очевидна, что дальнейшее развитие различных форм деятельности играет важную роль в формировании дальнейших направлений развития. Не следует, однако забывать, что реализация намеченных плановых заданий представляет собой интересный эксперимент проверки новых предложений. Значимость этих проблем настолько очевидна, что рамки и место обучения кадров требуют от нас анализа соответствующий условий активизации. Таким образом сложившаяся структура организации влечет за собой процесс внедрения и модернизации дальнейших направлений развития.
  60. */
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement