Консультации Портала - Консультация #189348

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

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

11.05.2016, 21:47

0.00 руб.

0 2 1

Компьютеры Программирование

Здравствуйте! Помогите перевести программу с 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

Обсуждение

давно

almazmr

Посетитель
400259
21

11.05.2016, 21:53

общий

Если можно, то скиньте файлом

давно

Зенченко Константин Николаевич

Старший Модератор
31795
6196

12.05.2016, 10:40

общий

это ответ

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

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

[code lang=pascal h=200]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.[/code]

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

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа

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

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.