% sungjuk.m
% 성적표 프로그램 작성
% 참고
% A = {'kim', 90, 80}; A = [A ; {'lee', '89',99'}];
% 이름 수학1 해석학 선형대수 총점 평균 학점 등수
% N = cell of names, S(k,1:7) = score of k-th name
% sungjuk.mat : saved file of N and S
% sub function : G=grade_(S(1:3)), view_(N,S), T=add_score(S(1:3))
% [N,S]=add_sungjuk(N,S), [N,S]=del_sungjuk(N,S,name),
% [N,S]=modify_sungjuk(N,S,name), name = namesize(name,4)
function sungjuk
clc; % 화면을 지우고 처음부터 시작
sz = 4; % size of Name
if exist('sungjuk.mat')==2 % 파일이 있으면 불러오기
load sungjuk N S
else
N = {'무명시'}; S = [0 0 0 0 0 0 0]; % 초기화
N{1} = namesize(N{1},sz);
end
view_(N,S); %출력
yesno = input(' 성적 추가(1) : 삭제(2) : 수정(3) : 마침(0) = ');
if yesno==1
[N,S] = add_sungjuk(N,S);
elseif yesno==2
name = input(' 삭제할 이름을 적으시오 : ');
name = namesize(name,4);
[N,S] = del_sungjuk(N,S,name);
elseif yesno==3
name = input(' 수정할 이름을 적으시오 : ');
name = namesize(name,4);
[N,S] = modify_sungjuk(N,S,name);
else
return; % 프로그램 마침
end
% 총점 내림차순 재정렬
[not, id] = sort(S(:,4),'descend');
N = N(id); S = S(id,:); % 재정렬
S(:,7) = [1:size(S,1)]'; % 등수추가
%화면 출력
view_(N,S);
save sungjuk.mat N S
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%
function [N,S] = modify_sungjuk(N,S,name)
szN = size(N,2);
for k=1:szN
if all( N{k}==name ) == 1,
a = input(' 수학1 성적 == ');
b = input(' 해석학 성적 == ');
c = input(' 선형대수 성적 == ');
S(k,1:3) = [a b c];
S(k,1:6) = add_score([a b c]); % 총점, 평균, 학점 추가
break;
end
end
%%%%
function [N,S] = del_sungjuk(N,S,name)
szN = size(N,2);
for k=1:szN
if all( N{k}==name ) == 1,
N = N( [1:k-1, k+1:szN] );
S = S([1:k-1, k+1:szN], : );
break;
end
end
%%%%
function [N,S] = add_sungjuk(N,S)
m = size(S,1);
name = input('추가할 이름은(String) == ' );
a = input(' 수학1 성적 == ');
b = input(' 해석학 성적 == ');
c = input(' 선형대수 성적 == ');
name = namesize(name,4);
N{m+1} = name;
S(m+1,1:3) = [a b c];
S(m+1,1:6) = add_score([a b c]); % 총점, 평균, 학점 추가
%%%%
function K = namesize(K,sz)
lk = length(K);
if lk >= sz
K = K(1:sz);
else
emp = repmat(' ',1,sz-lk);
K = [K, emp];
end
%%%%%
function T = add_score(T)
T = [T sum(T) sum(T)/3]; % 총점과 평균 추가
T = [T grade_(T(1:3))]; % 학점추가
%%%%
function view_(N,S)
fprintf('-----------------------------------------------------\n')
fprintf(' 이름 수학1 해석학 선형대수 총점 평균 학점 등수 \n')
fprintf('-----------------------------------------------------\n')
for k=1:size(S,1)
fprintf('%s %3.0f %3.0f %3.0f %3.0f %5.2f %5.2f %3.0f \n',N{k},S(k,:))
end
fprintf('-----------------------------------------------------\n')
%%%%
function y = grade_(x)
y = 0.5*floor(x/5)-5;
y(y<1)=0; y(y==5)=4.5;
y = sum(y)/length(x);
%%%%
|
  |
| LAST UPDATE: 2015.05.12 - 13:06 |
|
메일보내기
이름검색
반복법
점수를 학점으로 치환하는 함수
