Ребят нужен хелп с переводом программы с Pascal на C(Си)
в общем у меня есть паскаль программа которую нужно перевести в С(Си). Кто может это сделать сделайте пожалуйста))))))
я понимаю что я дурочка и паскаль вроде считается самым легким языком но все же если вам не сложно я буду признательна)))) 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. |
Anastasiya9kmmr, здесь не сайт фрилансеров. Попробуйте сами, а что не получится — подскажут.
|
Время: 09:22. |
Время: 09:22.
© OSzone.net 2001-