Nói riêng đối với cách gợi động cơ xuất phát từ những phương thức tư duy và hoạt động phổ biến trong Tin học như xét tương tự, khái quát hóa, xét sự liên hệ và phụ thuộc, sự quen thuộc đ[r]
(1)8) Tìm liên hệ phụ thuộc
Nói riêng cách gợi động xuất phát từ phương thức tư hoạt động phổ biến Tin học xét tương tự, khái quát hóa, xét liên hệ phụ thuộc, quen thuộc phương thức không kết mà điều kiện việc gợi động theo cách Thật vậy, việc xét tương tự, việc xét khái quát hóa, việc xét liên hệ phụ thuộc có tác dụng gợi động người học sinh quen thuộc với cách xem xét này, trải nghiệm thành công nhiều lần việc theo cách Để thực điều dạy học cho học sinh chương trình Chúng ta u cầu học sinh giải tốn sau:
“Có túi chứa tối đa D (kg) với n đồ vật, Cần chọn đồ vật cho giá trị túi lớn Biết đồ vật i có khối lượng W[i] và giá trị C[i] đồng (i = 1, 2, , n ”.
Var C, W:Array[1 100] Of Integer; CW: Array[1 100] Of Real; n, i, j, d, d1, gt, t: Integer; Procedure Nhap;
Begin
Write('Nhap so luong cac vat: '); Readln(n); Write('Nhap khoi luong cua tui: '); Readln(D); D1:=D; Writeln('Nhap cac gia tri cua C va W: ');
For i:=1 to n Begin
Write('C[',i,'] = '); Readln(C[i]); Write('W[',i,'] = '); Readln(W[i]); CW[i] := C[i] / W[i];
End; End;
(2)Var t1, t2: Integer; t3: Real; Begin
Nhap;
For i := to n -
For j := n downto i + Begin If CW[j] > CW[j-1] Then Begin
t1 := C[j]; C[j] := C[j-1]; C[j-1] := t1; t2 := W[j]; W[j] := W[j-1]; W[j-1] := t2; t3 := CW[j]; CW[j] := CW[j-1]; CW[j-1] := t3; End;
End; End;
Procedure Luachon; Var temp: Integer; Begin
Sapxep;
i := 1; gt := 0; t := 0;
While (i <= n) And (d > 0) And (W[i] > 0) Do Begin Temp := d Div W[i]; {So vat duoc chon cua W[i]} If temp > Then Begin
Writeln('Do vat C[',i,'] = ',C[i],' va W[',i,'] = ',W[i],' duoc chon co so luong ',temp);
d := d - temp * W[i]; t := t + W[i] * temp; gt := gt + temp * C[i]; End;
i := i + 1; End;
Writeln('Gia tri toi uu co the dat duoc la:');
(3)