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