Új hozzászólás Aktív témák
-
Retekegér
MODERÁTOR
válasz
Jester01
#1777
üzenetére
Itt a teljes feladat:
#include <stdio.h>
#include <stdlib.h>
#define NELEM 1000
main()
{
double *pd, sv;
int i , j, lepes;
/* Helyfoglalás ellenőrzéssel */
pd = (double *) calloc( NELEM, sizeof(double));
if (! pd) {
printf("\a\nNincs elég memória!\n");
return -1; /* Hiba történt */
}
/* A tömb feltöltése véletlen számokkal */
for (i = 0; i < NELEM; i++)
*(pd + i) = random(10000)*12.34;
/* Shell - rendezés */
for (lepes = NELEM/2; lepes >0; lepes /=2)
for (i = lepes; i < NELEM; i++)
for (j=i-lepes; j>=0 && pd[j]>pd[j+lepes]; j-=lepes)
{
sv = pd[j];
pd[j] = pd[j+lepes];
pd[j+lepes]= sv;
}
/* A lefoglalt terület felszabadítása */
free(pd);
return 0; /* Hibátlan volt a program futása */
}
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
● ha kódot szúrsz be, használd a PROGRAMKÓD formázási funkciót!
- exHWSW - Értünk mindenhez IS
- Debrecen és környéke adok-veszek-beszélgetek
- Egyéni arckép 2. lépés: ARCKÉPSZERKESZTŐ
- Gaming notebook topik
- Forza sorozat (Horizon/Motorsport)
- Milyen nyomtatót vegyek?
- Milyen okostelefont vegyek? OFF topik
- Formula-1
- Witcher topik
- Kingdom Come: Deliverance 2 fordító: "Kirúgtak, és AI-val pótolnak”
- További aktív témák...
- AKCIÓ! Sapphire Nitro+ RX 7900XT 20GB videokártya garanciával hibátlan működéssel
- Honor 200 Lite 256GB, Kártyafüggetlen, 1 Év Garanciával
- iPhone 15 128GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS3944, 100% AKKSI
- AZONNALI SZÁLLÍTÁS Eredeti Microsoft Office 2019 Professional Plus
- Eladó egy pixel 7 obsidian
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
