Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/25: Рейтинг темы: голосов - 25, средняя оценка - 4.92
 Аватар для @lёHa
0 / 0 / 0
Регистрация: 26.03.2010
Сообщений: 34

Текстовые файлы, нужно вывести ответ в сам блокнот...

02.04.2010, 08:39. Показов 4685. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Создать в программе Блокнот текстовый файл. Написать программу, которая высчитывает количество слов и чисел в созданном текстовом файле.


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
var f:text;
    s,s1:string;
    i,c,k,ks,kch:integer;
    r:longint;
begin
assign(f,'file1.txt');
write('Имя файла для чтения: ');
readln(s);
s:=s+'.txt';
assign(f,s);
reset(f);
ks:=0;kch:=0;
while not eof(f) do
 begin
  readln(f,s);
  i:=1;
  while i<=length(s) do
  if (s[i]<>' ')and((s[i-1]=' ')or(i=1)) then
  {если не пробел, а перед ним пробел или это первый символ}
   begin
    ks:=ks+1;{считаем все слова}
    k:=i;s1:='';
    while (s[k]<>' ')and(k<=length(s))do {пока не пробел и не конец строки}
     begin
      s1:=s1+s[k];{составляем слово}
      k:=k+1;{идем вперед}
     end;
    val(s1,r,c);{пробуем преобразовать в число}
    if c=0 then kch:=kch+1;{если код ошибки=0, значит число, считаем}
    i:=i+length(s1);{перепрыгиваем через число}
   end
  else i:=i+1;{иначе идем дальше}
 end;
write('Общее количество слов=',ks,'  в т.ч. чисел=',kch);
close(f);
readln;
end.
нужно вывести ответ в сам блокнот... т.е. должно показываться сколько слов и цифр, но уже не только в самой программе но и в блокноте....
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
02.04.2010, 08:39
Ответы с готовыми решениями:

Определить строки этого файла, содержащие максимальную по длине подстроку, состоящую из одинаковых символов
вот задание для программы: 6. Задан текстовый файл input.txt. Требуется определить строки этого файла, содержащие максимальную по длине...

С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных
С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. Помогите...

по теме текстовые файлы.нужно перевести в паскаль,пожалуйста
#include &lt;iostream&gt; #include &lt;conio.h&gt; #include &lt;fstream&gt; using namespace std; int main() { ifstream F(&quot;1.txt&quot;); ...

3
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
02.04.2010, 09:09
@lёHa, Добавить в тот же файл, или в новый? И, потом, условие сразу нормально написать влом? Кроме того, Вы не первый день на форуме и пора бы научиться выделять код тегами Pascal, как все это делают. Или до конца Вашей учебы это я за Вас делать буду?
1
 Аватар для @lёHa
0 / 0 / 0
Регистрация: 26.03.2010
Сообщений: 34
06.04.2010, 18:40  [ТС]
Добавить в тот же файл
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
06.04.2010, 19:13
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
uses crt;
var f:text;
    name,s,s1:string;
    i,c,k,ks,kch:integer;
    r:longint;
begin
clrscr;
assign(f,'file1.txt');
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
reset(f);
ks:=0;kch:=0;
while not eof(f) do
 begin
  readln(f,s);
  i:=1;
  while i<=length(s) do
  if (s[i]<>' ')and((s[i-1]=' ')or(i=1)) then
  {если не пробел, а перед ним пробел или это первый символ}
   begin
    ks:=ks+1;{считаем все слова}
    k:=i;s1:='';
    while (s[k]<>' ')and(k<=length(s))do {пока не пробел и не конец строки}
     begin
      s1:=s1+s[k];{составляем слово}
      k:=k+1;{идем вперед}
     end;
    val(s1,r,c);{пробуем преобразовать в число}
    if c=0 then kch:=kch+1;{если код ошибки=0, значит число, считаем}
    i:=i+length(s1);{перепрыгиваем через число}
   end
  else i:=i+1;{иначе идем дальше}
 end;
writeln('Общее количество слов=',ks,'  в т.ч. чисел=',kch);
append(f);
writeln(f,'');
write(f,'Obshee kolichestvo slov=',ks,'  v t.ch. chisel=',kch);
close(f);
write('Результат дописан в файл ',name);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.04.2010, 19:13
Помогаю со студенческими работами здесь

Посоветуйте пожалуйста! У меня задание на курсовой написать блокнот Что бы файлы открывал и сохранял в .txt Нужно еще чтобы на печать выводил!
Посоветуйте как это Сделать а то я не представляю как это организовать! Зарание всем спасибо)))

Нужно, чтобы VB загружал отдельные текстовые файлы или другие в код программы
Здравствуйте уважаемые товарищи программисты! Вообщем сабж.

Текстовые файлы. Вывести все строчки, которые начинаются с vb
короче говоря в файле in.text записоноvb 1 1esf sf 3 ds vb 5 vb 3 vb12 wrw vb100

Вывести все текстовые файлы из папки в выпадающий список
Здравствуйте ув. web разработчики. Столкнулся с проблемой:wall:. Есть папка Data\ в ней файлы *.txt как вывести все файлы txt в список...

Текстовые файлы: вывести по алфавиту звонкие согласные из каждого нечетного слова
программа производит чтение из файла....txt и по алфавиту выводит ЗВОНКИЕ СОГЛАСНЫЕ из каждого нечётного слова.только нечётного. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
PowerShell Snippets
iNNOKENTIY21 11.11.2025
Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru