Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.04.2011, 17:12   #1
gs.Soroka
 
Регистрация: 04.04.2011
Сообщений: 7
По умолчанию Не выводит все совпадения символов.

Задание по частотному словарю.
Чтение из текстового файла.Но выводит только точки и запятые, буквы не считает. Помогите советом. Друг сказал у него всё выводит, может из-за ОС или ПО?Стоит Rad studio 2010 на Windows 7.

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a: array [1..256] of integer;
  s:string;
  i,j:integer;
  t:textfile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 256 do
a[i]:=0;

Assignfile(t,'1.txt');
reset(t);

 while not eof(t) do
  begin
  readln(t,s);
   for i:=1 to length(s) do
    begin
    j:=ord(s[i]);
    a[j]:=a[j]+1;
    end;
  end;
s:='';
 j:=1;
  for i:=1 to 256 do
   begin
   if a[i]>0 then
    begin
    s:=s+inttostr(j)+') '+chr(i)+' = '+inttostr(a[i])+#9;
    inc(j);
 //   memo1.Lines.Add(s);
   //
   end;  end;
  memo1.Text:=s;
//label1.caption:=s;
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 06.04.2011 в 21:32.
gs.Soroka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать программу, которая считывает текст из файла и выводит на экран все его предложения в обратном по avic Общие вопросы C/C++ 1 22.12.2010 12:41
Записать функцию заменяющую (массиве символов) все числа на пробел. fsi Паскаль, Turbo Pascal, PascalABC.NET 2 01.06.2010 20:09
stringgrid,сравнение двух столбцов на совпадения и не совпадения betirsolt БД в Delphi 7 19.01.2010 15:09
Программа Вводит символьную строку и число N и выводит строку, состоящую из первых N символов (С++) Yulai Помощь студентам 1 11.05.2009 11:39
процедура, которая выводит все слова, начинающиеся с согласных букв латинского алфавита. sergeyfsd Паскаль, Turbo Pascal, PascalABC.NET 6 21.02.2008 22:29