Anastasiya9kmmr
02-07-2019, 13:10
в общем у меня есть паскаль программа которую нужно перевести в С(Си). Кто может это сделать сделайте пожалуйста))))))
я понимаю что я дурочка и паскаль вроде считается самым легким языком но все же если вам не сложно я буду признательна))))
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.
я понимаю что я дурочка и паскаль вроде считается самым легким языком но все же если вам не сложно я буду признательна))))
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.