Forum Eks Grupy…

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;