Web - Amazon

We provide Linux to the World


We support WINRAR [What is this] - [Download .exe file(s) for Windows]

CLASSICISTRANIERI HOME PAGE - YOUTUBE CHANNEL
SITEMAP
Audiobooks by Valerio Di Stefano: Single Download - Complete Download [TAR] [WIM] [ZIP] [RAR] - Alphabetical Download  [TAR] [WIM] [ZIP] [RAR] - Download Instructions

Make a donation: IBAN: IT36M0708677020000000008016 - BIC/SWIFT:  ICRAITRRU60 - VALERIO DI STEFANO or
Privacy Policy Cookie Policy Terms and Conditions
Tablica rozkładów na sumę dwóch liczb pierwszych/kod - Wikipedia, wolna encyklopedia

Tablica rozkładów na sumę dwóch liczb pierwszych/kod

Z Wikipedii

Kod w języku ANSI C według którego została wygenerowana tablica rozkładów na sumę dwóch liczb pierwszych:

#include <stdio.h>
#include <memory.h>
#include <math.h>
#include <stdlib.h>

void main() {
int min,max;
int n,m,pierwiastek;
int pierwsza;
int licznik;
char *pierwsze;

do {
fprintf(stderr,"Poczatek przedzialu: ");
scanf("%d",&min);
} while (min<=3);
do {
fprintf(stderr,"\nKoniec przedzialu  : ");
scanf("%d",&max);
} while (max<min);

pierwsze=(char*)malloc(max+1);
memset(pierwsze,1,max+1);

printf(
"Tablica rozkładów na sumę liczb pierwszych dla liczb parzystych od %d do %d:\n"
"<table border=\"1\" width=\"25%%\" style=\"text-align: left\">\n"
"<tr>\n"
"<th width=\"30%%\">Liczba</th>\n"
"<th width=\"70%%\">Składniki pierwsze</th>\n"
"</tr>\n"
,min,max);

licznik=1;
for (n=2;n<=max;n++) {
pierwsza=1;
pierwiastek=(int)(sqrt(n)+0.5);
for (m=2;m<=pierwiastek;m++)
if (pierwsze[m] && n%m==0) {
pierwsze[n]=0;
break;
}

if (n>=min && !(n&1)) {
if (n%100==0)
printf(
"</table>\n"
"<table border=\"1\" width=\"25%%\" style=\"text-align: left\">\n"
"<tr><td width=\"30%%\">%d</td><td width=\"70%%\">"
,n);
else
printf("<tr><td>%d</td><td>",n);
for (m=2;m<n-1;m++)
if (pierwsze[m] && pierwsze[n-m]) {
printf("=%d+%d",m,n-m);
break;
}
printf("</td></tr>\n");
}
}
printf("</table>\n");
}

Our "Network":

Project Gutenberg
https://gutenberg.classicistranieri.com

Encyclopaedia Britannica 1911
https://encyclopaediabritannica.classicistranieri.com

Librivox Audiobooks
https://librivox.classicistranieri.com

Linux Distributions
https://old.classicistranieri.com

Magnatune (MP3 Music)
https://magnatune.classicistranieri.com

Static Wikipedia (June 2008)
https://wikipedia.classicistranieri.com

Static Wikipedia (March 2008)
https://wikipedia2007.classicistranieri.com/mar2008/

Static Wikipedia (2007)
https://wikipedia2007.classicistranieri.com

Static Wikipedia (2006)
https://wikipedia2006.classicistranieri.com

Liber Liber
https://liberliber.classicistranieri.com

ZIM Files for Kiwix
https://zim.classicistranieri.com


Other Websites:

Bach - Goldberg Variations
https://www.goldbergvariations.org

Lazarillo de Tormes
https://www.lazarillodetormes.org

Madame Bovary
https://www.madamebovary.org

Il Fu Mattia Pascal
https://www.mattiapascal.it

The Voice in the Desert
https://www.thevoiceinthedesert.org

Confessione d'un amore fascista
https://www.amorefascista.it

Malinverno
https://www.malinverno.org

Debito formativo
https://www.debitoformativo.it

Adina Spire
https://www.adinaspire.com