Oi sou novo por aqui e já preciso da ajuda de todos, tenho esse fonte em C++ e preciso a conversão dele para delphi, alguém pode fazer isso para me ajudar, estou aprendendo delphi agora e não estou conseguindo, obrigado #include #include #include #define MAIS_INFINITO 20000 #define MENOS_INFINITO -1 struct Compet { char nome[16]; int pontos; } compet[1010]; int n; int compara(const void * p1, const void * p2) { int r = ((struct Compet *)p2)->pontos - ((struct Compet *)p1)->pontos; if (r != 0) return r; return strcmp(((struct Compet *)p1)->nome, ((struct Compet *)p2)->nome); } int main() { int pontos, p, min, max, i, k, classif, pontos_ant, teste=1; while (scanf("%d", &n) == 1 && n > 0) { /* le jogadores e pontos*/ for (i = 0; i < n; i++) { scanf("%s", compet.nome); min = MAIS_INFINITO; max = MENOS_INFINITO; pontos = 0; for (k = 0; k < 12; k++) { scanf("%d", &p); if (p < min) min = p; if (p > max) max = p; pontos += p; } compet.pontos = pontos - max - min; } /* pontuação */ qsort(compet, n, sizeof(struct Compet), compara); /* calcula pontuação e imprime o resultado*/ pontos_ant = MAIS_INFINITO; printf("Teste %d\n", teste++); for (i = 0; i < n; i++) { if (compet.pontos != pontos_ant) classif = i + 1; printf("%d %d %s\n", classif, compet.pontos, compet.nome); pontos_ant = compet.pontos; } printf("\n"); } return 0;
