| informa |
| clc clear all pkt=0; disp('Tesr z tabliczki mnozenia'); Lt=input('Podaj liczbe testow(minimum 10)='); while Lt<10 Lt=input('Minimum 10 testow='); end rand('state',sum(100*clock)); for t=1:Lt a=round(10*rand); b=round(10*rand); odp=input(strcat(num2str(a),'*',num2str(b),'=')); mn=size(odp); if mn==[1 1 ] if odp==a*b pkt=pkt+2; disp(strcat('Dobrze-masz:',num2str(pkt),'pkt')); else pkt=pkt-1; disp(strcat('zle masz:',num2str(pkt),'pkt')); end else disp('otrzymujesz 0 pkt.'); end; end; |