RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Код ::
Здравствуйте! Помогите перевести программу с Pascal на delphi Код :: выделить код 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! Код (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 под рукой нет, поэтому код не проверял. Если, что обращайтесь в мини-форум. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
