Форум программистов, компьютерный форум, киберфорум
Lazarus
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Lazarus
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
38 / 12 / 1
Регистрация: 02.04.2012
Сообщений: 91
Записей в блоге: 1
1

Сделать входной и выходной файл

20.06.2012, 16:43. Показов 1589. Ответов 3
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
нужно зделать из этой задачи входные файлы и выходные помоите плиз

Pascal
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
47

var
  Form1: TForm1; 
a:array[0..4,0..3] of integer; b:array [0..4] of integer;
c:array [0..4] of integer;
i,j,summa,ceh:word;
min_a: integer;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
 BEGIN
randomize;
for i:=0 to 4 do
begin
form1.StringGrid1.Cells[i,j]:=(' цех N '+floattostr(i)+':');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
for i:=0 to 4 do
for j:=0 to 3 do
begin
a[i,j]:=10+random(90);
form1.StringGrid1.Cells[i,j]:=(' '+floattostr(a[i,j]));
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
min_a:=a[1,1];
for i:=0 to 4 do  begin summa:=0;
for j:=0 to 3 do
summa:=summa+a[i,j]; b[i]:=summa;
form1.StringGrid1.Cells[i,j]:=(floattostr(summa));
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
min_a:=b[1];
for i:=2 to 5 do
if b[i]<min_a then min_a:=b[i];
ceh:=b[1];
for i:=2 to 5 do
if b[i]<ceh then ceh:=i;
form1.memo1.Lines.Add('Минимумсырьявцехе №:'+floattostr(ceh)+' исоставляет:'+floattostr(min_a));
end;
initialization
  {$I unit1.lrs}
end.
Добавлено через 18 минут
Т.е. входной файл это текстовый документ в который водяться числа и програама считывает их, а выходной туда записываеться ответ
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 20.06.2012, 16:43
Ответы с готовыми решениями:

Как в abc pascal сделать входной и выходной файл?
Например входной input.txt выходной output.txt program poizvedenie; var n,l,s:integer; begin...

Входной/Выходной файл
выдает ошибку &quot;ошибка ввода вывода 103 файл не открыт&quot; вот код program pr; var a,c:text;...

дан входной текстовый файл. Вывести в выходной файл строку с максимальным количеством слов
Дан входной текстовый файл (одна строка – одно предложение). Вывести в выходной файл строку...

Сформируйте выходной файл, вставив в первый входной файл содержимое второго входного файла с указанной позиции
Помогите решить задачу. Даны два входных текстовых файла. Сформируйте выходной файл, вставив в...

3
1085 / 571 / 79
Регистрация: 07.04.2011
Сообщений: 971
Записей в блоге: 2
20.06.2012, 17:56 2
Процедуры Button2Click, Button3Click, Button4Click объединил и сделал одной кнопкой.
Исходный файл input.txt должен уже быть, лежать в папке проекта И заполнен любыми целыми 12 числами, через пробел в Первой строке. Выходной файл output.txt.
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
47

procedure TForm7.Button14Click(Sender: TObject);
Var
  a: array [0 .. 4, 0 .. 3] of integer;
  b: array [0 .. 4] of integer;
  c: array [0 .. 4] of integer;
  i, j, summa, ceh: word;
  min_a: integer;
  f1, f2: TextFile;
 
begin
  AssignFile(f1, 'input.txt');
  reset(f1);
    for i := 0 to 4 do
      for j := 0 to 3 do
        begin
          Read(f1, a[i, j]);
          SG1.Cells[j, i] := IntToStr(a[i, j]);
        end;
 
    CloseFile(f1);
 
  /// ////////////////////////
  min_a := a[0, 0];
  for i := 0 to 4 do
    begin
      summa := 0;
      for j := 0 to 3 do
        summa := summa + a[i, j];
      b[i] := summa;
      SG1.Cells[j, i] := (IntToStr(summa));
    end;
/////////////////////////////
  ceh := 0;
  min_a := b[0];
  for i := 0 to 2 do
    if b[i] < min_a then
    begin
      min_a := b[i];
      ceh := i;
    end;
  Memo1.Lines.Add('Минимум сырья в цехе №:' + floattostr(ceh) + ' и составляет:' + floattostr(min_a));
   AssignFile(f2, 'output.txt');
   rewrite(f2);
   write(f2,'Минимум сырья в цехе №:',ceh,' и составляет:',min_a);
   closefile(f2);
 
end;
1
38 / 12 / 1
Регистрация: 02.04.2012
Сообщений: 91
Записей в блоге: 1
20.06.2012, 18:02  [ТС] 3
посмотри ниже пожалуйсто а такая версия как... прост набросал что знал

Добавлено через 28 секунд
Pascal
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88

var
  Form1: TForm1;
a:array[0..4,0..3] of integer; b:array [0..4] of integer;
c:array [0..4] of integer;
i,j,summa,ceh:word;
min_a: integer;
 f:  textfile;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
  if form1.OpenDialog1.Execute then
  begin
       form1.LabeledEdit1.Text:=form1.OpenDialog1.FileName;
       AssignFile(f,form1.OpenDialog1.FileName);
       reset(f);
 BEGIN
