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

Nhật Hạ ! · 14 Tháng một 2020

Để đả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

[TBODY] [/TBODY]

CuongGrove · 7 Tháng hai 2020

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?

Nhật Hạ ! · 7 Tháng hai 2020

CuongGrove said:
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?

Có đó bạn!

CuongGrove · 7 Tháng hai 2020

Nhật Hạ ! said:
Có đó bạn!

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 á

bùi thị xuân mai · 12 Tháng hai 2020

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.

Nhật Hạ ! · 12 Tháng hai 2020

CuongGrove said:
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 á

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

CuongGrove · 13 Tháng hai 2020

Nhật Hạ ! said:

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

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ả?

Nhật Hạ ! · 13 Tháng hai 2020

CuongGrove said:
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ả?

À 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:

Tìm kiếm

Tìm kiếm

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

Nhật Hạ !

Học sinh chăm học

CuongGrove

Học sinh

Nhật Hạ !

Học sinh chăm học

CuongGrove

Học sinh

bùi thị xuân mai

Học sinh

Nhật Hạ !

Học sinh chăm học

CuongGrove

Học sinh

Nhật Hạ !

Học sinh chăm học