1 Тема від Q-bart

  • Q-bart
  • Q-bart
  • Хочу бути модератором, щоб такі штуки ставити
  • Поза форумом
  • Звідки: Центр інтернету
  • Дата реєстрації: 14.06.2014
  • Повідомлень: 1 725
    • Репутація: 717

Тема: Проблеми з різними версіями паскаля

Доброго дня!
Я написав одну програму на Pascal використовуючи  Pascal.ABC. У вчителя вона відкрилась, але виконувалась неправильно (середовище Pascal Turbo). Я в школі трохи підправив код і на Pascal Turbo вона працювала, а вдома (PascaL.ABC) друга версія - не працює...
Так от, я йду на олімпіаду з програмування. Там буде кілька тих середовищ, а перевіряти розв'язки буде цей сервіс
Яке мені середовище найкраще використовувати, щоб не вийшло так, що мені в середовищі програма виконалась чудово, а потім на тестері буде неправильно...?

2 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 082
    • Репутація: 2280

Re: Проблеми з різними версіями паскаля

Судячи зі сторінки повідомлень, вони використовують Delphi 7.

Подякували: Q-bart1

3 Відповідь від reverse2500

  • reverse2500
  • reverse2500
  • Я діск С на троянському коні
  • Поза форумом
  • Звідки: UA Львів
  • Дата реєстрації: 08.07.2014
  • Повідомлень: 2 744
    • Репутація: 1318

Re: Проблеми з різними версіями паскаля

а це часом не Algo Pascal - Pascal для навчання, а тут модуль для тестування якись ще для нього дописали ?
Pascal.ABC - це середовище .NET в стилі Pascal ( так своїми словами )
тому і недивно що працювала неправильно, якщо вона взагалі збиралась, бо на паскалі починав програмувати, а далі забив і на С перейшов, але то таке

Подякували: Q-bart1

reverse2500 вебсайт

4 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 603
    • Репутація: 13312

Re: Проблеми з різними версіями паскаля

Єдині відомі мені суттєві несумісності PascalABC.Net та Turbo Pascal - це бітність (TP 16-бітний, із відповідними обмеженнями на розмір структур) і робота з рядками (в TP за бажання можна було писати "за межі" рядка, аби лиш в його область пам'яті). Якщо не загадувати завеликі числа і користуватися стандартними процедурами для рядків (на кшталт concat), все має бути ОК.

Подякували: Q-bart1

koala вебсайт

5 Відповідь від Q-bart

  • Q-bart
  • Q-bart
  • Хочу бути модератором, щоб такі штуки ставити
  • Поза форумом
  • Звідки: Центр інтернету
  • Дата реєстрації: 14.06.2014
  • Повідомлень: 1 725
    • Репутація: 717

Re: Проблеми з різними версіями паскаля

▼код, що працює на Pascal.ABC, і не працює на Turbo Pascal
program land_of_wonderful;

var
  s, c: string[100];
  z, i, j: integer;

begin
  readln(s);
  Z:=0;
  for i := 1 to length(s) do
  begin
    for j := 2 to length(s) do
      if s[i] = s[j] then z := z + 1; delete(s, 1,1);
  end;
  writeln(z);
end.
▼код, що працює на Turbo Pascal, і не працює на Pascal.ABC


program land_of_wonderful;

var
  s, c: string[100];
  z, i, j: integer;

begin
  readln(s);
  Z:=0;
  for i := 1 to length(s) do
  begin
    for j := i+1 to length(s) do
      if s[i] = s[j] then begin  z := z + 1;
      delete(s, j,1);
       end;
  end;
  writeln(z);
end.

6 Відповідь від koala Востаннє редагувалося koala (20.11.2014 22:35:33)

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 603
    • Репутація: 13312

Re: Проблеми з різними версіями паскаля

І обидва по суті некоректні - цикли ідуть до length(s), але цей параметр змінюється всередині! Якщо конче треба зменшувати рядок під час роботи циклу - робіть зворотній цикл:

for i := length(s) downto 1 do

І розставте по-людськи відступи, а то в першому delete не те, що не в if, а навіть не в for j...

Подякували: Torbins, Q-bart2

koala вебсайт

7 Відповідь від Q-bart

  • Q-bart
  • Q-bart
  • Хочу бути модератором, щоб такі штуки ставити
  • Поза форумом
  • Звідки: Центр інтернету
  • Дата реєстрації: 14.06.2014
  • Повідомлень: 1 725
    • Репутація: 717

Re: Проблеми з різними версіями паскаля

в першому delete не те, що не в if, а навіть не в for j...

Я теж здивувався,... чому воно тоді працює??

8 Відповідь від reverse2500

  • reverse2500
  • reverse2500
  • Я діск С на троянському коні
  • Поза форумом
  • Звідки: UA Львів
  • Дата реєстрації: 08.07.2014
  • Повідомлень: 2 744
    • Репутація: 1318

Re: Проблеми з різними версіями паскаля

Q-bart є таке правило, якщо ти написав програму і вона скомпілювалась, це не факт що вона буде робити правильно

reverse2500 вебсайт

9 Відповідь від Q-bart

  • Q-bart
  • Q-bart
  • Хочу бути модератором, щоб такі штуки ставити
  • Поза форумом
  • Звідки: Центр інтернету
  • Дата реєстрації: 14.06.2014
  • Повідомлень: 1 725
    • Репутація: 717

Re: Проблеми з різними версіями паскаля

reverse2500 написав:

Q-bart є таке правило, якщо ти написав програму і вона скомпілювалась, це не факт що вона буде робити правильно

Вона працює правильно .... Правда тільки на Pascal.ABC.. і в PascalTurbo не працює.. Але якщо додати begin end; до неї, то вона все рівно не працює на PascalTurbo...

10 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 082
    • Репутація: 2280

Re: Проблеми з різними версіями паскаля

Q-bart
Воно працювало через особливості роботи зі строками. В Pascal.ABC і Turbo Pascal вони різні, тому помилковий код працював на них по різному.