Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Nana Osaki
0 / 0 / 0
Регистрация: 12.01.2011
Сообщений: 2
#1

Типизированные файлы - Delphi

15.01.2011, 14:14. Просмотров 310. Ответов 0
Метки нет (Все метки)

Привет всем!!!

Помогите пожалуйста с задачей...
Дан файл целых чисел. Вывести количество содержащихся в нем серий (то есть наборов последовательно расположенных одинаковых элементов).

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
   AssignFile(F,OpenDialog1.FileName);
   Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
   Reset(F);
   While not eof(F) do
   Read(F,Xs);
   Seria:=False;
   Kol:=0;
   While not eof(F) do
      begin
         Read(F,X);
         If (X=Xs) and (not Seria) then
         begin
            Seria:=True;
            Kol:=Kol+1;
         end;
         If X<>Xs then
         begin
            Read(F,Xs);
            Seria:=False;
        end;
     End;
  CloseFile(F);
будет работать?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.01.2011, 14:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Типизированные файлы (Delphi):

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

Типизированные файлы
Записать в файл N действительных чисел. Найти разность первой и последней...

Типизированные файлы
Здравствуйте, помогите пожалуйста. Пусть дан файл целых чисел. Определите...

Типизированные файлы. OpenDialog
В начало каждой строки файла вставить её номер и записать ...

Прога на типизированные файлы.
Дан файл,содержащий данные о выдаче книг в библиотеке.Он содержит дату...

задача на типизированные файлы
Помогите пожалуйста решить, добрые люди. Идей нету вообще( Дан файл Tovar,...

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

Типизированные и текстовые файлы
Задан текстовый файл с целыми числами. Переписать в типизированный файл (file...

Типизированные файлы данных
Здравствуйте! Вот в чем состоит мой вопрос: в книге, по которой я учусь, по...

Типизированные файлы. Игрушки
Дан файл, содержащий сведения об игрушках указывается название игрушки её...

Типизированные файлы f и g. Задача с однофамильцами
Имеем вот такую задачу,помогите если не трудно, время поджимает очень сильно...


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

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

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