Программирование операций над строками и текстовыми файлами...

@happyserge · Регистрация: 15.11.2008

Студворк — интернет-сервис помощи студентам

Доброго времени суток, уважаемые!

Необходимо написать програмку, которая считывает текст из файла и выводит на экран сначала вопросительные, а затем восклицательные знаки.

Заранее спасибо!

@Puporev · 22.11.2008, 18:26

А весь остальной текст не выводит, только эти знаки?

@happyserge · 22.11.2008, 19:47 **[ТС]**

Прошу прощения! Конечно же - выводить нужно сначала вопросительные, а затем восклицательные предложения. Ещё раз прошу прощения..)

@Arriba · 23.11.2008, 12:19

Сообщение от happyserge

Прошу прощения! Конечно же - выводить нужно сначала вопросительные, а затем восклицательные предложения. Ещё раз прошу прощения..)

А в тексте есть ещё какие нить предложения, типо обычных,или текст состоит только из вопросительных и восклицательных предложений?

@Puporev · 23.11.2008, 12:27

Вот они партизанские гены!

@happyserge · 23.11.2008, 13:38 **[ТС]**

Пусть текст состоит только из восклицательных и вопросительных предложений абсолютно любого смысла и содержания.

@Arriba · 23.11.2008, 14:50

Пусть текст состоит только из восклицательных и вопросительных предложений абсолютно любого смысла и содержания.

Вот код, конечно на качество кода не претендую и на его компактность, но всё понятно, 2 части,первая создаёт 2.txt и туда записывает вопросительные предложения, а вторая часть в существующий 2.txt записывает восклицательные...
Если не нравиться такое решение пиши,подумаем ещё...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
program Project2;
 
var t,t2:Text;
    s,predl:string;
    i:integer;
begin
    Assign(t2,'2.txt');
    Rewrite(t2);
    Close(t2);
    Assign(t,'1.txt');
    Reset(t);
    predl:='';
      while not EOF(t) do
    begin
      ReadLn(t,s);
       for i:=1 to length(s) do
        if s[i]<>'?' then
         if s[i]<>'!' then
          predl:=predl+s[i]
         else
          predl:=''
        else
          begin
         predl:=predl+s[i];
         Assign(t2,'2.txt');
         Append(t2);
         WriteLn(t2,predl);
         Close(t2);
         predl:='';
          end;
    end;
    Close(t);
 
    Assign(t,'1.txt');
    Reset(t);
    predl:='';
      while not EOF(t) do
    begin
      ReadLn(t,s);
       for i:=1 to length(s) do
        if s[i]<>'!' then
         if s[i]<>'?' then
          predl:=predl+s[i]
         else
          predl:=''
        else
          begin
         predl:=predl+s[i];
         Assign(t2,'2.txt');
         Append(t2);
         WriteLn(t2,predl);
         Close(t2);
         predl:='';
          end;
    end;
    Close(t);
end.

@happyserge · 24.11.2008, 02:56 **[ТС]**

Может быть я что-то не так понимаю, но программа не должна что-либо записывать в файл. Она ведь должна читать из файла и лишь выводить на экран в последовательности - сначала вопросительные, затем восклицательные!?..

@Arriba · 24.11.2008, 15:22

happyserge, тьфу извини переборщил чёт,
нуно просто вместо

Pascal
1
2
3
4
         Assign(t2,'2.txt');
         Append(t2);
         WriteLn(t2,predl);
         Close(t2);

написать

Pascal
1
         WriteLn(predl);

@happyserge · 25.11.2008, 02:43 **[ТС]**

Что-то не хочет программка работать.. При компиляции даже *.exe файл не создаётся. А при запуске проги ничего не происходит.. Может всё-таки взглянете ещё разок на задание внимательно и на прогу?

@Arriba · 25.11.2008, 11:34

Вот программа, проверенная на 100%, экзешник создаётся...Если изменения не вносиш то будет работать.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
program Project2;
 
var t,t2:Text;
    s,predl:string;
    i:integer;
begin
    Assign(t,'1.txt');
    Reset(t);
    predl:='';
      while not EOF(t) do
    begin
      ReadLn(t,s);
       for i:=1 to length(s) do
        if s[i]<>'?' then
         if s[i]<>'!' then
          predl:=predl+s[i]
         else
          predl:=''
        else
          begin
         predl:=predl+s[i];
         WriteLn(predl);
         predl:='';
          end;
    end;
    Close(t);
 
    Assign(t,'1.txt');
    Reset(t);
    predl:='';
      while not EOF(t) do
    begin
      ReadLn(t,s);
       for i:=1 to length(s) do
        if s[i]<>'!' then
         if s[i]<>'?' then
          predl:=predl+s[i]
         else
          predl:=''
        else
          begin
         predl:=predl+s[i];
         WriteLn(predl);
         predl:='';
          end;
    end;
    Close(t);
    ReadLn;
end.

@happyserge · 25.11.2008, 15:45 **[ТС]**

Переписал прогу один в один, проверил, поместил в папку proga7.. туда же положил и файл 1.txt, но при запуске прога пишет "file not found"..

@lexus_ilia · 25.11.2008, 21:32

Не, ты положи 1.txt в папку BIN и тогда будет тебе счастье, а вот когда получишь exe-файл, то можно сам exe, для примера, переместить и в папку с твои exe файлом положить 1.txt
Тем более если ты из среды Паскаля запускаешь прогу, то она ищет файлы в папке BIN.

@Arriba · 25.11.2008, 23:39

lexus_ilia, ты прав, а я чёт даж и не подумал, что он кладёт в другую папку...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@happyserge 0 / 0 / 0 Регистрация: 15.11.2008 Сообщений: 23

	Программирование операций над строками и текстовыми файлами... 22.11.2008, 15:43. Показов 2399. Ответов 13 Метки нет (Все метки) Доброго времени суток, уважаемые! Необходимо написать програмку, которая считывает текст из файла и выводит на экран сначала вопросительные, а затем восклицательные знаки. Заранее спасибо! 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.11.2008, 18:26
	А весь остальной текст не выводит, только эти знаки? 0

@happyserge 0 / 0 / 0 Регистрация: 15.11.2008 Сообщений: 23
	22.11.2008, 19:47 [ТС]
	Прошу прощения! Конечно же - выводить нужно сначала вопросительные, а затем восклицательные предложения. Ещё раз прошу прощения..) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	23.11.2008, 12:27
	Вот они партизанские гены! 0

@happyserge 0 / 0 / 0 Регистрация: 15.11.2008 Сообщений: 23
	23.11.2008, 13:38 [ТС]
	Пусть текст состоит только из восклицательных и вопросительных предложений абсолютно любого смысла и содержания. 0

@happyserge 0 / 0 / 0 Регистрация: 15.11.2008 Сообщений: 23
	24.11.2008, 02:56 [ТС]
	Может быть я что-то не так понимаю, но программа не должна что-либо записывать в файл. Она ведь должна читать из файла и лишь выводить на экран в последовательности - сначала вопросительные, затем восклицательные!?.. 0

@happyserge 0 / 0 / 0 Регистрация: 15.11.2008 Сообщений: 23
	25.11.2008, 02:43 [ТС]
	Что-то не хочет программка работать.. При компиляции даже *.exe файл не создаётся. А при запуске проги ничего не происходит.. Может всё-таки взглянете ещё разок на задание внимательно и на прогу? 0

@happyserge 0 / 0 / 0 Регистрация: 15.11.2008 Сообщений: 23
	25.11.2008, 15:45 [ТС]
	Переписал прогу один в один, проверил, поместил в папку proga7.. туда же положил и файл 1.txt, но при запуске прога пишет "file not found".. Миниатюры 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	25.11.2008, 21:32
	Не, ты положи 1.txt в папку BIN и тогда будет тебе счастье, а вот когда получишь exe-файл, то можно сам exe, для примера, переместить и в папку с твои exe файлом положить 1.txt Тем более если ты из среды Паскаля запускаешь прогу, то она ищет файлы в папке BIN. 0

@Arriba 257 / 173 / 27 Регистрация: 17.10.2008 Сообщений: 770
	25.11.2008, 23:39
	lexus_ilia, ты прав, а я чёт даж и не подумал, что он кладёт в другую папку... 0