|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.05.2010, 16:18 | #1 |
Новичок
Джуниор
Регистрация: 23.05.2010
Сообщений: 1
|
Перевод из Паскаля в Си. возможна оплата
Ребят очень нужна помощь, возможна и за деньги
Нужно перевести программу с Pascal в С++ вот сам текст program mass_str; var a, b: array[10] of string; s, c, v:string; k: array[10,2] of integer; i, j, l,z ,z1, m, dop: integer; begin writeln('введите размер масива строк'); readln(l); for i:=1 to l do begin write('введите ',i,'-ый элемент массива'); readln(a[i]); end; writeln('введите строку разелителей'); readln(c); writeln('введите заданное слово'); readln(s); x:=length(s); {формирование нового массива} for i:=1 to l do begin z:=pos(a[i],s); v:=a[i]; j:=0; if z>0 then begin j:=j+1; k[j,1]:=1; z1:=pos(v,s); while z1>0 do begin b[j]:=a[i]; delete(v,z1,x); k[i,2]:=k[i,2]+1; z1:=pos(v,z1,x); end; m:=j; end; end; {сортировка} for i:=1 to m do for j:=i to (m-1) do begin if k[j,2>=k[j+1,2] then begin dop:=k[j,2]; k[j,2]:=k[j+1,2]; k[j+1,2]:=dop; end; end; writeln('сформированный массив'); for i:=1 to m do writeln(b[k[i,1]]); writeln('исходный массив'); for i:=1 to l do writeln(a[i]); end. |
23.05.2010, 16:27 | #2 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
давай, переведу, в асю пиши 397970640
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод с Паскаля на Дельфи!. | HAMMAN | Помощь студентам | 10 | 18.01.2012 11:20 |
Перевод с Паскаля на С | RamilFaz | Общие вопросы C/C++ | 3 | 08.04.2010 14:40 |
Перевод из Паскаля в Дельфи | eldarik | Помощь студентам | 8 | 18.01.2010 19:29 |
Перевод с Паскаля на С++ | MrJenika | Помощь студентам | 2 | 20.11.2009 20:42 |