3 / 3 / 1
Регистрация: 01.01.2015
Сообщений: 130
|
|
1 | |
Перевести с Pascal на C++24.02.2015, 22:05. Показов 472. Ответов 4
Метки нет (Все метки)
Здравствуйте!
Переведите пожалуйста данный код с Pascal на C++: Код
var n, i, j, cnt, p, found, best, first, ind : longint; s : string; name : array [1..100000] of string; points, num : array [1..100000] of longint; begin readln(n); for i := 1 to n do begin read(p); readln(s); found := 0; for j := 1 to cnt do if s = name[j] then found := j; if found = 0 then begin inc(cnt); name[cnt] := s; points[cnt] := -1; found := cnt; end; if p > points[found] then begin points[found] := p; num[found] := i; end; end; for i := 1 to 3 do begin best := -1; for j := 1 to cnt do if (points[j] > best) or (points[j] = best) and (num[j] < first) then begin best := points[j]; first := num[j]; ind := j; end; writeln(i, ' место.', name[ind], ' (', points[ind], ')'); points[ind] := -1; end; end. ВВЕРХ!
0
|
24.02.2015, 22:05 | |
Ответы с готовыми решениями:
4
Перевести с Pascal на C++ Перевести из Pascal в С++ Перевести с Pascal на С++ Перевести из Pascal в C++ |
3 / 3 / 1
Регистрация: 01.01.2015
Сообщений: 130
|
|
24.02.2015, 23:02 [ТС] | 3 |
Да>
0
|
0 / 0 / 5
Регистрация: 24.02.2015
Сообщений: 27
|
|
24.02.2015, 23:50 | 4 |
Я бы сказала, что здесь не хватает пары строк. Например переменные cnt и first не были инициализированны перед использованием.
А еще было бы неплохо увидеть условие самой задачи)))
0
|
20 / 20 / 14
Регистрация: 07.02.2015
Сообщений: 145
|
||||||
25.02.2015, 00:46 | 5 | |||||
0
|
25.02.2015, 00:46 | |
25.02.2015, 00:46 | |
Помогаю со студенческими работами здесь
5
перевести с Pascal на С++ Перевести с Pascal в С++ Перевести с Pascal на С++ Перевести с Pascal на C++ Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |