| informa |
| clc clear all pkt=0; disp('Test 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; disp(strcat('Uzyskano: ',num2str(pkt),' pkt. na', num2str(2*Lt), ' mozliwych')); ocena=4*pkt/Lt/2+1; if ocena<1 ocena=1; end if ocena>=3 disp('test zaliczony'); else disp('Test niezaliczony'); end disp(strcat('ocena koncowa:', sprintf('%4.1f', ocena))); |