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

Thảo luận trong 'Tin học cấp III' bắt đầu bởi Như Ngọc_HD, 16 Tháng tư 2018.

Lượt xem: 177

  1. Như Ngọc_HD

    Như Ngọc_HD Học sinh Thành viên

    Bài viết:
    105
    Điểm thành tích:
    26
    Nơi ở:
    Hải Dương
    Trường học/Cơ quan:
    THPT Đồng Gia
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Khai test đầu xuân – Nhận ngay quà khủng


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    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.
     
  2. ka1412

    ka1412 Học sinh chăm học Thành viên

    Bài viết:
    885
    Điểm thành tích:
    121
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    CNN | Life

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

    B1:
    Mã:
    writeln('Tong:',a+b);
    write('Tich:',a*b);
    B2:
    Mã:
    for i:=1 to n do
    begin
    if a[i]>0 then inc(sd);
    if a[i]<0 then inc(sa);
    end;
    B3:
    Mã:
    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:
    Mã:
    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é =)))
     
    besttoanvatlyzxz thích bài này.
  3. Như Ngọc_HD

    Như Ngọc_HD Học sinh Thành viên

    Bài viết:
    105
    Điểm thành tích:
    26
    Nơi ở:
    Hải Dương
    Trường học/Cơ quan:
    THPT Đồng Gia

    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
     
  4. Quang Trungg

    Quang Trungg Học sinh xuất sắc Thành viên

    Bài viết:
    4,581
    Điểm thành tích:
    854
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    THCS Mai Dịch

    Bài 3:
    Mã:
    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 thích bài này.
  5. Như Ngọc_HD

    Như Ngọc_HD Học sinh Thành viên

    Bài viết:
    105
    Điểm thành tích:
    26
    Nơi ở:
    Hải Dương
    Trường học/Cơ quan:
    THPT Đồng Gia

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

    ka1412 Học sinh chăm học Thành viên

    Bài viết:
    885
    Điểm thành tích:
    121
    Nơi ở:
    Hà Nội
    Trường học/Cơ quan:
    CNN | Life

    inc(q) nó giống như q:=q+1 thôi bạn, chỉ là viết cách khác thôi
     
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY