Технический форум - Delphi. Сформировать файл, в котором не менее 20 целых чисел

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Delphi. Сформировать файл, в котором не менее 20 целых чисел (http://www.tehnari.ru/f41/t97766/)

Виктор76

08.08.2014 09:55

Delphi. Сформировать файл, в котором не менее 20 целых чисел

Доброго времени суток уважаемые форумчане. Помогите решить задачу на Delphi следующего типа.
Сформировать файл, в котором не менее 20 целых чисел. Переписать положительные числа в один файл, а отрицательные числа в другой (ноль считать положительным числом). Заранее СПАСИБО!

Vladimir_S

08.08.2014 10:04

Цитата:

Сообщение от Виктор76 (Сообщение 1053131)

Помогите решить задачу на Delphi

Могу на Паскале нарисовать. А уж Вы сами перегоните в Delphi. Устроит?

Виктор76

08.08.2014 10:13

Цитата:

Сообщение от Vladimir_S (Сообщение 1053135)

Могу на Паскале нарисовать. А уж Вы сами перегоните в Delphi. Устроит?

Буду и этому рад.

Vladimir_S

08.08.2014 10:13

Цитата:

Сообщение от Виктор76 (Сообщение 1053136)

Буду и этому рад.

Ладно, сейчас нарисую.

Vladimir_S

08.08.2014 10:27

Получите:

Код:

Var

 f1,f2,f3:Text;

 i:Byte;

 m:Integer;

Begin

 Assign(f1,'file1.txt');

 Rewrite(f1);

 Assign(f2,'file2.txt');

 Rewrite(f2);

 Assign(f3,'file3.txt');

 Rewrite(f3);

 Randomize;

 for i:=1 to 20 do Write(f1, -20+Random(40),' ');

 Close(f1);

 Reset(f1);

 for i:=1 to 20 do

  begin

   Read(f1,m);

   if m<0 then

    Write(f3, m,' ')

   else

    Write(f2, m,' ');

  end;

 Close(f1);

 Close(f2);

 Close(f3);

End.

В принципе, если я правильно помню, для перевода в Delphi достаточно сохранить этот код в файле с расширением .dpr и всюду заменить в нем Assign на AssignFile и Close на CloseFile. Вроде так.

Виктор76

08.08.2014 10:29

Цитата:

Сообщение от Vladimir_S (Сообщение 1053139)

Спасибо. Начало положено)))

Виктор76

08.08.2014 11:14

Получил новое задание. Теперь нужно этот же код переделать в визуальное приложение на Delphi.:tehnari_ru_837:

poiu	08.08.2014 14:31

и что именно надо? один button да один opendialog?

Виктор76

12.08.2014 10:37

Цитата:

Сообщение от poiu (Сообщение 1053182)

и что именно надо? один button да один opendialog?

Здравствуйте. Нужно Сформировать файл, в котором не менее 20 целых чисел. Переписать положительные числа в один файл, а отрицательные числа в другой (ноль считать положительным числом).
Нужно memo1 через который будут вводиться числа и записываться в файл1, а в memo2 и memo3 будут записываться отсортерованные числа и соответственно еще в файл2 и файл3. Заранее благодарен.

Виктор76

12.08.2014 10:39

Цитата:

Сообщение от Виктор76 (Сообщение 1053933)

И кнопка Button при нажатии на которую все это будет происходить

Часовой пояс GMT +4, время: 03:49.

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице