Tin học Bài tập lập trình Pascal tin học 11

Thảo luận trong 'Dòng họ c , c++ , c#' bắt đầu bởi hoangngonbang, 3 Tháng tư 2019.

Lượt xem: 194

  1. hoangngonbang

    hoangngonbang Học sinh Thành viên

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

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    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!

    56158181_412250049604898_2674520622490451968_n.png
    Mọi người hướng dẫn em làm một số bài tập Tin học được không ạ? Cảm ơn mọi người nhiều!!!
     
    thaohien8c thích bài này.
  2. nguyen tran thanh nha

    nguyen tran thanh nha Học sinh Thành viên

    Bài viết:
    107
    Điểm thành tích:
    36
    Nơi ở:
    Bà Rịa - Vũng Tàu
    Trường học/Cơ quan:
    thcs kim long

    bài 1 hình như có công thức tìm khoảng cách 2 điểm
    A(x1,y1) và B(x2,y2) thì AB=[tex]\sqrt{(x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)}[/tex] rồi tìm max thôi
    bài 2: chạy cho tới khi thấy ' ' dừng lại trước đó sẽ là họ tìm từng cái 1 rồi lại tìm max
    bài 3: chạy từ 1 cho tới n rồi đếm nếu a[ i ]mà chia hết cho k thì +1 mà không thì đếm quay lại =0 lại tìm max trong các lần đếm
     
    hoangngonbang thích bài này.
  3. iceghost

    iceghost Phó nhóm Toán Cu li diễn đàn TV BQT xuất sắc nhất 2016

    Bài viết:
    4,261
    Điểm thành tích:
    811
    Nơi ở:
    TP Hồ Chí Minh
    Trường học/Cơ quan:
    THPT Tân Thông Hội

    1.
    Mã:
    program doKhoangCach;
    var a, b, x, y: integer;
        khcach, max: real;
        t: text;
    begin
        assign(t,'TRAI.TXT');
        reset(t);
        read(t,a,b);
        khcach := 0;
        while not eof(t) do
        begin
            read(t,x,y);
            khcach := sqrt(sqr(a-x)+sqr(b-y));
            if khcach > max then max := khcach;
        end;
        close(t);
        assign(t,'KCMAX.OUT');
        rewrite(t);
        write(t,max:0:5);
        close(t);
    end.
    
    2. (Giả sử không có hai học sinh có họ khác nhau nhưng có cùng độ dài dài nhất) (lười viết)
    Mã:
    program hoTenDaiNhat;
    var s, ho, homax: string;
        max: byte;
        t: text;
    begin
        assign(t,'XAU.INP');
        reset(t);
        max:= 0;
        while not eof(t) do
        begin
            readln(t,s);
            ho:= copy(s,1,pos(' ',s)-1);
            if length(ho) > max then
            begin
                max:= length(ho);
                homax:= ho;
            end;
        end;
        close(t);
        assign(t,'XAU.OUT');
        rewrite(t);
        writeln(t,max);
        write(t,homax);
        close(t);
    end.
    3.
    Mã:
    program doDaiChuoi;
    var A: array[1..100] of integer;
        t: text;
        n, k, i, j, max: integer;
    begin
        assign(t,'SUBSEQ.INP');
        reset(t);
        read(t,n,k);
        max:=0;
        for i:=1 to n do read(t,A[i]);
        for i:=1 to n do
        begin
            j:=0;
            while (A[i+j] mod k = 0) and (i+j <= n) do
                j:=j+1;
            if j > max then max:=j;
        end;
        close(t);
        assign(t,'SUBSEQ.OUT');
        rewrite(t);
        write(t,max);
        close(t);
    end.
     
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

-->