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

Не открываются текстовые файлы

13.03.2018, 21:13. Просмотров 92. Ответов 1
Метки нет (Все метки)

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
program Project2;
 
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Math;
function tmax(s:string):Integer;
const mn=['1','0'];
var  i,t,smax: Integer;
begin
  t:=0;
  smax:=0;
  for i:=1 to Length(s) do
   if s[i] in mn then
    Inc(t)
   else 
   begin
     if t>smax then
      smax:=t;
     t:=0;
   end;
  tmax:=smax;
end;
var f1,f2: TextFile;
    s: string;
begin
  Assign(f1,'File1.txt');
  Reset(f1);
  Assign(f2,'File2.txt');
  Rewrite(f2);
  Read(f1,s);
  Writeln(f2,s);
  Writeln(f2,tmax(s));
  Close(f1);
  Close(f2);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2018, 21:13
Ответы с готовыми решениями:

Текстовые файлы
В текстовом редакторе создать файл с информацией о сотрудниках...

Текстовые файлы
Дан текстовый файл литерных величин. Выяснить, верно ли, что среди символов...

Текстовые файлы и окна
Пожалуйста помогите написать на форме данную программу: Написать процедуру для...

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

Не читаются текстовые файлы
Собственно задача в том чтобы имена двух текстовых файлов вводились в форму,...

1
Joey
Форумчанин
831 / 552 / 219
Регистрация: 05.05.2015
Сообщений: 3,211
Записей в блоге: 2
13.03.2018, 22:58 2
А в чем выражается "неоткрывание"? Ошибку выдает или ничего не происходит?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2018, 22:58

Соединить текстовые файлы
Возле программы расположено, к примеру, 5 текстовых файлов. Как при нажатии...

S.O.S. Текстовые файлы и MEMO
Необходимо написать программу, довольно таки простую, на первый взгляд. есть...

Текстовые файлы. Исправить ошибку
Помогите исправить ошибки в проге пож-та. Условие таковы: "Дан файл. Записать...


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

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

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