Форум программистов, компьютерный форум, киберфорум
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
25.03.2014, 13:56  [ТС] 0

Из Turbo Pascal в PascalABC.NET

25.03.2014, 13:56. Показов 2315. Ответов 5
Метки (Все метки)

Ответ

Все-таки не все гладко оказалось с этим кодом (подправил его как посоветовали). На некоторых тестах "Превышено максимальное время работы". На выполнение уходит 5 сек вместо 1. Задача вот эта http://informatics.mccme.ru/mo... terid=1664

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;
    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(l, r: word);
    var
      i, j, x, y: word;
    begin
      i := l; j := r; x := mas[(l + r) DIV 2];
      repeat
        while mas[i] < x do i := i + 1;
        while x < mas[j] do j := j - 1;
        if i <= j then
        begin
          y := mas[i]; mas[i] := mas[j]; mas[j] := y;
          y := up[i]; up[i] := up[j]; up[j] := y;
          i := i + 1; j := j - 1;
        end;
      until i > j;
      if l < j then Sort(l, j);
      if i < r then Sort(i, r);
    end;
    begin
      read(n);
      for i := 1 to n do
      begin
        read(mas[i]);
        up[i] := i;
      end;
      sort(1, n);
      for i := 1 to maxn do
        k[i] := 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
        write(k[i],' ');
    end.


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

Перевод с 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.