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

Вывод в файл процедурой

19.12.2015, 00:16. Просмотров 195. Ответов 2
Метки нет (Все метки)

пожалуйста,кто разбирается в процедурах и функциях,помогите доделать программу,которая меняет порядок следования слов на обратный.
Срочно!
нужно сделать так,чтобы не портились исходные данные и выводились исходные данные и результат в файл. с вводом из файла вроде получилось
ввод,вывод и обработку осуществлять в процедурах и функциях
вот что сделал:
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
var
  st:string;
  pr:integer;
 
procedure VvodStr(var st:string);
var
  fin:TextFile;
begin
  AssignFile(fin,'File1.txt');
  Reset(fin);
  readln(fin,st);
  CloseFile(fin);
end;
 
function smena (st:string):string;
var
  pr:integer;
begin
 while Length(st)>0 do
 begin
  pr:=Pos(' ',st); // naxodim probel
  Insert(Copy(st,1,pr),result,1); // vstavlyaem slovo do probela
  Delete(st,1,pr);
  if pr=0 then  // esli probel ne naiden
  begin
   Insert(st+' ',result,1);  // vstavlyaem poslednee slovo v nachalo stroki
  end;
  pr:=0;
 end;
end;
 
procedure VivodRes;
var
  fout:TextFile;
begin
  AssignFile(fout,'File2.txt');
  Rewrite(fout);
  writeln(fout,'Resultat ',smena(st));
  CloseFile(fout);
end;
 
begin
 VvodStr(st);
 smena(st);
 VivodRes;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2015, 00:16
Ответы с готовыми решениями:

Вывод в файл процедурой
Программа подсчитывает сколько раз в тексте встречается 2-ухбуквенное сочетание Помогите,...

Вывод результата программы в текстовый файл и в двоичный файл с именем, задаваемым пользователем
Подскажите пожалуйста, что нужно исправить. Нужно организовать вывод результата программы в...

Работа с процедурой
Доброго времени суток, нуждаюсь в помощи. Имеется процедура которая привязана к события onClick у...

Массивы с процедурой
Помогите, очень нужно, завтра сессия var Form1: TForm1; i,j,p:integer; a:mas=...

Проблема с процедурой
В делфи работаю не долго, так вот и проблеми возникают, хочу сделать две процедуры, одна активирует...

2
cintakc
0 / 0 / 0
Регистрация: 23.10.2015
Сообщений: 54
19.12.2015, 11:57 2
у вас все правильно, можно еще кнопку добаввить
Код
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


var
  st:string;
  pr:integer;

procedure VvodStr(var st:string);
var
   fin:TextFile;
begin
  AssignFile(fin,'File1.txt');
  Reset(fin);
  readln(fin,st);
  CloseFile(fin);
end;
 
function smena (st:string):string;
var
  pr:integer;
begin
 while Length(st)>0 do
 begin
  pr:=Pos(' ',st); // naxodim probel
  Insert(Copy(st,1,pr),result,1); // vstavlyaem slovo do probela
  Delete(st,1,pr);
  if pr=0 then  // esli probel ne naiden
  begin
   Insert(st+' ',result,1);  // vstavlyaem poslednee slovo v nachalo stroki
  end;
  pr:=0;
 end;
end;

procedure VivodRes;
var
  fout:TextFile;
begin
  AssignFile(fout,'File2.txt');
  Rewrite(fout);
  writeln(fout,st);
  writeln(fout,'Resultat ',smena(st));
  CloseFile(fout);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
   VvodStr(st);
   smena (st);
   VivodRes;
end;

end.
Добавлено через 14 минут
в папке с проектом должен уже быть файл File1.txt, с текстовой строкой
0
Zdouc
0 / 0 / 0
Регистрация: 19.12.2015
Сообщений: 14
19.12.2015, 15:46  [ТС] 3
моя программа не работает.похоже,что с выводом в файл что-то неверно. при выполнении программы открывается пустое окно,которое обычно выводит данные на экран. +нужно вывести исходные данные
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2015, 15:46

вопрос с процедурой
program Project2; {$APPTYPE CONSOLE} uses SysUtils; const M=4; var A: array of integer;...

экзамен. задача с процедурой
Используя процедуру 1 сформировать матрицу а(4х5) по формуле Аij = i + j при i>=j i^2 при i<j ...

Вывод в файл.
program Project2; {$APPTYPE CONSOLE} uses SysUtils; type Tlist=^List; List=record inf:byte;...


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

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

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