Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Разность двух чисел https://www.cyberforum.ru/ pascalabc-net/ thread1127753.html
Подскажите пожалуйста кусочек программы , внимание : Поиск наибольшей разности двух чисел, содержащихся в массиве. Без каких- либо процедур. Спасибо!
PascalABC.NET Найти множество всех значений, имеющихся в массивах С и В (разной размерности), без повторения значений
Например С= 1, 3, 5, 1, 0, 5 B= 1, 10, 0, 5, -10 тогда ответ D= 1, 3, 5, 0, 10, -10 И сделать это надо с помощью процедур. Заранее спасибо.
PascalABC.NET Умные люди взгляните
основная прога Uses summm; var s: string; k: integer; begin writeln('Введите строку'); readln(s); udalenia(s,s1); nu_vot(s1,k); writeln('количество слов,у которых первый последний символы...
PascalABC.NET Найти максимальное из трех выражений Написать программы, дано искомое значение: Цель работы: научиться правильно использовать условный оператор if; научиться составлять программы решения задач на разветвляющиеся алгоритмы. 1.max... https://www.cyberforum.ru/ pascalabc-net/ thread1127564.html
PascalABC.NET В чём ошибка? https://www.cyberforum.ru/ pascalabc-net/ thread1127511.html
основная прога Uses summm; var s: string; k: integer; begin writeln('Введите строку'); readln(s); udalenia(s,s1); nu_vot(s1,k); writeln('количество слов,у которых первый...
Не различает цвета AbcObjects и GetPixel PascalABC.NET
вот код но почему то не отличает красный и белый uses abcObjects,graphabc; var R:abcObjects.RectangleABC; procedure mb(x,y,mb:integer); begin writeln(GetPixel(x,y).ToString); end; begin...
Привязка к клавишам PascalABC.NET
Привет. Как в ABC.NET осуществляются действие на клавиши? Мне нужны стрелки влево, вправо, спайс ... Пробовал через keypressed и readkey что-то не получается...
PascalABC.NET Решение СЛАУ методом Якоби помогите, пожалуйста, найти ошибку в коде. метод Якоби. при компиляции выдает не правильные ответы. repeat for i:=1 to m do begin for j:=1 to i-1 do s1:=a*xo+s1; for... https://www.cyberforum.ru/ pascalabc-net/ thread1126765.html
PascalABC.NET Определить суммы элементов массива с четными и нечетными индексами; вывести их значения на печать https://www.cyberforum.ru/ pascalabc-net/ thread1126640.html
Дан одномерный массив X (x1, x2, …, xN). Определить суммы элементов массива с четными и нечетными индексами; вывести их значения на печать. Элементы с наибольшей суммой обнулить.
PascalABC.NET Узнать значение переменной из exe файла Написал программу на Pascal ABC NET. Компьютер на котором она лежала (исходный код) сейчас в ремонте. Есть только exe-шник. Мне очень надо узнать значение одной переменной типа byte (константа), так... https://www.cyberforum.ru/ pascalabc-net/ thread1126257.html
0 / 0 / 0
Регистрация: 09.02.2014
Сообщений: 31
0

Из Turbo Pascal в PascalABC.NET

24.03.2014, 12:40. Показов 2330. Ответов 5
Метки (Все метки)

Добрый день! Может кто-нибудь помочь переписать код программы из Turbo Pascal (если не ошибаюсь, это было написанно именно на нем) в PascalABC.NET?

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
const maxn = 10000;
type longint = integer;
var n: integer;
    i, j: integer;
    o, l, r, mx: longint;
    mas: array [1..maxn] of longint;
    k, up: array [1..maxn] of longint;
procedure Sort(ll, rr: word);
var
  ii, jj, xx, yy: word;
begin
  ii := ll; jj := rr; xx := mas[(ll+rr) DIV 2];
  repeat
    while mas[ii] < xx do ii := ii + 1;
    while xx < mas[jj] do jj := jj - 1;
    if ii <= jj then
    begin
      yy := mas[ii]; mas[ii] := mas[jj]; mas[jj] := yy;
      yy := up[ii]; up[ii] := up[jj]; up[jj] :=yy;
      ii := ii + 1; jj := jj - 1;
    end;
  until ii > jj;
  if ll < jj then Sort(ll, jj);
  if ii < rr then Sort(ii, rr);
end;
 
begin
     assign(input, 'input.txt'); reset(input);
     assign(output, 'output.txt'); rewrite(output);
     read(n);
     for i:=1 to n do
     begin
          read(mas[i]);
          up[i]:=i;
     end;
     sort(1, n);
     fillchar(k, sizeof(k), 0);
     for i:=1 to n do
      for j:=i+1 to n do
begin
            mx:=longint(mas[i])+mas[j];
       if mx>mas[n] then break;
                l:=j+1;
                r:=n;
                o:=1; if mx>mas[l] then
                while l<r-1 do
                begin
                     o:=(l+r+1) div 2;
                     if mas[o]<mx then l:=o else r:=o;
                end;
                if mas[l]<>mx then l:=r;
                while mas[l]=mx do
                begin
                     inc(k[up[l]]); inc(l);
                end;
           end;
           for i:=1 to n do
                writeln(k[i]);
end.


Вернуться к обсуждению:
Из Turbo Pascal в PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2014, 12:40
Готовые ответы и решения:

Перевод с Turbo Pascal на PascalABC.NET
господа, можете помочь? у меня тут программа написана на языке турбо паскаль. пожалуйста переводите...

Перевод из turbo Pascal в PascalABC.NET
Здраствуйте. Буду признателен, если поможете переделать программу, созданную в turbo Pascal, под...

Я создал модуль в Turbo Pascal 7.0, как использовать его в PascalABC.NET?
Как подключить этот модуль, в какую папку сохранить, я вот смотрю в структуру каталогов...

Перевести код программы с Turbo Pascal в PascalABC
Помогите. Срочно необходимо. Буду очень признателен Uses Graph,Crt; const MaxShar=10; type...

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