C/C++ - Ребят нужен хелп с переводом программы с Pascal на C(Си)

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

C/C++ - Ребят нужен хелп с переводом программы с Pascal на C(Си)

Anastasiya9kmmr

Новый участник

Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать

в общем у меня есть паскаль программа которую нужно перевести в С(Си). Кто может это сделать сделайте пожалуйста))))))
я понимаю что я дурочка и паскаль вроде считается самым легким языком но все же если вам не сложно я буду признательна))))

var
r, s: string;
x: array [1..100] of string;
my_set: set of char;
ok: boolean;
k, i, start: integer;

begin
//readln(s);
s := 'В исходной строке А определить и вывести слова, в которых нет повторяющихся букв.';
s := s + ' ';
start := i;
my_set := [];
ok := true;
k := 0;
for i := 1 to length(s) do
begin
if s[i] in [' ', '.', ','] then
begin
if ok then
begin
r := copy(s, start, i - start);
if length(r) = 5 then
begin
inc(k);
x[k] := r;
writeln(x[k]);
end;
end;
my_set := [];
ok := true;
start := i + 1;
end
else
begin
ok := ok and (not (s[i] in my_set));
include(my_set, s[i]);
end;
end;
end.

Отправлено: 13:10, 02-07-2019