Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
RO777
0 / 0 / 0
Регистрация: 18.01.2011
Сообщений: 1
1

Входной текстовый файл состоит из последовательностей символов, разделённых пробелами

21.01.2011, 23:03. Просмотров 1032. Ответов 4
Метки нет (Все метки)

задание :
Входной текстовый файл состоит из последовательностей символов, разделённых пробелами. Если эти символы образуют целые или вещественные числа, то преобразовать их в числа и записать по возрастанию в два файла - целых и вещественных чисел.


вот что написал я :
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
type
    { TForm1 }
      TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 var
  Form1: TForm1; 
  f,c,v:text;
  s,st: string;
implementation
 { TForm1 }
 procedure TForm1.Button1Click(Sender: TObject);
  begin
    if opendialog1.execute then
      begin
         label1.Visible:=true;
         Memo1.Visible:=true;
        s:=OpenDialog1.FileName;
        AssignFile(f,s);
        Reset(f);
        while not eof(f) do
           begin
            readln(f,st);
            Memo1.Lines.Add(st);
          end;
        CloseFile(f);
      end;
end;
но оно не хочет открывать даже файл текстовый. пишет ошибка имени файла
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2011, 23:03
Ответы с готовыми решениями:

Дан набор слов на английском языке, разделённых пробелами, в конце – точка. Выделить в последовательности нечётные слова прописными буквами
Обьясните прогу подробно что где и как (текст задачи:Дан набор слов на...

Выведите в текстовый файл таблицу символов (коды 0-255) в 32 строки по 8 символов
1. Выведите в текстовый файл таблицу символов (коды 0-255) в 32 строки по 8...

Выведите в текстовый файл таблицу символов (коды 0-255) в 32 строки по 8 символов
привет всем! помогите пожалуйста 2. Выведите в текстовый файл таблицу...

Обработка последовательностей символов
В записке слова зашифрованы — каждое из них записано наобо- рот. Расшифровать...

Дан входной текстовый файл. Заполните Выходной файл только теми строками, в которых ровно k символов ch
Дан входной текстовый файл. Заполните Выходной файл только теми строками, в...

4
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
22.01.2011, 18:41 2
Попробуйте объявить переменные как TextFile.
1
Iv_
36 / 36 / 7
Регистрация: 08.01.2011
Сообщений: 137
23.01.2011, 09:32 3
1. Вопрос так-то не совсем по Lazarus. Больше алгоритмами пахнет.
2. Если делаете так: AssignFile(f,s); то переменные f и s должны быть TextFile.
3. По хорошему, вам надо бы все сгрузить, например, в StringList и разбить все это на слова по пробелу.
Например так:
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
...
var w,s: string;
    i,j,n,m: integer;
    Temp: TStringList;
begin
  //сгружаем все в StringList:
  Temp:=TStringList.Create();
  Temp.LoadFromFile('путь к файлу');
  ...
  //разбиваем строки на слова:
  for i:=0 to ... do
    begin
      s:=Temp[i];
      for j:=0 to ... do
        begin
          //добавляем в конце каждой строки пробел,
          //чтобы унифицировать процесс разбивки 
          if s[Length(s)] <> ' ' then s:=s+' ';
          //вставляем то, что получилось, например, в StringGrid:
          w:=Copy(s,1,Pos(' ',s)-1);
          Delete(s,1,Length(w)+1);
          StringGrid1.Cells[j,i]:=w;
        end;
    end;
Сгрузить можно и в Memo.
А вообще, разбиение строк на подстроки можно посмотреть тут:
http://www.sources.ru/magazine/1009/pascal_to_delphi.html
или тут:
http://www.kansoftware.ru/?tid=4352
Ну, потом уже разбирайтесь, где там слова, а где цифры.

Если же входной файл изначально состоит из цифр, то тут ещё проще - сразу можно считывать всё в числовой массив.
1
YAsanYA
0 / 0 / 0
Регистрация: 31.01.2011
Сообщений: 2
04.02.2011, 00:40 4
Дк переменная "Карявая"!
0
ShaZooke
10.03.2012, 19:49     Входной текстовый файл состоит из последовательностей символов, разделённых пробелами
  #5

Не по теме:

Как удачно я в тему заглянул, ато уже хотел создавать новую тему с вопросом про работу лазаруса с текстом, а тут оказывается нуна просто переменную типа TextFile :)

0
10.03.2012, 19:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2012, 19:49
Привет! Вот еще темы с ответами:

Подсчитать количество слов в предложении (слово – это набор символов, разделённых пробелами)
Подсчитать количество слов в предложении (слово – это набор символов,...

Создать текстовый файл и записать в него N строк, каждая из которых состоит из K символов '*'
Дано имя файла и целые положительные числа N и K. Создать текстовый файл с...

Создать текстовый файл с указанным именем и записать в него N строк, каждая из которых состоит из K символов
Привет, суперпрограммисты, а также просто супермозги! Соль: 1. Дано имя файла...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru