Turbo Pascal

[Mr_RAS]

Ох і забув я цей раритет )))

Задача 1. Скласти програму, яка перевіряє чи дві задані стрічки є "родичами". Будемо говорити що дві стрічки є "родичами", якщо для їх запису використовують однакові символи. Прикладом таких стрічок можуть бути наступні: "баран" і "барабан".

Думаю спочатку знайти унікальні символи, а потім їх посортувати, тобто
баран > барн > абнр
барабан > барн > абнр

нас > нас > анс
ананас > анс > анс

Унікальні зробив

Код PHP:

program proba2;
uses crt;
var s1,s2: string;
{$I c:\tp71\unique.inc}    
begin
clrscr;
s1 := 'baraban';
s2 := unique(s1);

writeln(s1, ' - Unique string: ', s2);
readln;
end. 


unique.inc

Код PHP:

function unique (s: string): string;
var i: integer;
    t: string;
begin
  t := '';
  for i:=1 to length(s1) do
    if pos(s[i],t) = 0 then t := t + s[i];
  unique := t;
end; 


тепер треба якось посортувати)

[castor]

юзай set of char - він для того придуманий

[castor]

до речі, прикинув х до носа на пітоні, з множинами

def unique(s):
    return {c for c in s}

s1 = 'baraban'
s2 = 'rababan'

related = unique(s1) == unique(s2)

print '{} is related to {}'.format(s1, s2) if related else '{} is not related to {}'.format(s1, s2)

висновок - вибирайте адекватні структури даних

[Mr_RAS]

то шкільна лаболаторка, турбо паскаль, вічна йому память ))))
25 років тому вийшла 7 версія )))

[castor]

Цитата:

Допис від Mr_RAS

то шкільна лаболаторка, турбо паскаль, вічна йому память ))))
25 років тому вийшла 7 версія )))

давнє - не означає погане

Паскаль був спочатку розроблений як мова для навчання програмуванню і з цієї т.з. він доволі непогано справлявся - заставляв людей виписати алгоритм і скласти коректну програму

[sector119]

Цитата

Допис від castor

до речі, прикинув х до носа на пітоні, з множинами

def unique(s):
    return {c for c in s}

s1 = 'baraban'
s2 = 'rababan'

related = unique(s1) == unique(s2)

print '{} is related to {}'.format(s1, s2) if related else '{} is not related to {}'.format(s1, s2)

висновок - вибирайте адекватні структури даних

set(s1) == set(s2)

[castor]

Цитата

Допис від sector119

set(s1) == set(s2)

о, тим більше - щось не подумав, що сет можна ініціалізувати з iterable