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

[Ks2T]

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

Thanks

 

[quocthang98]

dễ ghê, cái này thuộc căn bản của những căn bản

mình chỉ gợi ý cho bác thôi ^^!

1. Nhập Mảng bạn có thể dùng vòng lập for hoặc while từ 1 -->10

2. tính tổng các phần tử
cho biến sum=0
bạn lấy từ từng phần tử (bắt đầu từ phần tử n=1) kiểm tra có phải số lẻ không (chia 2 lấy dư khác 0 )
nếu là sổ lẻ ---> sum = sum + phần tử thứ n
ngược lại thì kiểm tra số n+1
quá dễ đúng ko

 

[Ks2T]

dễ ghê, cái này thuộc căn bản của những căn bản

mình chỉ gợi ý cho bác thôi ^^!

1. Nhập Mảng bạn có thể dùng vòng lập for hoặc while từ 1 -->10

2. tính tổng các phần tử
cho biến sum=0
bạn lấy từ từng phần tử (bắt đầu từ phần tử n=1) kiểm tra có phải số lẻ không (chia 2 lấy dư khác 0 )
nếu là sổ lẻ ---> sum = sum + phần tử thứ n
ngược lại thì kiểm tra số n+1
quá dễ đúng ko

Bác giúp đc ko./ đứa e nó nhờ mà trước mình có đc học cái này đâu. hjx

 

[langtucodon]

Program bt;
User crt;
Var
a:array [1..50] of integer;
i: integer;
Begin
Clrscr;
For i:=1 to 10 do
Begin
Writeln(a);
Readln;
End;

Éo nhớ có phải vậy không nữa

 

[kitesvn]

Program bt;
User crt;
Var
a:array [1..50] of integer;
i: integer;
Begin
Clrscr;
For i:=1 to 10 do
Begin
Writeln(a);
Readln;
End;

Éo nhớ có phải vậy không nữa

Chèn cái này vào : S: integer
For i:=1 to 10 do
Begin
If a [ i ] mod 2 = 1 then S:=S+a [ i ] ;
End.

 

[quocthang98]

hiện tại mình ko có trình Pascal nên ko lập trình để test được, mình chỉ có thể để lại ý tưởng thôi ^^!
từ giờ đến chiều mà ko ai giúp được thì mình sẽ làm thử rồi gửi cho

 

[kitesvn]

bác làm thế mà chạy được cũng hay lắm đó

dùng mảng 1 chiều thì khi khai báo biến là a
for i=1 to 10 do
begin
if a mod 2==0 then s:=s+a
end

hiện tại mình ko có trình Pascal nên ko lập trình để test được, mình chỉ có thể để lại ý tưởng thôi ^^!
từ giờ đến chiều mà ko ai giúp được thì mình sẽ làm thử rồi gửi cho

Mình có quote thêm phần của ông langtu nữa kìa bạn, ý mình là chèn vào với ông kia là ok đó, bạn xem lại đi.

 

[ncxn]

Đệch , làm biếng thì cho máy tự nhập ngẫu nhiên luôn

uses crt;
var a:array[1..10] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 10 do a:=random(100)+1;
writeln('cac so le la: ');
for i:=1 to 10 do
if a mod 2<>0 then begin write(a:4);s:=s+a;end;
writeln(' tong la: ',s);
readln
end.

 

[langtucodon]

Chèn cái này vào : S: integer
For i:=1 to 10 do
Begin
If a [ i ] mod 2 = 1 then S:=S+a [ i ] ;
End.

em có biết pascal đâu, chém bừa mà

 

[Ks2T]

ai làm hoàn chỉnh giúp mình đc ko. đứa em đang kiểm tra. nó nhờ giúp. ko giúp đc chắc ngại quá. sắp hết giờ rồi. mình lại chưa học

 

[daosythui79]

uses crt;
var n,s,i:integer;
a:array[1..100] of integer;
begin

s:=0;
n:=10;
for i:=1 to n do
begin
read(a[ i ]);
if a[ i ] mod 2=1 then s:=s+a[ i ];
end;
writeln(s);
readln;
end.

Mà cái này không dùng chương trình con đâu nhé, chỉ là hướng giải quyết thôi.

 

[kitesvn]

a [ i ] chứ khai báo a sao chạy đc!

 

[sonnd9x]

Các thím không để ý hay có tình k đọc yêu cầu thế "sử dụng ctrinh con"----------> Tất cả các cmt trên có thấy cái nào có Procedure hay Function đâu nhể?

 

[Ks2T]

Các thím không để ý hay có tình k đọc yêu cầu thế "sử dụng ctrinh con"----------> Tất cả các cmt trên có thấy cái nào có Procedure hay Function đâu nhể?

bác giúp với. sắp hết giờ rồi.

 

[vodanhlata]

Program bt;
User crt;
Var
a:array [1..50] of integer;
i: integer;
Begin
Clrscr;
For i:=1 to 10 do
Begin
Writeln(a);
Readln;
End;

Éo nhớ có phải vậy không nữa

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` =))

 

[kitesvn]

Các thím không để ý hay có tình k đọc yêu cầu thế "sử dụng ctrinh con"----------> Tất cả các cmt trên có thấy cái nào có Procedure hay Function đâu nhể?

Uhm ha, ko để ý, thôi bác giúp thớt vs kìa

 

[vodanhlata]

F5 coi lại nha, tự nhiên viết vào forum xong cái mất hết

 

[vodanhlata]

từ chỗ procedure trở xuống cái nào mà là a thì nó là a[ i ] đó nha, code forrum ko cho ghi mới ác

 

[daosythui79]

Program tinhsole;
USES CRT;
Var n, s, i: longint;
a:array[1..100] of longint;
{---------------------------------------------}
Function le(m: longint): longint;
BEGIN
If m mod 2 = 1 then le:=1 else le:=0;
END;
{-------------- Chương trình chính -------------------------}
BEGIN
s:=0;
n:=10;
for i:=1 to n do
begin
read(a[ i ]);
if le(a[ i ])=1 then s:=s+a[ i ];
end;
writeln(s);
readln;
end.
END.

Hi vọng 20 năm vẫn chạy tốt.

 

[ncxn]

Copy trên mạng: (hoàn chỉnh)
Program BTMang1C;
Uses crt;
Const Max = 10;
Type Arr10=array[1..Max] of integer;
Var X,N:integer;
A:Arr10;
{//Thu tuc nhap mang 1c}
Procedure NhapMang1C(Var A:Arr10;Var N:integer);
Var i:integer;
Begin
Write('Nhap chieu dai cua mang: ');
Readln(N);
For i:=1 to N do
Begin
Write('Nhap gt phan tu thu a[',i,']=');
Readln(A);
End;

End;
{//Thu tuc xuat mang 1C}
Procedure XuatMang1C(Var A:Arr10; Var N:integer);
Var i:integer;
Begin
For i:= 1 to N do
Write(A:5);
Writeln;
End;
{//Ham tinh tong so lẻ}
Function TongSOLe(Var A:Arr10;Var N:Integer):Integer;
Var i,S:integer;
Begin
S:=0;
For i:=1 to N do
Begin
If(A mod 2 = 1) then
S:=S+A;
End;
TongSOle:=S;
End;


{//Phan than chuong trinh}
Begin

Clrscr;
NhapMang1C(A,N);
XuatMang1C(A,N);
Writeln('Tong cac so lẻ: ',Tongsole(A,N));
Readln;
End.