Tin học Viết thuật toán

[kimbwi153@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Cho N và dãy a1,a2,......an.viết thuật toán cho biết có bao nhiêu số dương/chẵn/lẽ có trong dãy

 

[ka1412]

uses crt;
var n,a,i,b,c,d:integer;
begin
clrscr;
write('Nhap n:');readln(n);
for i := 1 to n do
begin
write('so thu ',i,'=');readln(a);
if a>0 then inc(b);
if (a mod 2 =0) and (a<>0) then inc(c) else inc(d);
end;
writeln('Co ',b,' so duong');
writeln('Co ',c,' so chan');
write('Co ',d,' so le');
readln
end.

 

[trà nguyễn hữu nghĩa]

uses crt;
var n,a,i,b,c,d:integer;
begin
clrscr;
write('Nhap n:');readln(n);
for i := 1 to n do
begin
write('so thu ',i,'=');readln(a);
if a>0 then inc(b);
if (a mod 2 =0) and (a<>0) then inc(c) else inc(d);
end;
writeln('Co ',b,' so duong');
writeln('Co ',c,' so chan');
write('Co ',d,' so le');
readln
end.

Thuật toán mà bạn:

B1: Nhập N và các số A1,A2...An.
B2: Duong <= 0; Chan <= 0; Le <= 0; i <= 0;
B3: Nếu i > N thì đưa ra các số Duong, Chan, Le rồi kết thúc;
B4: Nếu Ai > 0 thì Duong <= Duong + 1;
B5: Nếu Ai Chia hết cho 2 thì Chan <= Chan + 1;
B6: Nếu Ai Không chia hết cho 2 thì Le <= Le + 1;
B7: i <= i + 1; Quay lại bước 3.

 

[ka1412]

Mình không biết viết thuật toán . Mình chỉ biết viết chương trình thôi

 

[trà nguyễn hữu nghĩa]

Mình không biết viết thuật toán . Mình chỉ biết viết chương trình thôi

Lớp 10 chưa học Pascal nên chưa cần chương trình, chỉ cần thuật toán thôi bạn

 

[ka1412]

Lớp 10 chưa học Pascal nên chưa cần chương trình, chỉ cần thuật toán thôi bạn

Oh. Thế à? Thế để lần sau mình sẽ cố gắng viết thuật toán. Nhưng đôi lúc không biết viết thế nào.