informa

clc
clear all
disp('Program TOTO');
n=6;
disp('podaj 6 liczb z zakreesu 1-49');
B=zeros(1,n);
for j=1:n
por=0;
while B(j)<1 | B(j)>49 | por==1
liw=input(strcat(num2str(j),' liczba: '));
if size(liw)==[1 1]
B(j)=liw;
end
por=0;
for k=1:j-1
if (B(k)==B(j)) | (liw<1) | (liw>49)
por=1;
end;
end;
end;
end;
B=sort(B);
disp(strcat('podales liczby:',num2str(B)));
rand('state', sum(100*clock));
matr=zeros(1,7);
m=input('Na ile losowan: ');
n=6;
for i=1:m
for j=1:n
A(j)=round(rand*48+1);
por=1;
while por==1
por=0;
for k=1:j-1
if A(k)==A(j)
por=1;
end;
end;
if por==1 A(j)=round(rand*48+1);
end;
end;
end;
tra=0;
for o=1:6
for p=1:6
if A(o)==B(p)
tra=tra+1;
end;
end;
end;
matr(tra+1)=matr(tra+1)+1;
end;
disp('liczba trafien')
for i=0:n
disp(strcat(num2str(i),'-',num2str(matr(i+1))));
end;

PRZEJDŹ NA FORUM