[Tin học 8] Cần giải đáp

T

truongtuan2001

[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.

Viết chương trình nhập vào 1 dãy n số nguyên với n số nguyên được nhập từ bàn phím.
Yêu cầu 1: Đếm xem có bao nhiêu số chẵn, số lẻ, số âm, số dương, số không âm không dương
2. Tính tổng dãy số vừa nhập

Làm giùm mình từng cái ra nha
 
K

kyxaoeffectpro

Giải

Viết chương trình nhập vào 1 dãy n số nguyên với n số nguyên được nhập từ bàn phím.
Yêu cầu 1: Đếm xem có bao nhiêu số chẵn, số lẻ, số âm, số dương, số không âm không dương
2. Tính tổng dãy số vừa nhập

Làm giùm mình từng cái ra nha

Đây bạn

Mã:
uses crt;
var  a:array[1..100] of longint;
     demchan,demle,demduong,demam,khong,s,n,i:longint;
begin
     clrscr;
     readln(n);
     for i:=1 to n do readln(a[i]);
     s:=0;
     demchan:=0; demle:=0;
     demam:=0; demduong:=0;
     khong:=0;
     for i:=1 to n do
     begin
          if a[i] mod 2 = 0 then inc(demchan) {Tang bien demchan len 1 don vi}
          else inc(demle);
          if (a[i]<0) and (a[i]<>0) then inc(demam);
          if (a[i]>0) and (a[i]<>0) then inc(demduong);
          if a[i]=0 then inc(khong);
          s:=s+a[i];
     end;
     write(demduong,'so duong, ',demam,'so am, ',demle,' so le, ',demchan,' so chan, ',khong,' so khong am khong duong');
     write('Tong cua day so la ',s);
     readln;
end.

Có gì sai bảo mình nha
 
Last edited by a moderator:
T

truongtuan2001

inc là cái j vay. Tin 8 chưa thấy cái này bao giờ

Đây bạn

Mã:
uses crt;
var  a:array[1..100] of longint;
     demchan,demle,demduong,demam,khong,s,n,i:longint;
begin
     clrscr;
     readln(n);
     for i:=1 to n do readln(a[i]);
     s:=0;
     demchan:=0; demle:=0;
     demam:=0; demduong:=0;
     khong:=0;
     for i:=1 to n do
     begin
          if a[i] mod 2 = 0 then inc(demchan) {Tang bien demchan len 1 don vi}
          else inc(demle);
          if (a[i]<0) and (a[i]<>0) then inc(demam);
          if (a[i]>0) and (a[i]<>0) then inc(demduong);
          if a[i]=0 then inc(khong);
          s:=s+a[i];
     end;
     write(demduong,'so duong, ',demam,'so am, ',demle,' so le, ',demchan,' so chan, ',khong,' so khong am khong duong');
     write('Tong cua day so la ',s);
     readln;
end.

Có gì sai bảo mình nha

inc va and là i j vay. Tin 8 chưa thấy cái này bao giờ
có cái sai. Nó nhập mấy số cũng được.
VD nhập 1 va 2 nó hiện lên 1 số duong, 0 so am, 0 sole, 1 so chan , 0 so ko am ko duong, Tong cua day so la 2
Mình sửa dươc rui nhung cần giải thích inc và and
 
Last edited by a moderator:
K

kyxaoeffectpro

Trả lời

inc va and là i j vay. Tin 8 chưa thấy cái này bao giờ
có cái sai. Nó nhập mấy số cũng được.
VD nhập 1 va 2 nó hiện lên 1 số duong, 0 so am, 0 sole, 1 so chan , 0 so ko am ko duong, Tong cua day so la 2
Mình sửa dươc rui nhung cần giải thích inc và and

Thay vì inc(demchan) thì bạn viết demchan:=demchan+1 cũng được.
And là kết nối hai điều kiện đó với nhau, tức là phải đảm bảo 2 yếu tố đó thì mới thực hiện lệnh

Ps: bạn học mảng chưa
 
Last edited by a moderator:
G

galaxy98adt

Viết chương trình nhập vào 1 dãy n số nguyên với n số nguyên được nhập từ bàn phím.
Yêu cầu 1: Đếm xem có bao nhiêu số chẵn, số lẻ, số âm, số dương, số không âm không dương
2. Tính tổng dãy số vừa nhập

Làm giùm mình từng cái ra nha
1)
program abcxyz;
uses crt;
var A: array [1..100] of longint;
N, i, chan, le, am, duong, kad: integer;
Begin
clrscr;
write('Nhap N= ');
readln(N);
for i:= 1 to N do
begin
write('A[ ' ,i, ' ]= ');
readln(A);
end;
chan:= 0, le:= 0; am:= 0, duong:= 0, kad:= 0;
for i:= 1 to N do
begin
if A mod 2 = 0 then chan:= chan + 1
else le:= le + 1;
if A < 0 then am:= am + 1
else
begin
if A = 0 then kad:= kad + 1
else duong:= duong + 1;
end;
end;
writeln('So cac so chan la: ' ,chan);
writeln('So cac so le la: ' ,le);
writeln('So cac so am la: ' ,am);
writeln('Số các số duong là: ' ,duong);
writeln('So cac so khong am khong duong la: ' ,kad);
readln
End.
2)
program abcxyz;
uses crt;
var A: array [1..100] of longint;
N, i: integer;
S: longint;
Begin
clrscr;
write('Nhap N= ');
readln(N);
for i:= 1 to N do
begin
write('A[ ' ,i, ' ]= ');
readln(A);
end;
S:= 0;
for i:= 1 to N do S:= S + A;
write('Tong cua day so la: ' ,S);
readln
End.
mình chưa test. có gì sai sót thì thông cảm nha!!
 
Top Bottom