Tiedepalsta.fi

Koodi: Valitse kaikki

program TuhatPii;
uses bigdecimalmath, sysutils,DateUtils;
const tarkkuus = 1000;
	tarkkuuskerroin = 2;
type strindeksi = 1..tarkkuus;
var pii, piiapuri1, piiapuri2,viisi,numero239,nelja,yksi,ind,kaksi,jakaja: BigDecimal;
	str: array [1..tarkkuus] of char;
	merkki,lkm,i	: strindeksi;
	aika1,aika2:Double;
	kokeile	: char;
	pisin	:	word;
function potenssi(a,n: BigDecimal):BigDecimal; // laskee a potenssii n:n
var tulos,i: BigDecimal;
begin
	tulos:=1;
	i:=1;
	while i<=n do begin
		tulos:=tulos*a;
		i:=i+1;
	end;
	potenssi:=tulos;
end;	
begin 
	aika1:=Now;
	pii:= 0;
	ind:= 1;
	piiapuri1:=0;
	piiapuri2:=0;
	viisi:=5;
	numero239:=239;
	nelja:=4;
	yksi:=1;
	kaksi:=2;
	while ind <= (tarkkuus*2) do 
	begin
		jakaja:=ind*(potenssi(viisi,ind));
		piiapuri1:= piiapuri1+(divide(nelja, jakaja,tarkkuuskerroin*tarkkuus));
		jakaja:=(ind*(potenssi(numero239,ind)));
		piiapuri2:= piiapuri2-(divide(yksi, jakaja,tarkkuuskerroin*tarkkuus));
		ind:=ind+kaksi;
		jakaja:=(ind*(potenssi(viisi,ind)));
		piiapuri1:=piiapuri1-(divide(nelja, jakaja,tarkkuuskerroin*tarkkuus));
		jakaja:=(ind*(potenssi(numero239,ind)));
		piiapuri2:=piiapuri2+(divide(yksi, jakaja,tarkkuuskerroin*tarkkuus));
		pii:=nelja*(piiapuri1+piiapuri2);
		ind:=ind+kaksi;
	end;
	aika2:=Now;
	Writeln((aika2-aika1)*86400,' sekuntia.');
	str:=BigDecimalToStr(pii);
	writeln(str);
	pisin:=1;
	merkki:=1;
	while merkki<tarkkuus do
		begin
			lkm:=0;
			kokeile:=str[merkki];
			while (kokeile=str[merkki]) and (merkki <= tarkkuus) do 
				begin
					lkm:=lkm+1;
					merkki:=merkki+1;
				end;
				if lkm>=pisin then
					begin
						pisin:=lkm;
						writeln(merkki-lkm,'-',merkki-1);
						for i:=(merkki-lkm) to (merkki-1) do write(str[i]);
						writeln();
					end;
		end;
end.

Koodi: Valitse kaikki

program Tutkipiita;
uses Sysutils;
var file1 : File of Char;
	merkki: char;
	kokeile	: char;
	pisin	:	word;
	merkkiind,lkm,i,indeksi	: LongInt;
begin
  Assign (file1,'pii.txt');
  Reset (file1);
  pisin:=1;
  indeksi:=1;
  While not Eof(file1) do
  	begin
		read(file1,merkki);
		indeksi:=indeksi+1;
		kokeile:=merkki;
		lkm:=1;
		while (kokeile=merkki) and (not Eof(file1)) do 
			begin
				lkm:=lkm+1;
				read(file1,merkki);
				indeksi:=indeksi+1;
			end;
		if lkm>=pisin then
			begin
				pisin:=lkm;
				writeln(indeksi,'-',indeksi+lkm-1,' ',kokeile,'   ',lkm);
			end;		
	end;
end.

Koodi: Valitse kaikki

program Pi012345;
uses Sysutils;
var file1 : File of Char;
	digit: char;
	longest,trythis	:	word;
	amount,i,indexi	: LongInt;
	table	:	array[0..9] of String;
begin
  Assign (file1,'PI.txt');
  Reset (file1);
  longest:=1;
  indexi:=1;
  for i:=0 to 9 do table[i]:=IntToStr(i);
  While not Eof(file1) do
  	begin
		read(file1,digit);
		indexi:=indexi+1;
		trythis:=0;
		amount:=0;
		while (table[trythis]=digit) and (not Eof(file1)) do 
			begin
				amount:=amount+1;
				read(file1,digit);
				indexi:=indexi+1;
				trythis:=trythis+1;
				if trythis=10 then trythis:=0;
			end;
		if amount>=longest then
			begin
				longest:=amount;
				writeln(indexi,'-',indexi+amount-1,' ',table[trythis],'   ',amount);
			end;		
	end;
end.