Tomo

Ja sam Tomo



i da, mod sam, čuvajte se

pa ni ti nisi uopće umišljen...

nope
bit će spama dok sam ja na dužnosti....

jos nisam skuzila kako nekom dat ban al kad mene karta krene...hehe
šala..ma samo spamaj al nemoj vrijeđat...ok? jer inače bu bilo

haha zaboravljaš da sam ja mod
imaš opcije kad uđeš u dio foruma di si moderator, možeš dat ban , zaključat temu, podijelit temu i još neš, ugl dolje na dnu skužit ćeš

program s_rezanjem;
type polje = array [1..10] of string;
polje2 = array [1..10] of integer;
var nesto, ime : polje;
godina : polje2;
pro : longint;
procedure upis (var nesto : polje);
var k : integer;
begin
for k := 1 to 10 do
readln (nesto [k]);
end;
procedure rezime (var godina :
polje2; var ime, nesto : polje);
var k, greska : integer;
begin
for k := 1 to 10 do
begin
val ((copy (nesto [k], 1, 4)), godina [k], greska);
ime [k] := copy (nesto [k], 6, length (nesto [k]));
end;
end;
function prosjek (godina : polje2) :
integer;
var k : integer;
ukupno : longint;
begin
for k := 1 to 10 do
ukupno := ukupno + (2007 - godina [k]);
prosjek := ukupno div 10;
end;
procedure broji (var pro : longint);
var k : integer;
begin
for k := 1 to 10 do
if godina [k] < pro then writeln (ime [k]);
end;
begin
upis (nesto);
rezime (godina, ime, nesto);
pro := prosjek (godina);
broji (pro);
readln;
end.
program tomo;
type loto=set of 1..45;
var izvuceni,uplaceni:loto;
procedure izvlacenje(var
izvuceni:loto);
var i:integer;brojac:integer;
begin
izvuceni:=[]; brojac:=0;
repeat
repeat i:=random(45)+1;
until not(i in izvuceni);
izvuceni:=izvuceni+[i];
brojac:=brojac+1;
until brojac>=6;
end;
procedure ispis(izvuceni:loto);
var i:integer;
begin
for i:= 1 to 45 do
if i in izvuceni then
writeln(i);
end;
procedure upis(var uplaceni:loto);
var n:integer;brojac:integer;
begin
uplaceni:=[]; brojac:=0;
repeat
repeat
readln(n);
until not(n in uplaceni);
uplaceni:=uplaceni+[n];
brojac:=brojac+1;
until brojac>=6;
end;
procedure provjera(uplaceni, izvuceni:loto);
begin
if (uplaceni=izvuceni)=true then
writeln('dobio si')
else writeln('popusio si');
end;
begin
izvlacenje(izvuceni);
ispis(izvuceni);
upis(uplaceni);
provjera(uplaceni,izvuceni);
readln
end.
procedure sort(var
t:polje);
var svrstan:boolean;
i,j:integer;
pomoc:string;
begin
repeat
svrstan:=true;
for i:=1 to n do
if t[i]= t[i+1] then
begin
pomoc:=t[i];
t[i]:=t[i+1];
t[i+1]:=pomoc;
svrstan:=false;
end;
until svrstan;
end;˙
program tomo;
type polje=array [1..10] of string[30];
var t:polje;
procedure upis(var t:polje);
var i:integer;
begin
for i:=1 to 10 do
begin
writeln('upisi izvodaca s rednim brojem, ali odvoji ih razmakom ',i);
readln(t[i]);
end;
end;
procedure brisi(var t:polje);
var i:integer;
begin
for i:=1 to 10 do
begin
delete(t[i],1,pos(' ', t[i]));
end;
end;
procedure najveci(t:polje);
var i:integer;
max:string[30];
begin
for i:=2 to 10 do
if t[i]>max then t[i]:=max;
writeln('najveci je ',max);
end;
procedure ispis(t:polje);
var i:integer;
begin
for i:=1 to 10 do
begin
writeln(t[i]);
end;
end;
begin
upis(t);
ispis(t);
brisi(t);
ispis(t);
najveci(t);
readln
end.


procedure rez(str:string);


var br:string;



broj,greska:integer;


begin



br:=copy(str,1,4);



val(br,broj,greska);



if greska=0 then writeln('sve je ok')



else writeln('nije ok');


end;





program ispravak;


type polje = array [1..15] of string;


var a : polje;


procedure citaj (var a : polje);


var k : integer;


begin


for k := 1 to 15 do



readln (a [k]);


end;


function provjera (d : string) : boolean;


begin


provjera := true;


if length (d) > 8 then provjera := false;


case d[1] of


'1', '2', '3', '4', '5', '6', '7', '8', '9',
'0' : provjera := false;


end;


end;


procedure provjer (a : polje);


var k : integer;


begin


for k := 1 to 15 do



if provjera (a [k]) = true then writeln (a [k]);


end;


begin


citaj (a);


provjer (a);


end.





Procedure zamijeni (var d : string);


Var s1, s2 : string;



P : integer;


Begin


P := pos (' ', d);


S1 := copy (d, 1, p);


S2 := copy (d, p, length (d) – p);


D := S2 + ' ' + S1


End;





neka nitko ne dira ovo!