for i:=0 to 4 do
 read(f,c[i]);
 for i:=0 to 4 do
begin
form1.StringGrid1.Cells[i,j]:=(' цех N '+floattostr(i)+':');
end;  CloseFile(f);
end;
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
  begin
if form1.OpenDialog2.Execute then
  begin
       form1.LabeledEdit2.Text:=form1.OpenDialog2.FileName;
       AssignFile(f,form1.OpenDialog2.FileName);
       reset(f);
begin
 for i:=0 to 4 do
 for j:=0 to 3 do
   read(f,a[i,j]);
   for i:=0 to 4 do
 for j:=0 to 3 do
begin
form1.StringGrid1.Cells[i,j]:=(' '+floattostr(a[i,j]));
end;    CloseFile(f);
end;
end;
  end;
procedure TForm1.Button3Click(Sender: TObject);
begin
AssignFile(f,form1.LabeledEdit3.Text);
     rewrite(f);
  min_a:=a[1,1];
 
for i:=0 to 4 do  begin summa:=0;
for j:=0 to 3 do
  begin
summa:=summa+a[i,j]; b[i]:=summa;
form1.StringGrid1.Cells[i,j]:=(floattostr(summa));
writeln(f,form1.StringGrid1.Cells[i,j]);
end;
end;
 CloseFile(f);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
AssignFile(f,form1.LabeledEdit4.Text);
 rewrite(f);
 min_a:=b[1];
for i:=2 to 5 do
if b[i]<min_a then min_a:=b[i];
ceh:=b[1];
for i:=2 to 5 do
if b[i]<ceh then ceh:=i;
form1.memo1.Lines.Add('Минимум сырья в цехе №:'+floattostr(ceh)+' и составляет:'+floattostr(min_a));
writeln(f,form1.memo1.Lines.Add('Минимум сырья в цехе №:'+floattostr(ceh)+' и составляет:'+floattostr(min_a)));
      CloseFile(f);
      end;
procedure TForm1.Button5Click(Sender: TObject);
begin
  if form1.SaveDialog1.Execute then
     form1.LabeledEdit3.Text:=form1.SaveDialog1.FileName;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
   if form1.SaveDialog2.Execute then
   form1.LabeledEdit4.Text:=form1.SaveDialog2.FileName;
end;
initialization
  {$I unit1.lrs}
end.
0
1085 / 571 / 79
Регистрация: 07.04.2011
Сообщений: 971
Записей в блоге: 2
20.06.2012, 18:30 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

procedure TForm7.Button14Click(Sender: TObject);
Var
  a: array [0 .. 4, 0 .. 3] of integer;
  b: array [0 .. 4] of integer;
  c: array [0 .. 4] of integer;
  i, j, summa, ceh: word;
  min_a: integer;
  f1, f2: TextFile;
 
begin
  if form1.OpenDialog1.Execute then
    begin
      form1.LabeledEdit1.Text := form1.OpenDialog1.FileName;
      AssignFile(f1, OpenDialog1.FileName);
      reset(f1);
      for i := 0 to 4 do
        for j := 0 to 3 do
          begin
            Read(f1, a[i, j]);
            SG1.Cells[j, i] := IntToStr(a[i, j]);
          end;
 
      CloseFile(f1);
    end;
  /// ////////////////////////
  min_a := a[0, 0];
  for i := 0 to 4 do
    begin
      summa := 0;
      for j := 0 to 3 do
        summa := summa + a[i, j];
      b[i] := summa;
      SG1.Cells[j, i] := (IntToStr(summa));
    end;
  /// //////////////////////////
  ceh := 0;
  min_a := b[0];
  for i := 0 to 2 do
    if b[i] < min_a then
      begin
        min_a := b[i];
        ceh := i;
      end;
  Memo1.Lines.Add('Минимум сырья в цехе №:' + floattostr(ceh) + ' и составляет:' + floattostr(min_a));
 
  if form1.SaveDialog1.Execute then
    begin
      form1.LabeledEdit3.Text := form1.SaveDialog1.FileName;
      AssignFile(f2, form1.SaveDialog1.FileName);
      rewrite(f2);
      write(f2, 'Минимум сырья в цехе №:', ceh, ' и составляет:', min_a);
      CloseFile(f2);
 
    end;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 20.06.2012, 18:30
Помогаю со студенческими работами здесь

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

Входной и выходной файл. Исправить код программы
Имя входного файла: b.in Имя выходного файла: b.out Два сотрудника подали своему начальнику...

Дан входной текстовый файл, строка S (вводится с клавиатуры). Записать в выходной файл все строки входного файла, содержащие в качестве фрагмента стро
Дан входной текстовый файл, строка S (вводится с клавиатуры). Записать в выходной файл все строки...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru