Подсчитать количество БУКВ в текстовом файле, используя язык Делфи

@Akylina · Регистрация: 24.03.2013

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

Здравствуйте уважаемые господа программисты!!!просто снимаю шляпу перед вашим умом!увы..у некоторых недостаток его в области программирования...
у меня к вам огромная просьба о помощи.
мне дан текстовый файл.необходимо в нем подсчитать количество БУКВ, соответственно тире,пробелы, запятые и т.д. исключить!!!используя язык делфи.
спасибо заранее вам а помощь!
если вас не затруднит, напишите пожалуйста с комментариями, очень хочу разобраться с программой.буду компенсировать недостаток ума.

@mss · 24.03.2013, 14:32

Компенсируй:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  f: file of Char;
  c: Char;
  cnt: Integer;
..
AssignFile(f, 'file.txt');
Reset(f);
cnt := 0;
while not Eof(f) do begin
  Read(f, c);
  if c in ['А'..'Я', 'а'..'я', 'A'..'Z', 'a'..'z'] then Inc(cnt);
end;
CloseFile(f);

@Akylina · 24.03.2013, 17:47 **[ТС]**

спасибо вам огромное)побольше бы таких умных людей)))!!!!

Добавлено через 1 час 47 минут
простите пожалуйста но у меня не получается. посмотрите мой листинг программы пожалуйста и укажите на ошибки

Delphi
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var namefile,s,f:string;
    a,b:textfile;
    i,k,cnt:integer;
    c: Char;
 
begin
 if opendialog1.Execute then begin
 namefile:=opendialog1.FileName;
 assignfile(a, namefile); {ñâÿçûâ èìÿ ôàéëîâ ïåðåìåííîé ñ ïîëíûì èìåíåì ôàéëà}
 reset(a);  {ôàéë îòêðûò äëÿ ÷òåíèÿ}
  if savedialog1.Execute then begin
  f:= savedialog1.FileName;
  assignfile(b, f);
 rewrite(b); {ôàéë îòêðûò äëÿ çàïèñè}
 while not eof(a) do begin
 readln(a,s);
 for i:=1 to length(s)-1 do begin
 if ((s[i]='æ')or (s[i]='Æ')) and (s[i+1]='û') then
                                               s[i+1]:='è';
   if ((s[i]='Æ')or (s[i]='æ')) and (s[i+1]='û') then
                                                  s[i+1]:='è';
 if ((s[i]='Ø')or (s[i]='ø')) and (s[i+1]='û') then
                                                s[i+1]:='è';
 if ((s[i]='×')or (s[i]='×')) and (s[i+1]='ÿ') then
                                                s[i+1]:='à';
 if ((s[i]='Ù')or (s[i]='ù')) and (s[i+1]='ÿ') then
                                                  s[i+1]:='à';
 if ((s[i]='×')or (s[i]='÷')) and (s[i+1]='þ') then
                                                 s[i+1]:='ó';
 if ((s[i]='Ù')or (s[i]='ù')) and (s[i+1]='þ') then
                                                s[i+1]:='ó';
                                                 end; end;
 
cnt := 0;
while not eof(a) do begin
read(a,c);
if  c in ['À'..'ß', 'à'..'ÿ', 'A'..'Z', 'a'..'z'] then Inc(cnt);
end;
CloseFile(a);
closefile(b);
label1.Caption:=inttostr(cnt);
end;
end;
 
end.

@mss · 24.03.2013, 17:52

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

у меня не получается

Что не получается ?

@Akylina · 24.03.2013, 17:57 **[ТС]**

простите, вот я исправила все.а то не посмотрела сразу что буквы такие получаются

Delphi
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var namefile,s,f:string;
    a,b:textfile;
    i,k,cnt:integer;
    c: Char;
 
begin
 if opendialog1.Execute then begin
 namefile:=opendialog1.FileName;
 assignfile(a, namefile);
 reset(a);  
  if savedialog1.Execute then begin
  f:= savedialog1.FileName;
  assignfile(b, f);
 rewrite(b); 
 while not eof(a) do begin
 readln(a,s);
 for i:=1 to length(s)-1 do begin
 if ((s[i]='ж')or (s[i]='Ж')) and (s[i+1]='ы') then
                                               s[i+1]:='и';
   if ((s[i]='Ж')or (s[i]='ж')) and (s[i+1]='ы') then
                                                  s[i+1]:='и';
 if ((s[i]='Ш')or (s[i]='ш')) and (s[i+1]='ы') then
                                                s[i+1]:='и';
 if ((s[i]='Ч')or (s[i]='ч')) and (s[i+1]='я') then
                                                s[i+1]:='а';
 if ((s[i]='Щ')or (s[i]='щ')) and (s[i+1]='я') then
                                                  s[i+1]:='а';
 if ((s[i]='Ч')or (s[i]='ч')) and (s[i+1]='ю') then
                                                 s[i+1]:='у';
 if ((s[i]='Щ')or (s[i]='щ')) and (s[i+1]='ю') then
                                                s[i+1]:='у';
                                                 end; end;
 
