Tin học Viết Chương Trình

[Như Ngọc_HD]

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

Bài 1: Hãy nhập từ bàn phím 2 số nguyên dương a,b thực hiện tính tổng,tích của 2 số này và đưa kq ra màn hình.

Bài 2: Viết chương trình nhập từ bàn phím số nguyên dương N<= 100 và số nguyên A gồm n số được đánh số thứ tự từ A1->An
Hãy cho biết dãy A có bao nhiêu số âm, bn số dương.

Bài 3: Lập trình từ bàn phím 1 xâu không quá 100 ký tự, hãy cho biết trong xâu vừa nhập có bao nhiêu ký tự 'A'/'a'. Đưa kết quả ra màn hình.

Bài 4: Nhập từ bàn phím hai số nguyên M và N (M<N) tính tổng các số i (M<i<N) là số chia hết cho 2. ĐƯa kết quả ra màn hình.

 

[ka1412]

Mình chỉ viết phần chính thôi nhé.

B1:

writeln('Tong:',a+b);
write('Tich:',a*b);

B2:

for i:=1 to n do
begin
if a[i]>0 then inc(sd);
if a[i]<0 then inc(sa);
end;

B3:

var s:string(100);
i:integer;
begin
write('Nhap xau:');readln(s);
for i:=1 to length(s) do
begin
if s[i]='A' then inc(q);
if s[i]='a' then inc(w);
end;

B4:

for i:=m+1 to n-1 do
if i mod 2 = 0 then s:=s+i;

Có gì sai thì bạn cứ bảo mình nhé =)))

 

[Như Ngọc_HD]

Mình chỉ viết phần chính thôi nhé.

B1:

writeln('Tong:',a+b);
write('Tich:',a*b);

B2:

for i:=1 to n do
begin
if a[i]>0 then inc(sd);
if a[i]<0 then inc(sa);
end;

B3:

var s:string(100);
i:integer;
begin
write('Nhap xau:');readln(s);
for i:=1 to length(s) do
begin
if s[i]='A' then inc(q);
if s[i]='a' then inc(w);
end;

B4:

for i:=m+1 to n-1 do
if i mod 2 = 0 then s:=s+i;

Có gì sai thì bạn cứ bảo mình nhé =)))

bạn ơi bạn có thể ghi rõ hơn ra được không ạ? mình không hiểu cái inc của bài 3

 

[Quang Trungg]

bạn ơi bạn có thể ghi rõ hơn ra được không ạ? mình không hiểu cái inc của bài 3

Bài 3:

Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.

 

[Như Ngọc_HD]

Bài 3:

Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.

bài này hình như chương trình sao rồi bạn ạ

 

[ka1412]

bạn ơi bạn có thể ghi rõ hơn ra được không ạ? mình không hiểu cái inc của bài 3

inc(q) nó giống như q:=q+1 thôi bạn, chỉ là viết cách khác thôi