Написать программу, которая создает текстовый файл Output.txt, содержащий все числа файла Input.txt, кратные 5

@Ириночка · Регистрация: 21.04.2010

уважаемые программисты помогите пожалуйста сделать задание из контрольной работы.

Текстовый файл Input.txt содержит целые числа. Написать программу, которая создает текстовый файл Output.txt, содержащий все числа файла Input.txt, кратные 5, в порядке убывания.

я сама вообще не понимаю что тут надо делать.

@igoriy · 21.04.2010, 15:44

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Label
 bye;
var
str,str1:TStrings;
i,a,int,b,i1,i2: Integer;
begin
str:= TStringList.Create;
str1:= TStringList.Create;
str.LoadFromFile('Input.txt');
 for I := 0 to str.Count- 1 do
   begin
   a:=StrToInt(str.Strings[i]);
   int:= a mod 5;
   if int=0 then begin
    str1.Add(IntToStr(a));
   end;
   end;
   str.Clear;
bye:
begin
  b:=StrToInt(str1.Strings[0]);
  for I1 := 0 to str1.Count - 1 do
   begin
     if b< StrToInt(str1.Strings[i1]) then b:= StrToInt(str1.Strings[i1]);
   end;
   i1:=0;
  for I2 := 0 to str1.Count - 1 do
   begin
     if b= StrToInt(str1.Strings[i2]) then
      begin
        str.Add(IntToStr(b));
        str1.Delete(I2);
      end;
   end;
   i2:=0;
   if str1.Count > 0 then  goto bye
    else begin
    str.SaveToFile('Output.txt');
    Label1.Caption:= 'Данные успешно отсортированы и записаны в файл "Output.txt"';
    end;
 
end;
end;
 
end.

@igoriy · 21.04.2010, 17:12

ща маленько потестировал - ошибку нашел Вот новый код - только одна строчка добавлена

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Label
 bye;
var
str,str1:TStrings;
i,a,int,b,i1,i2,k: Integer;
begin
str:= TStringList.Create;
str1:= TStringList.Create;
str.LoadFromFile('Input.txt');
 for I := 0 to str.Count- 1 do
   begin
   a:=StrToInt(str.Strings[i]);
   int:= a mod 5;
   if int=0 then begin
    str1.Add(IntToStr(a));
   end;
   end;
   str.Clear;
 
bye:
begin
  b:=StrToInt(str1.Strings[0]);
 
  for I1 := 0 to str1.Count - 1 do
   begin
     if b< StrToInt(str1.Strings[i1]) then b:= StrToInt(str1.Strings[i1]);
   end;
   i1:=0;
  for I2 := 0 to str1.Count-1  do
   begin
     if b= StrToInt(str1.Strings[i2]) then
      begin
        str.Add(IntToStr(b));
        str1.Delete(I2);
        break; // нужно добавить обязательно!!!!
      end;
   end;
   i2:=0;
   if str1.Count > 0 then  goto bye
    else begin
    str.SaveToFile('Output.txt');
    Label1.Caption:= 'Данные успешно отсортированы и записаны в файл "Output.txt"';
    end;
 
end;
end;
 
end.

Добавлено через 8 минут
и еще доработка

Delphi

 for I := 0 to str.Count- 1 do
   begin
   a:=StrToInt(str.Strings[i]);
   int:= a mod 5;
   if (int=0) and (a<>0) then begin  // (a<>0)  иначе 0 то же добавится
    str1.Add(IntToStr(a));
   end;
   end;
   str.Clear;

@Ириночка · 21.04.2010, 21:55 **[ТС]**

ой спасибо огромное igoriy !))) ты настоящий мужчина!)
а то я вроде поступила на программное обеспечение а как начали обьяснять с непонятного так и закончили вообще не понятным и как хочешь так и решай ети программы блин

@Ириночка · 21.04.2010, 23:18 **[ТС]**

igoriy скажи пожалуйста после изменения кода т.е. последний код меняю и у меня выподает ошибка как на скрине я что то не так делаю?

@igoriy · 22.04.2010, 05:16

удали эту строчку совсем - просто у нас разные версии дельфи - у тебя этой строки быть не должно

@Ириночка · 22.04.2010, 08:18 **[ТС]**

все получилось спасибо!

@Ириночка 0 / 0 / 0 Регистрация: 21.04.2010 Сообщений: 4
		1
	Написать программу, которая создает текстовый файл Output.txt, содержащий все числа файла Input.txt, кратные 5 21.04.2010, 10:15. Показов 4282. Ответов 6 Метки нет (Все метки) уважаемые программисты помогите пожалуйста сделать задание из контрольной работы. Текстовый файл Input.txt содержит целые числа. Написать программу, которая создает текстовый файл Output.txt, содержащий все числа файла Input.txt, кратные 5, в порядке убывания. я сама вообще не понимаю что тут надо делать. 0

@Ириночка 0 / 0 / 0 Регистрация: 21.04.2010 Сообщений: 4
	21.04.2010, 21:55 [ТС]	4
	ой спасибо огромное igoriy !))) ты настоящий мужчина!) а то я вроде поступила на программное обеспечение а как начали обьяснять с непонятного так и закончили вообще не понятным и как хочешь так и решай ети программы блин 0

@Ириночка 0 / 0 / 0 Регистрация: 21.04.2010 Сообщений: 4
	21.04.2010, 23:18 [ТС]	5
	igoriy скажи пожалуйста после изменения кода т.е. последний код меняю и у меня выподает ошибка как на скрине я что то не так делаю? Миниатюры 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	22.04.2010, 05:16	6
	удали эту строчку совсем - просто у нас разные версии дельфи - у тебя этой строки быть не должно 0

@Ириночка 0 / 0 / 0 Регистрация: 21.04.2010 Сообщений: 4
	22.04.2010, 08:18 [ТС]	7
	все получилось спасибо! 0

Опции темы