Cùng bạn ôn thi học kỳ 2

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úc 16:27.

Lượt xem: 77

  1. Như Ngọc_HD

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

    Tham gia ngày:
    14 Tháng một 2018
    Bài viết:
    24
    Đã được thích:
    2
    Điểm thành tích:
    6
    Giới tính:
    Nữ
    Nơi ở:
    Hải Dương
    Trường học:
    THPT Đồng Gia
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!


    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 Thành viên

    Tham gia ngày:
    24 Tháng mười một 2017
    Bài viết:
    164
    Đã được thích:
    69
    Điểm thành tích:
    21
    Nơi ở:
    Hà Nội
    Trường học:
    Somewhere


    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 mới Thành viên

    Tham gia ngày:
    14 Tháng một 2018
    Bài viết:
    24
    Đã được thích:
    2
    Điểm thành tích:
    6
    Giới tính:
    Nữ
    Nơi ở:
    Hải Dương
    Trường học:
    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. ๖ۣۜKenlvin ๖ۣۜNguyễn ✔

    ๖ۣۜKenlvin ๖ۣۜNguyễn ✔ Học sinh tiêu biểu Thành viên

    Tham gia ngày:
    14 Tháng mười một 2015
    Bài viết:
    4,313
    Đã được thích:
    7,033
    Điểm thành tích:
    774
    Giới tính:
    Nam
    Nơi ở:
    Hà Nội
    Trường học:
    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 mới Thành viên

    Tham gia ngày:
    14 Tháng một 2018
    Bài viết:
    24
    Đã được thích:
    2
    Điểm thành tích:
    6
    Giới tính:
    Nữ
    Nơi ở:
    Hải Dương
    Trường học:
    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 Thành viên

    Tham gia ngày:
    24 Tháng mười một 2017
    Bài viết:
    164
    Đã được thích:
    69
    Điểm thành tích:
    21
    Nơi ở:
    Hà Nội
    Trường học:
    Somewhere


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

CHIA SẺ TRANG NÀY