Forum Eks Grupy…

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)));