Đang thi , cần giúp ngay một bài pascal , làm ơn

[TaoVanThao]

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

 

[sega_s3000]

bbb---chúc thi trượt nhé bạn trẻ

 

[virtualman]

đề 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 .

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.

 

[tekatoji_kun]

khá rành về vi tính nhưng dốt đặc pascal nè

 

[virtualman]

khá rành về vi tính nhưng dốt đặc pascal nè

Dạo này lắm nhân tài spam thế nhờ

Mod thì ko biết lặn đâu
close topic giùm :(

 

[Fireemblem&me]

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.

 

[Phatos]

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.