Все выпуски  

RFpro.ru: Программирование на Delphi и Lazarus


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Евгений/Genia007/
Статус: Профессионал
Рейтинг: 89
∙ повысить рейтинг »
Асмик Гаряка
Статус: Советник
Рейтинг: 68
∙ повысить рейтинг »
Хватов Сергей
Статус: Академик
Рейтинг: 48
∙ повысить рейтинг »

∙ Pascal / Delphi / Lazarus

Номер выпуска:1682
Дата выхода:16.05.2016, 22:21
Администратор рассылки:Зенченко Константин Николаевич (Модератор)
Подписчиков / экспертов:21 / 18
Вопросов / ответов:1 / 1

Консультация # 189348: Здравствуйте! Помогите перевести программу с Pascal на delphi Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Из файла f получить файл g, исключив повторные вхождения чисел. Порядок следования чисел сохранить.
Код ::

Консультация # 189348:

Здравствуйте! Помогите перевести программу с Pascal на delphi

Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Из файла f получить файл g, исключив повторные вхождения чисел. Порядок следования чисел сохранить.

program xx;
var f,g:file of integer;
 a:set of byte;
 n,i,x:integer;
 
 begin
    a:=[];
    assign(f,'input.txt');
    assign(g,'output.txt');
    rewrite(f);
    rewrite(g);
 Write('Сколько чисел записать? ');
 readln(n);
 randomize;
 For i:=1 to n do
  begin
  x:=random(15);
  write(x,' ');
  write(f,x);
  If not (x in a) then 
    begin 
    write(g,x);
    a:=a+[x];
    end;
  end;
 reset(g);
 writeln;
 While not eof (g) do
   begin
   read(g,x);
   write(x,' ');
   end;
 close(f); 
 close(g);
 readln
 end.




Сколько чисел записать? 5
6 6 5 5 13
6 5 13

Дата отправки: 11.05.2016, 21:47
Вопрос задал: almazmr (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, almazmr!

В меню File выберите команду New | Other, затем на вкладке New появившегося диалогового окна New Items - тип создаваемого приложения — Console Application. Вставляете свой код. Меняете Assign на AssignFile и Close на CloseFile.
У Вас должно получится, что-то вроде:

Код (Pascal) :: выделить код
program xx;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

var
  f,g:file of byte;
  a:set of byte;
  n,i:integer;
  x:byte;

begin
    a:=[];
    AssignFile(f,'input.txt');
    AssignFile(g,'output.txt');
    Rewrite(f);
    Rewrite(g);
    Write('Сколько чисел записать? ');
    Readln(n);
    randomize;
    For i:=1 to n do
      begin
        x:=random(15);
        Write(x,' ');
        Write(f,x);
        If not (x in a) then 
          begin 
            Write(g,x);
            a:=a+[x];
          end;
      end;
    Reset(g);
    Writeln;
    While not eof (g) do
      begin
        Read(g,x);
        Write(x,' ');
      end;
    CloseFile(f); 
    CloseFile(g);
    Readln
 end.
end.


Осталось только запустить нажав клавишу F9.
ps:Delphi под рукой нет, поэтому код не проверял. Если, что обращайтесь в мини-форум.
Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 12.05.2016, 10:40
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное