Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- filename kng'C:\Users\kargre1\Desktop\knygos.dat';
- data knyg;
- infile kng;
- input kodas 1-6 autor $8-33 pav $35-59 pslm $61-68 kiek 72-74 price 79-83;
- verte=kiek*price;
- if verte>1200 then akcija='akcija';
- z=index(pslm,'-');
- psl=substr(pslm,1,z-1);
- metai=substr(pslm,z+1, length(pslm)-z);
- puslap=kiek*psl;
- run;
- data aut;
- set knyg;
- a=1;
- p=0;
- do while (a< length(autor));
- if substr (autor,a,1)=',' then p=p+1;
- a=a+1;
- end;
- y=0;
- if(p=2);
- run;
- proc print data= aut;
- var kodas autor pav kiek price psl metai;
- title 'Knygos, turincios 3 autorius';
- run;
- data knyg2;
- set knyg (keep= kodas autor pav kiek price akcija psl metai);
- run;
- proc sort data= knyg2
- out=sorted;
- by metai psl;
- run;
- data akcij;
- set knyg (keep= kodas autor pav kiek price akcija psl metai);
- if akcija='akcija' then mazesn=price*0.8;
- if akcija=' ' then mazesn=price;
- run;
- proc print data= visoskng;
- var kodas autor pav kiek price psl metai puslap verte;
- sum puslap verte;
- title 'Viso';
- run;
- proc gchart data=knyg2;
- vbar kiek/
- group=metai;
- pattern1 color=pink;
- title 'WOW DIAGRAMA';
- run;
- data knyg3;
- set knyg (keep= kodas autor pav kiek price akcija psl metai);
- if metai=0009 then metai=2009;
- run;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement