Dla hardcorowców z paskala tych co mają troszke czasu.

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» yanix 00:46 » rarek 00:38 » Shark20 00:34 » ReeX 00:30 » ili@s 00:24 » Lucyferiu 00:20 » DYD 00:20 » dida 00:19 » biEski 00:18 » Pawelec 00:09 » Pinokio.p 00:07 » myszon 23:59 » Faraonix 23:50 » coolio 23:48 » Wojtekar 23:47 » Wolf 23:42 » piszczyk 23:38 » mo2 23:38 » Gniew 23:31 » ::LinX:: 23:26 Dzisiaj przeczytano 41100 postów, wczoraj 25974 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Dla hardcorowców z paskala tych co mają troszke czasu. , poczta2003 7/05/03 14:55
jak nie masz czasu i nie podnieca cie programowanie to nie czytaj tego posta...
mam program
{Generowanie liczb pierwszych - sito Eratostenesa.}
program x15 ;
const n = 1000;
var i , j , licznik:integer;
a: array[1..n] of integer;
begin
writeln('Liczby pierwsze z zakresu od 2 do ', n:0, ':');
for i := 2 to n do a[i] := 1; {wstepnie, liczby 2..n sa pierwsze}
licznik :=0; {licznik liczb pierwszych}
for i :=2 to n do begin {znajdowanie liczb pierwszych w zakresie 2..n}
if a[i]= 1 then begin {liczba i jest pierwsza}
licznik := licznik + 1;
write(i:3, ' '); if licznik mod 20 = 0 then writeln;
{usuniecie wielokrotnoci i}
j :=2 * i;
while j <= n do begin
a[j] :=0; j := j + i;
end;
end;{if}
end; {for}
end.

Możę komus sie chce?????????

dopisać coś co spowoduje ze program bedzie liczył ile tych liczb pierwszych jest od 0 do 100 od 0 do 200,od 0 do 300 , 400 , 500 , 600 , 700 , 800 ,900 ,1000

przydało by mi sie to do zaliczenia moze któryś z boardowiczów porozumiewa sie ze swiatem w jezyku pascala i napisanie tego nie sprawi mu zadnej trudności... bo ja jestem zielony

hmmm , banan100 7/05/03 15:36
program x15 ;

procedure pierwsze(n:integer);
var i , j , licznik:integer;
a: array[1..1000] of integer;
begin
writeln('Liczby pierwsze z zakresu od 2 do ', n:0, ':');
for i := 2 to n do a[i] := 1; {wstepnie, liczby 2..n sa pierwsze}
licznik :=0; {licznik liczb pierwszych}
for i :=2 to n do begin {znajdowanie liczb pierwszych w zakresie 2..n}
if a[i]= 1 then begin {liczba i jest pierwsza}
licznik := licznik + 1;
{write(i:3, ' '); if licznik mod 20 = 0 then writeln;}
{usuniecie wielokrotno?ci i}
j :=2 * i;
while j <= n do begin
a[j] :=0; j := j + i;
end;
end;{if}
end; {for}
writeln('liczba liczb pierwszych do ',n,' : ',licznik);
end;

begin
pierwsze(100);
pierwsze(200);
{i tak dalej.......}
end.
hmmm , banan100 7/05/03 15:37
jakies jeszcze zyczenia??
1. ja mam , Deus ex machine 7/05/03 16:00
  zimne piwko poprosze .-)
  "Uti non Abuti"
2. dzieki , poczta2003 7/05/03 18:56
  j.w.
3. mam pytańko- jesteś nowy? , poczta2003 7/05/03 19:03
  czy tylko zmieniłeś nicka. Pamiętam już podobny nick. a zresztą nieważne ... teraz zapamiętam Cie.
  1. agggrrrrr , poczta2003 7/05/03 19:04
    miało być pod """"BANAN100"""""
    1. no przecież jest pod nim ;) , Chrisu 8/05/03 23:41
      123456
      /// GG# 1 110 10 10 11 100 10 \\\
      1. a zeczywiście , poczta2003 14/05/03 08:10
        j.w
banal , Sboard 7/05/03 16:26
widze ze sie nie przemeczas i nawet tego kawalka kodu sam nie napisales :> bo jak bys sam to napisal to dopisanie reszty trwalo by 5 min. Lepiej napisz to sam bo pozniej bedzejuz tylko trudniej.
...najwazniejsze jest niewidoczne dla
oczu...
1. skożystam z rady , poczta2003 7/05/03 18:57
  nie wiedziałem ze to takie proste...
Wow - to programowanie może podniecać? , Umek 8/05/03 00:01
:-))))))))