genname $SW SW1, SW2
char*10 TAG1, TAG2
integer i, j, grdmax, abcmax
grdmax = 30
abcmax = 30
for i = 1 to abcmax
format " SWABC%02dGRD",i
assign TAG1 to SW1
if (SW1,PV==1) then
for j = 1 to grdmax
format "SWGRD%02d",j;
assign TAG2 to SW2
if (SW2.PV==1) then
%.ABCGRD[1,i] = %.GRADE[1.j]
end if
next@
end if
next@
------------------------------------------------
위 언어가 혹시 무슨 언어인지 아시는분 계실까요?
ÀÏ´Ü interger ´Â integer ÀÇ ¿ÀŸÀÎÁö.. ¿ø·¡ Àú·± °ÇÁö.. ¸¸µé´Ù ¸¸ ¾ð¾îÀΰ¡ ½Í±âµµ ÇÏ°í..
rbkmax ´Â abcmax¸¦ ¿ÀŸ³½ °ÍÀÌ È®½ÇÇØ º¸ÀÌ°í.
¿¾³¯ ¹ÙÄÚµå ÇÁ¸°ÅÍ °°ÀÌ ¹«½¼ Àü¿ëÀåºñ¿¡¼¸¸ ¾²´Â ¾ð¾î ¾Æ´Ò±î ½Í½À´Ï´Ù.
C¾ð¾î¶ó°íÇؼ ¹Þ¾Ò´Âµ¥.. óÀ½ º¸´Â ¾ð¾î¶ó.... ¸àºØ¿ÍÀ־ä
C¾ð¾î¶ó°íÇؼ ºÁ´Þ¶ó°íÇؼºÃ´Âµ¥..
C¾ð¾î´Â ¾Æ´Ñ°Å °°°í ´Ù¸¥¾ð¾î °°Àºµ¥...
ÁֽźÐÀº °è¼Ó C¾ð¾î¶ó°íÇؼ¿ä...
´äº¯ °¨»çÇÕ´Ï´Ù
±×³É ¸ð¸£°Ú´Ù°íÇÏ°í ¼Õ Åоî¾ß°Ú³×¿ä....
´äº¯ ´Þ¾Æ Áּż °¨»çÇÕ´Ï´Ù.
±×³É ¸ð¸£°Ú´Ù°í Çß½À´Ï´Ù ¤Ð¤Ð
visual basicÀΰŠ°°Àºµ¥¿ä ÇüÅ°¡ À¯»çÇÕ´Ï´Ù.~
ºñÁê¾ó º£ÀÌÁ÷À̶ó¸é º¯¼ö ¼±¾ð¿¡ ¾Õ¿¡ dim À̶ó´Â ¿¹¾à¾î¸¦ »ç¿ëÇØ¾ß ÇÏ°í(º£ÀÌÁ÷ Ư¼º»ó º¯¼ö ¼±¾ð¾øÀÌ »ç¿ëÇÏ´Â °æ¿ì°¡ ÀÖ±ä ÇÕ´Ï´Ù¸¸)
±×¸®°í ºñ±³¿¬»êÀÚ ºÎºÐµµ if (SW1,PV==1) then ÀÌ ¾Æ´Ï¶ó if (SW1,PV=1) then ¶ó°í Çؾß
º¸Åë ¾ð¾î Á¾·á´Â º¯¼ö ¼±¾ðºÎ¿Í ¿¹¾à¾îºÎºÐµî·Î ¸¹ÀÌµé ±¸ºÐÇϴµ¥ óÀ½º¸´Â Á¾·ù¶ó.... for ¹®¿¡ next@ ¶ó°í ¾²ÀÌ´Â ¹®¹ýÀÌ ÀÖ³ª ã¾ÆºÁ¾ß ÇÒµí
´äº¯ ´Þ¾ÆÁּż °¨»çÇÕ´Ï´Ù
´äº¯ ´Þ¾ÆÁּż °¨»çÇÕ´Ï´Ù
ÀÏ´Ü genname ¿¹¾à¾î¿¡¼ ¸·Èü´Ï´Ù. Àú ¿¹¾à¾î¸¦ ¾²´Â ¾ð¾î°¡ °Ë»öµÇÁö¸¦ ¾Ê½À´Ï´Ù.
±×³É ¸øÇÑ´Ù°íÇß½À´Ï´Ù....
´äº¯ ´Þ¾ÆÁּż °¨»çÇÕ´Ï´Ù
µµÀúÈ÷ ¾î¶²¾ð¾î ÀÎÁö ¸ð¸£°Ú¾î¼...
±×³É Æ÷±âÇß½À´Ï´Ù...