…L@ ip.7'£@X K"Y^ÒšTy"È¡a"²*µöz½0uü°êN(x`¶X@ËrÇÙ‚-;‡ÐĬ5‹1ƒ§Â¯Œ´¨EõÈrIÁ¼Kž R>ÉmÕª–²;”ŸÐ°

今年ã®ãƒ—ãƒã‚°ãƒ©ãƒ å•題ã¯ã€æ–‡åŒ–ç¥ã§ã®å¾…ã¡æ™‚間計算ã§ã—ãŸã€‚昨年ã®6人分ã®åˆ°ç€æ™‚間データを元ã«å¾…ã¡æ™‚間を計算ã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ を作りã¾ã™ã€‚(å‚考ã€å…±é€šãƒ†ã‚¹ãƒˆ2026 æƒ…å ±â… å•題|共通テスト解ç”é€Ÿå ±2026ï½œäºˆå‚™æ ¡ã®æ±é€²ï¼‰
日本語ã¨å¤‰ã‚ã£ãŸåŒºåˆ‡ã‚Šç·šã§æ§‹æˆã•れる構文ã€ãƒãƒ¼ãƒžå—ã®å¤‰æ•°ã€æ¼¢å—ã®é–¢æ•°ãŒç‰¹å¾´çš„ã§ã™ã€‚
ã¾ãšã€æœ€å¤§å€¤ã€è¦ç´ 数を関数ã¨ã—ã¦å®Ÿè£…ã—ã¾ã™ã€‚ã“ã¡ã‚‰2ã¤ã‚’å…ˆé ã«åŠ ãˆã¦ Wirth Playground ã§å‹•ã‹ã—ã¦ã¿ã¾ã—ょã†ã€‚
function 最大値(n, m) if n < m return m endif return n end function è¦ç´ æ•°(array) return array.length end
ä¸é«˜ç”Ÿå‘ã‘プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã€Wirth(ヴィルト)ã§å®Ÿè£…ã™ã‚‹ã¨ã“ã†ãªã‚Šã¾ã™ã€‚
※ Wirth ã§ã¯ã€é…åˆ—ã®æ·»å—ã¯0ã‹ã‚‰å§‹ã¾ã‚‹
※ Wirth ã§ã¯ã€ä»£å…¥ã¯æ„味的ã«ãŠã‹ã—ã„「=(イコール)ã€ã§ã¯ã‚“ãªã「<-(アサイ)ã€ã‚’使ã†ã€‚
taiken <- 3 Touchaku <- [0, 3, 4, 10, 11, 12] kyakusu <- è¦ç´ æ•°(Touchaku) Kaishi <- [0, 0, 0, 0, 0, 0] Shuryou <- [0, 0, 0, 0, 0, 0] Shuryou[0] <- taiken for i <- 1 to kyakusu - 1 Kaishi[i] <- 最大値(Shuryou[i - 1], Touchaku[i]) Shuryou[i] <- Kaishi[i] + taiken print i + 1, "人目ã®å¾…ã¡æ™‚é–“: ", Kaishi[i] - Touchaku[i], "分間" next
ãƒãƒ¼ãƒžå—ã®å¤‰æ•°åã€ã›ã£ã‹ããªã®ã§æ¼¢å—化ã—ã¦èªã¿ã‚„ã™ãã—ãŸãƒ—ãƒã‚°ãƒ©ãƒ ãŒã“ã¡ã‚‰ã€‚
体験 <- 3 åˆ°ç€ <- [0, 3, 4, 10, 11, 12] 客数 <- è¦ç´ æ•°(到ç€) é–‹å§‹ <- [0, 0, 0, 0, 0, 0] 終了 <- [0, 0, 0, 0, 0, 0] 終了[0] <- 体験 for i <- 1 to 客数 - 1 é–‹å§‹[i] <- 最大値(終了[i - 1], 到ç€[i]) 終了[i] <- é–‹å§‹[i] + 体験 print i + 1, "人目ã®å¾…ã¡æ™‚é–“: ", é–‹å§‹[i] - 到ç€[i], "分間" next
書ãã®ã¯ã¡ã‚‡ã£ã¨é¢å€’ã§ã™ãŒã€èªã¿ã‚„ã™ã„ã§ã™ãï¼
å®Ÿéš›ã€æ—¥æœ¬èªžå¤‰æ•°åã‚’æ¥å‹™ã‚·ã‚¹ãƒ†ãƒ ã§ä½¿ã£ã¦å®Ÿè£…ã—ã¦ã„る例もã‚りã¾ã™ãŒã€ç¾å ´ã§åœ§å€’çš„ã«å¤šã„ã®ãŒå¤‰æ•°ã€é–¢æ•°ã¯è‹±èªžã§ã™ã€‚å°å¦æ ¡ã‹ã‚‰è‹±èªžã‚„りã¾ã™ã—ã。
ç¶šãå•題ã§ã€ä½“験時間を変化ã•ã›ã¦ã€å¾…ã¡æ™‚é–“ãŒã©ã†ãªã‚‹ã‹ã‚’確èªã™ã‚‹ãƒ—ãƒã‚°ãƒ©ãƒ 。
Touchaku <- [0, 3, 4, 10, 11, 12] kyakusu <- è¦ç´ æ•°(Touchaku) for taiken <- 1 to 15 Kaishi <- [0, 0, 0, 0, 0, 0] Shuryou <- [0, 0, 0, 0, 0, 0] Shuryou[0] <- taiken for i <- 1 to kyakusu - 1 Kaishi[i] <- 最大値(Shuryou[i - 1], Touchaku[i]) Shuryou[i] <- Kaishi[i] + taiken next saichou <- 0 for i <- 0 to kyakusu - 1 saichou <- 最大値(saichou, Kaishi[i] - Touchaku[i]) next if saichou < 10 print "体験時間: ", taiken, "分間: ", "æœ€é•·å¾…ã¡æ™‚é–“", saichou, "分間" endif next
saichou ã¨ã„ã†å¤‰æ•°ãŒæœ€é•·å¾…ã¡æ™‚間を表ã™å¤‰æ•°åã§ã™ã€‚
Touchaku <- [0, 3, 4, 10, 11, 12] kyakusu <- è¦ç´ æ•°(Touchaku) saicho <- 0 taiken <- 1 count <- 0 while taiken < 15 and saicho < 10 Kaishi <- [0, 0, 0, 0, 0, 0] Shuryou <- [0, 0, 0, 0, 0, 0] count <- count + 1 Shuryou[0] <- taiken for i <- 1 to kyakusu - 1 Kaishi[i] <- 最大値(Shuryou[i - 1], Touchaku[i]) Shuryou[i] <- Kaishi[i] + taiken next saichou <- 0 for i <- 0 to kyakusu - 1 saicho <- 最大値(saicho, Kaishi[i] - Touchaku[i]) next if saicho < 10 print "体験時間: ", taiken, "分間: ", "æœ€é•·å¾…ã¡æ™‚é–“", saicho, "分間" endif taiken <- taiken + 1 next print "åˆæœŸåŒ–処ç†ã®å®Ÿè¡Œå›žæ•°: ", count
最後ã®å•題ã¯ç„¡é§„ãªè¨ˆç®—ã‚’çœãã€ãƒ«ãƒ¼ãƒ—回数ãŒä½•回ã«ãªã£ãŸã‹ã¨ã„ã†å•題。
ã‚ã‹ã‚Šã‚„ã™ãã€count å¤‰æ•°ã‚’è¿½åŠ ã—ã¦ã¿ã¾ã—ãŸã€‚
プãƒã‚°ãƒ©ãƒ ã¯å®Ÿéš›å‹•ã‹ã—ã¦ç¢ºã‹ã‚ã‚‹ã®ãŒä¸€ç•ªï¼
links
- Pascalãƒªã‚¹ãƒšã‚¯ãƒˆã®æ•™è‚²ç”¨æ§‹é€ 化プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã€ŒWirthã€
- å…±é€šãƒ†ã‚¹ãƒˆæ‰‹é †è¨˜è¿°æ¨™æº–è¨€èªž (DNCL)ã¨å…±é€šãƒ†ã‚¹ãƒˆç”¨ãƒ—ãƒã‚°ãƒ©ãƒ 表記をMarkdown化ã—Issuesを作æˆ
ddates2026-01-20T23:55:00bid?cimgxKhttps://img.sabae.cc/data/20260121/d0ad76b6-373e-4d2b-9288-9716d4d6a4bd.jpgdtagsn#Wirth #KidsITetitlextå…±é€šãƒ†ã‚¹ãƒˆæƒ…å ±ã®ãƒ—ãƒã‚°ãƒ©ãƒ å•題をä¸é«˜ç”Ÿå‘ã‘プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžWirthã§è§£ã„ã¦ã¿ã‚ˆã†curlxhttps://fukuno.jig.jp/4927