Tin học Tìm mật khẩu

Thảo luận trong 'Tin học cấp II' bắt đầu bởi Nhật Hạ !, 14 Tháng một 2020.

Lượt xem: 229

  1. Nhật Hạ !

    Nhật Hạ ! Học sinh chăm học Thành viên

    Bài viết:
    319
    Điểm thành tích:
    51
    Nơi ở:
    Quảng Nam
    Trường học/Cơ quan:
    THCS Lê Quang Sung
    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!

    Để đảm bảo an ninh dữ liệu tại sân bay, nhà chức trách đã xác lập mật khẩu từ bảng số liệu có n hàng (n £ 10) h1, h2,…,hn tương ứng với hàng thứ 1, 2, …, n tính từ trên xuống, mỗi hàng hi (i=1,..,n) có ít nhất từ 3 đến không quá 100 số tự nhiên được phân biệt bởi dấu cách. Mật khẩu được xác định bằng cách viết liên tiếp n số x1, x2,…,xn theo thứ tự từ trái sang phải, với xi (i= 1, 2,…,n) là số cách chọn ba số tùy ý trên hàng hi, sao cho tích ba số đó chia hết cho tổng của chúng.

    Yêu cầu: Lập trình giúp nhà chức trách sân bay xác lập mật khẩu.

    - Dữ liệu vào: Đọc từ file văn bản MATKHAU.INP chứa n hàng như phần mô tả trong bảng số liệu đã nêu trên.

    - Dữ liệu ra: Kết quả ghi ra file văn bản MATKHAU.OUT là số mật khẩu tìm được.

    Ví dụ:

    MATKHAU.INP

    MATKHAU.OUT

    0 1 3 5 3 4 1 3
    1 3 2 3 3 1 2
    1 1 3
    0 1 3 1

    271303
     
    dangtiendung1201 thích bài này.
  2. CuongGrove

    CuongGrove Học sinh Thành viên HV CLB Lịch sử

    Bài viết:
    81
    Điểm thành tích:
    21
    Nơi ở:
    Quảng Ngãi
    Trường học/Cơ quan:
    THPT Trà Bồng

    Cho mình hỏi là với dòng h1 trong Input ấy thì trường hợp lấy (VD như) 3 số 1 3 5 với số 3 là z[1] và 1 3 5 với số 3 là z[8] (với z là mảng chứa các số trong h1) thì có tính là 2 trường hợp khác nhau không?
     
  3. Nhật Hạ !

    Nhật Hạ ! Học sinh chăm học Thành viên

    Bài viết:
    319
    Điểm thành tích:
    51
    Nơi ở:
    Quảng Nam
    Trường học/Cơ quan:
    THCS Lê Quang Sung

    Có đó bạn!
     
  4. CuongGrove

    CuongGrove Học sinh Thành viên HV CLB Lịch sử

    Bài viết:
    81
    Điểm thành tích:
    21
    Nơi ở:
    Quảng Ngãi
    Trường học/Cơ quan:
    THPT Trà Bồng

    Bài này bạn làm được chưa? Và bạn biết bài này nhập file như thế nào không, mình nghĩ mãi không đc luôn á
     
    Last edited: 7 Tháng hai 2020
  5. bùi thị xuân mai

    bùi thị xuân mai Học sinh mới Thành viên

    Bài viết:
    33
    Điểm thành tích:
    16
    Nơi ở:
    Quảng Nam
    Trường học/Cơ quan:
    thcs võ thị sáu

    cách mình làm đây nhia:):)
    uses crt;
    var f1,f2:text;
    a:array[1..100] of integer;
    h,i,t,s,b,c,d,r:integer;
    begin
    clrscr;
    assign(f1,'matkhau.inp'); reset(f1);
    assign(f2,'matkhau.out'); rewrite(f2);
    repeat
    r:=0;
    i:=0;
    repeat
    inc(i);
    read(f1,a);
    until eoln(f1);
    readln(f1);
    for b:=1 to i do
    for c:=1 to b-1 do
    for d:=1 to c-1 do
    begin
    s:=a[c]+a[d]+a;
    t:=a[c]*a[d]*a;
    if t mod s=0 then inc(r);
    end;
    writeln(r);
    until eof(f1);
    readln;
    close(f1); close(f2);
    end.
     
  6. Nhật Hạ !

    Nhật Hạ ! Học sinh chăm học Thành viên

    Bài viết:
    319
    Điểm thành tích:
    51
    Nơi ở:
    Quảng Nam
    Trường học/Cơ quan:
    THCS Lê Quang Sung

    À mình làm được rồi nha bạn :)
    Mã:
    Var g:text;
    t,i,k,h,l: longint;
    a:array[1..100] of longint;
    Begin
    Assign(g,'matkhau.inp'); Reset(g);
    While not eof(g) do
    Begin
    While not eoln(g) do Begin inc(i); read(g,a); ENd; Readln(g);
    For h:=1 to i-2 do
    For k:=h+1 to i-1 do
    For l:=s+1 to i do
    If (a[h]*a[k]*a[l]) mod (a[h]+a[k]+a[l]) = 0 then inc(t);
    write(t);
    t=0;
    i=0;
    Readln;
    ENd.
     
  7. CuongGrove

    CuongGrove Học sinh Thành viên HV CLB Lịch sử

    Bài viết:
    81
    Điểm thành tích:
    21
    Nơi ở:
    Quảng Ngãi
    Trường học/Cơ quan:
    THPT Trà Bồng

    Bạn chạy thử chưa? Mình chạy thì thấy nó báo lỗi chỗ "Read(g,a)", và biến s mình thấy bạn chưa khai báo, chắc bạn bị nhầm với biến k hả?
     
  8. Nhật Hạ !

    Nhật Hạ ! Học sinh chăm học Thành viên

    Bài viết:
    319
    Điểm thành tích:
    51
    Nơi ở:
    Quảng Nam
    Trường học/Cơ quan:
    THCS Lê Quang Sung

    À mình chạy rồi, được đấy bạn.
    Chỗ biến k ban đầu là s mà mình copy code cái nó vị lỗi nên phải sửa thành k sau đó quên khai báo luôn... chỗ báo lỗi cũng là do quá trình copy code dán lên đây bị lỗi đó. Nguyên văn nó như này:
    upload_2020-2-13_21-7-17.png
     
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

-->