tôi đang thi pascal , có bạn nào hiểu làm bài này thế nào không , viết hộ cho bài giải với đề bài như sau : lập chương trình đọc vào 1 dãy số nguyên cho đến khi gặp số 0 , tính tổng các số lẻ và tổng các số chẵn . sử dụng lệnh repeat ...... until . giúp nhanh hộ cái , còn 30 nữa hết giờ rồi , cám ơn nhiều
Uhm, theo mình thì như sau, (ngại nên viết sơ qua) :'> Đầu tiên, gán : for i:=1 to n do if a mod 2 = 0 then Sochan:=a else SoLe:=b; Tiếp đó, dùng repeat lặp cho đến khi(until) xuất hiện số chẵn hoặc số lẻ = 0 thì dừng lại. Nên chia ra làm 2 phần, 1 phần tính tổng chẵn, 1 phần lẻ cho dễ nhìn.
dùng repeat (có thể sai cú pháp bạn tự sửa nha, tại mình viết trên html, với lại cũng ko dùng pascal lâu rồi) ý tưởng làm ở đây vì đề ko yêu cầu lưu mảng đọc được nên mình làm trực tiếp đọc đến đâu làm đến đấy var a : integer; {tong so chan} b : integer; {tong so le} n : integer; {so phần tử} temp : integer; {biến tạm} begin n :=0 ; a := 0; b := 0; repeat n := n + 1; writeln ('nhap phan tu' ); readln (temp); {nếu temp = 0 thì tổng ko đổi nên ko bận tâm} if (temp mod 2 = 0) then a := a + temp; {coi lại có thể sai cú pháp, nếu sai thì bỏ ;} else b := b + temp; until (temp =0); writeln ('Tong cac so chan ' + a) ;{ có thể sai cú pháp bạn coi lại nếu sai thì chuyển a xuống thành writeln(a)} writeln ('Tong cac so le ' + b) ; readln(); end.
Lâu rồi ko dùng Pascal nhưng vẫn còn nhớ Pascal có lệnh readkey gì đó, chỉ cần repeat nhập(); until key = 0, sau đó làm phép tính tổng số chẵn lẻ như tên virtualman là xong.