cnt := 0;
while not eof(a) do begin
read(a,c);
if  c in ['А'..'Я', 'а'..'я', 'A'..'Z', 'a'..'z'] then Inc(cnt);
end;
CloseFile(a);
closefile(b);
label1.Caption:=inttostr(cnt);
end;
end;
 
end;
 
end.

Добавлено через 30 секунд
в поле лейбла выводит ноль

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

@mss · 24.03.2013, 17:58

У тебя задание предельно ясное - "дан текстовый файл.необходимо в нем подсчитать количество БУКВ"

Зачем в твоем коде все вот это

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

reset(a);
if savedialog1.Execute then begin
f:= savedialog1.FileName;
assignfile(b, f);
rewrite(b);
while not eof(a) do begin
readln(a,s);
for i:=1 to length(s)-1 do begin
if ((s[i]='ж')or (s[i]='Ж')) and (s[i+1]='ы') then
s[i+1]:='и';
if ((s[i]='Ж')or (s[i]='ж')) and (s[i+1]='ы') then
s[i+1]:='и';
if ((s[i]='Ш')or (s[i]='ш')) and (s[i+1]='ы') then
s[i+1]:='и';
if ((s[i]='Ч')or (s[i]='ч')) and (s[i+1]='я') then
s[i+1]:='а';
if ((s[i]='Щ')or (s[i]='щ')) and (s[i+1]='я') then
s[i+1]:='а';
if ((s[i]='Ч')or (s[i]='ч')) and (s[i+1]='ю') then
s[i+1]:='у';
if ((s[i]='Щ')or (s[i]='щ')) and (s[i+1]='ю') then
s[i+1]:='у';
end; end;

?

@Akylina · 24.03.2013, 17:59 **[ТС]**

это дополнительно задание было.

@mss · 24.03.2013, 18:00

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

файл сохраняю как положено

Что ты пытаешься сохранять ?
В задании нет ничего ни про какое сохранение, зачем придумывать отсебячину ?

@Akylina · 24.03.2013, 18:00 **[ТС]**

мы вместе с преподавателем делали. теперь задали количество букв подсчитать в этой же программе все сделать

@mss · 24.03.2013, 18:02

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

это дополнительно задание было.

То есть нужно догадываться что у тебя там "дополнительно задание было" ?
Имей совесть-то)

Добавлено через 1 минуту

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

задали количество букв подсчитать

Подсчет букв я тебе разжевал в #2

@Akylina · 24.03.2013, 18:10 **[ТС]**

все равно у меня этот кусок не получается. с количеством букв который.

Добавлено через 7 минут
все спасибо! получилось!!!

@mss · 24.03.2013, 18:10

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

у меня этот кусок не получается

Вот и конкретизируй что у тебя не получается

@Akylina · 24.03.2013, 18:19 **[ТС]**

спасибо за терпение!я там кое что прописать просто забыла.все работает!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
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, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Akylina 0 / 0 / 0 Регистрация: 24.03.2013 Сообщений: 7

	Подсчитать количество БУКВ в текстовом файле, используя язык Делфи 24.03.2013, 14:15. Показов 2995. Ответов 12 Метки нет (Все метки) Здравствуйте уважаемые господа программисты!!!просто снимаю шляпу перед вашим умом!увы..у некоторых недостаток его в области программирования... у меня к вам огромная просьба о помощи. мне дан текстовый файл.необходимо в нем подсчитать количество БУКВ, соответственно тире,пробелы, запятые и т.д. исключить!!!используя язык делфи. спасибо заранее вам а помощь! если вас не затруднит, напишите пожалуйста с комментариями, очень хочу разобраться с программой.буду компенсировать недостаток ума. 0

@Akylina 0 / 0 / 0 Регистрация: 24.03.2013 Сообщений: 7
	24.03.2013, 17:59 [ТС]
	это дополнительно задание было. 0

@Akylina 0 / 0 / 0 Регистрация: 24.03.2013 Сообщений: 7
	24.03.2013, 18:00 [ТС]
	мы вместе с преподавателем делали. теперь задали количество букв подсчитать в этой же программе все сделать 0

@Akylina 0 / 0 / 0 Регистрация: 24.03.2013 Сообщений: 7
	24.03.2013, 18:10 [ТС]
	все равно у меня этот кусок не получается. с количеством букв который. Добавлено через 7 минут все спасибо! получилось!!! 0

@Akylina 0 / 0 / 0 Регистрация: 24.03.2013 Сообщений: 7
	24.03.2013, 18:19 [ТС]
	спасибо за терпение!я там кое что прописать просто забыла.все работает! 0