Bác nào biết pascal làm giúp mình bài này với

[langtucodon]

chương trình con xài procedure với function
1 số tài mọn:
var i,j:integer
a:array[1..100] of integer
Procedure nhap_phan_tu
begin
from i:=1 to 10 do
begin
Writeln('Nhap phan tu thu : '), readln(a)
end;
end;
FUNCTION Kiem_tra(S: real)
begin
S:=0;
from i:=1 to 10 do
if a mod 2 <>0 then S:=S+ a;
end;
Program
Nhap_phan_tu
Kiem_tra
Write('Tong S= ',S);
end.
Hồi hè vừa thi xong h quên cmnr` =))

Sao các bác toàn quote bài em thế, em có biết gì về pascal đâu, chém thôi

 

[quocthang98]

đang kiểm tra. bác nào giúp mình bài này với.

Thanks

đã test và chạy ổn nha thớt vào nhận hàng đi

 

[ncxn]

View attachment 30016

đã test và chạy ổn nha thớt vào nhận hàng đi

Phải dùng chương trình chính, function và thủ tục theo yêu cầu của bài

 

[sonnd9x]

chương trình con xài procedure với function
1 số tài mọn:
var i,j:integer
a:array[1..100] of integer
Procedure nhap_phan_tu
begin
from i:=1 to 10 do
begin
Writeln('Nhap phan tu thu : '), readln(a)
end;
end;
FUNCTION Kiem_tra(S: real)
begin
S:=0;
from i:=1 to 10 do
if a mod 2 <>0 then S:=S+ a;
end;
Program
Nhap_phan_tu
Kiem_tra
Write('Tong S= ',S);
end.
Hồi hè vừa thi xong h quên cmnr` =))

Vãi cả bác, Bác gọi Function "Kiem_Tra" thế kia thì bố nó cũng k chạy đc, Function dùng trong biểu thức thì con đc, đứng 1m thế kia thì chạy bằng hi vọng.

Đã thế rõ ràng là hàm "FUNCTION Kiem_tra(S: real)" có tham số, mà bác gọi nó chả cần tham số mẹ gì

 

[daosythui79]

đã được kiểm chứng

 

[vmkonline]

MẤy bố ko đọc kĩ ah, dùng trương trình con nhé.
Viết cái hàm check số lẻ.
Rồi hàm chính chạy vòng lặp, gọi hàm check số lẻ đó.
Cơ mà google hôm nay thu phí ah

 

[daosythui79]

MẤy bố ko đọc kĩ ah, dùng trương trình con nhé.
Viết cái hàm check số lẻ.
Rồi hàm chính chạy vòng lặp, gọi hàm check số lẻ đó.
Cơ mà google hôm nay thu phí ah

Xem cái hình trên của mình

 

[quocthang98]

đang kiểm tra. bác nào giúp mình bài này với.

Thanks

bài mình đã chỉnh sửa thành 2 chương trình con nè ^^! không biết có quá rắc rối không

 

[Ks2T]

cảm ơn các bác nhiều lắm. nhưng hết giờ lâu lắm rồi. bé ko làm đc. buồn vì mình ko giúp đc. trước đi học có đc học cái này đâu.

 

[quocthang98]

cảm ơn các bác nhiều lắm. nhưng hết giờ lâu lắm rồi. bé ko làm đc. buồn vì mình ko giúp đc. trước đi học có đc học cái này đâu.

sorry vì ko cứu kịp vì học C thôi nên phải ôn lại mấy câu Pascal mất 20' ^^! chia buồn cũng bạn

 

[Sesshoumaru]

cảm ơn các bác nhiều lắm. nhưng hết giờ lâu lắm rồi. bé ko làm đc. buồn vì mình ko giúp đc. trước đi học có đc học cái này đâu.

phải nói là bé chép k kịp chứ
giúp thế là hại nó chứ sao lại buồn