孩子在做作業(yè)或是完成某一件事情時，總是不能集中注意力。邏輯思維很混亂，那怕是短暫瞬間都沒有辦法按照老師跟父母的要求做。在這種注意力不集中或者思維混亂的現(xiàn)象不僅僅會影響到孩子的學(xué)習(xí)，也影響著孩子的判斷，還導(dǎo)致了不良的學(xué)習(xí)態(tài)度，孩子邏輯思維不清晰有改善的辦法嗎？通過pascal 信息學(xué)奧賽編程 50分跪求，信息學(xué)奧賽試題（計算機編程），計算機編程:信息學(xué)奧賽選拔試題，請教一道信息學(xué)奧賽的pascal語言編程題??這幾點可以詳細了解下。

1.pascal 信息學(xué)奧賽編程 50分跪求

數(shù)據(jù)規(guī)模 比較 小 可以考慮用 dp 做 背包問題 容量 為 total div 2 (如果 not odd(tot))tot 為奇數(shù) 那無解。 然后 算出 裝滿 total div 2 的總方案數(shù)。 應(yīng)為 左右調(diào)換 是同一種情況 結(jié)果 就 div 2

2.信息學(xué)奧賽試題（計算機編程）

合并果子。。。。。。。 當然是合并9次了。。。（這個不解釋了，稍微想下就懂了） 合并方法是取兩堆最小的合并，然后把他們的和作為新的一堆，去掉原來的兩堆，再選最小兩堆（新加入的也要比較）。。。。直到只剩1堆 話說這數(shù)據(jù)很小。。。就合并一次排序一次吧。。。。

3.計算機編程:信息學(xué)奧賽選拔試題

c1 = 138 * 10 + 9Dim n() As Long, s() As String, l As Long, lmax As Long, s_xinxi As Stringl = 0For i1 = 8 To c1 Step 8For i2 = 0 To c1 Step 6For i3 = 0 To c1 Step 5For i4 = 0 To c1 Step 4If i1 + i2 + i3 + i4 = c1 Then ReDim Preserve n(l) '記錄總數(shù) ReDim Preserve s(l) '記錄排列 n(l) = i1 \ 8 + i2 \ 6 + i3 \ 5 + i4 \ 4 s(l) = "8毛:" & i1 \ 8 & "只，6毛:" & i2 \ 6 & "只，5毛:" & i3 \ 5 & "只，4毛:" & i4 \ 4 & "只" If n(l) > lmax Then lmax = n(l) l = l + 1End .Caption = "排列數(shù)" & l & "---最多鉛筆數(shù)" & lmax & "----計算進度" & Format(i1 * 100 / c1, "00.0") & "%"_xinxi = ""For i = 0 To lmax - 1 If n(i) = lmax Then s_xinxi = s_xinxi & s(i) & vbCrLf End s_xinxi '優(yōu)化代碼c1 = 138 * 10 + 9 '錢數(shù)隨便寫 單位毛Dim s() As String, l As Long, lmax As Long, s_xinxi As Stringl = 0lmax = (c1 - 8) \ 4 + 1For i1 = 8 To c1 Step 8 For i2 = 0 To c1 Step 6 For i3 = 0 To c1 Step 5 i4 = c1 - i1 - i2 - i3 If i4 Mod 4 = 0 Then If i1 + i2 + i3 + i4 = c1 And i1 \ 8 + i2 \ 6 + i3 \ 5 + i4 \ 4 = lmax Then ReDim Preserve s(l) '記錄排列 s(l) = "8毛:" & i1 \ 8 & "只，6毛:" & i2 \ 6 & "只，5毛:" & i3 \ 5 & "只，4毛:" & i4 \ 4 & "只" l = l + 1 End If End If If i1 \ 8 + i2 \ 6 + i3 \ 5 + (c1 - i1 - i2 - i3) \ 4 < lmax Then Exit For Next If i1 \ 8 + i2 \ 6 + (c1 - i1 - i2) \ 4 < lmax Then Exit For Next If i1 \ 8 + (c1 - i1) \ 4 < lmax Then Exit ForNexts_xinxi = ""For i = 0 To l - 1 s_xinxi = s_xinxi & s(i) & s_xinxi

4.請教一道信息學(xué)奧賽的pascal語言編程題

var name:array[1..100]of string; m:array[1..100]of longint; i,k,l,n,s1,s2:integer; max,sum:longint; ch1,ch2,ch:char; begin assign(input,'***.in'); reset(input); readln(n); for i:=1 to n do begin name[i]:='';m[i]:=0; repeat read(ch); if ch<>' ' then name[i]:=name[i]+ch; until ch=' '; read(s1,s2); read(ch1,ch1,ch2,ch2); readln(l); if (s1>80)and(l>=1) then m[i]:=m[i]+8000; if (s1>85)and(s2>80) then m[i]:=m[i]+4000; if s1>90 then m[i]:=m[i]+2000; if (s1>85)and(ch2='Y') then m[i]:=m[i]+1000; if (s2>80)and(ch1='Y') then m[i]:=m[i]+850; end; close(input); sum:=0;max:=0; for i:=1 to n do begin sum:=sum+m[i]; if max<m[i] then begin max:=m[i];k:=i; end; end; assign(output,'scholar.out'); rewrite(output); writeln(name[k]); writeln(max); writeln(sum); close(output); end.

在提升邏輯思維的道路上，我們將繼續(xù)學(xué)習(xí)、思考并實踐。通過pascal 信息學(xué)奧賽編程 50分跪求，信息學(xué)奧賽試題（計算機編程），計算機編程:信息學(xué)奧賽選拔試題，請教一道信息學(xué)奧賽的pascal語言編程題??這幾點分析，您愿意和我們一起靜下心來，科學(xué)地分析孩子學(xué)習(xí)問題的根源嗎？智慧地幫助孩子從根本解決源頭嗎？有需要可以隨時歡迎聯(lián)系哦！