Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 26.09.2016
Сообщений: 7
1

Как перевести этот код на код Delphi

22.11.2016, 22:05. Просмотров 865. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
const nmax=100;
var a:array[1..nmax]of integer;
    n,i,k,j,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  repeat
   a[i]:=random(20)-9;
  until a[i]<>0;{про ноли не написано в условии}
  write(a[i],' ');
 end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2016, 22:05
Ответы с готовыми решениями:

Как перевести код Pascal в Delphi ?
Подскажите пожалуйста. Вот есть уже рабочая программа написанная в среде Turbo Pascal. Как мне её...

Возможно ли перевести этот код в delphi
Glyph.Data = { F6060000424DF606000000000000360000002800000018000000180000000100 ...

Delphi на Java (перевести этот код на Джаву)
Здравствуйте уважаемые форумчанины! Нужна помощь, перевести Делфи на язык Java. Условие самой...

Перевести этот код в delphi vcl application
Как будет выглядеть код полностью если делать через delphi aplication&amp; Uses crt; Var d,m,n:...

3
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28017 / 15743 / 972
Регистрация: 15.09.2009
Сообщений: 67,812
Записей в блоге: 78
22.11.2016, 22:08 2
руками. автоматических переводчиков нет.
0
0 / 0 / 0
Регистрация: 26.09.2016
Сообщений: 7
22.11.2016, 22:10  [ТС] 3
Помог. Спасибо.
0
2508 / 1129 / 582
Регистрация: 07.06.2014
Сообщений: 3,281
22.11.2016, 22:25 4
так что там переводить - выкинь CRT и сделай консольное приложение.
ну ещё для русских букв включи кодовую страничку.
и всё, Delphi проект готов:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
program Project1;
 
{$APPTYPE CONSOLE}
uses
  Windows;
 
 
const nmax = 100;
var a: array[1..nmax] of integer;
  n, i, k, j, x: integer;
begin
  SetConsoleOutputCP(1251);
  SetConsoleCP(1251);
 
  randomize;
  repeat
    write('Размер массива до ', nmax, ' n=');
    readln(n);
  until n in [1..nmax];
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    repeat
      a[i] := random(20) - 9;
    until a[i] <> 0; {про ноли не написано в условии}
    write(a[i], ' ');
  end;
  writeln;
  writeln;
  k := 0;
  for i := 1 to n do
    if a[i] < 0 then
    begin
      k := k + 1;
      x := a[i];
      for j := i downto k + 1 do
        a[j] := a[j - 1];
      a[k] := x;
    end;
  writeln('Перестановка:');
  for i := 1 to n do
    write(a[i], ' ');
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2016, 22:25

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Ребята,можно ли этот код перевести на чистый си(Код смешан с си++)
Задача: 4 балла: Разработать игровое поле для змейки. Продумать способ хранения змейки,...

Дан код программы на C++, перевести этот код на C
#include &lt;iostream&gt; #include &lt;windows.h&gt; #include &lt;string.h&gt; using namespace std; ...

Как перевести этот код в C++?
int a = new int { { 1, 2, 3, 4 }, { 5, 6, 7, 8 }, { 9, 10, 11, 12 }}; b =...

Как этот код перевести в VBA ?
program aaa; Var a:array of integer; {ИсХоДнЫй МаСсИв} s:arrayof integer; {МаСсИв ХаРаКтЕрИсТиК...

Как перевести этот код с java на C#?
Ребята помогите решить задачу Создать объект класса Автомобиль, используя класс Колесо. Методы:...

Как перевести этот код с Паскаля на C#?
Пожалуйста, помогите перевести этот код с Паскаля на C#. Очень нужно, только на вас надежда. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.