ndvd1992
23-12-2009, 18:12
Bài 1: Số Y đc tạo thành từ số X bằng cách đổi số X sang cơ số 8 đc số p sau đó sắp xếp các chữ số theo thứ tự tăng dần đc số q. Lấy số p trừ số q theo cơ số 8, tiếp tục làm như vậy cho đến khi các chữ số của p đc xếp theo thứ tự tăng dần đổi p ra số thập phân và in kết quả, nếu quá 4 phép trừ mà không đc thì in kết quả của lần trừ thứ 5. Ví dụ:
8123-->173. 173-137=34 (thỏa mãn) -->28;
5049-->11671-11167-->502-25-->405(thỏa mãn)-->301
99999-->303237-23337-->257700-2577-->255101-11255-->243624-223446
-->20156-1256-->16700(kết thúc)-->7616
Bài 2: Tập hợp A gồm các số chỉ chia hết cho 2,3 và 5(không còn chia hết cho số nào khác), số 1 đc quy ước thuộc tập A
Các phần tử đầu tiên là: 1,2,3,4,5,6,8,9,10,12,15 ...
Các số hãy tìm phần tử thứ 1500 của A
Bài 3:An có một mảnh đất hình tam giác, trên đó có trồng táo, do mảnh đất hình tam giác nên khó xác định đc đâu là cây táo của với táo của những người xung quanh trồng ngoài khu đất,
Yêu cầu: cho tọa độ 3 đỉnh của khu đất hình tam giác, cho số cây táo (tổng số táo của An và những người xung quanh), tọa độ mỗi cây. Xác định số cây táo của An và diện tích mảnh đất
các bạn vào tham khảo , mong sớm nhận được câu trả lời từ các bạn ^^
[=========> Bổ sung bài viết <=========]
mọi người ơi , vào giải giúp cái đề này với. khó quá à
nghĩ mãi chả ra thuật toán
[=========> Bổ sung bài viết <=========]
chả ai trả lời à
thôi tớ làm đáp án bài 3 trước nhé
uses crt;
const fi='caytao.inp';
fo='caytao.out';
var f1,f2:text;
xa,ya,xb,yb,xc,yc:integer;
d,n,i:word;
a,b:array[1..100] of integer;
s:real;
procedure init;
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
read(f1,xa,ya);readln(f1);
read(f1,xb,yb);readln(f1);
read(f1,xc,yc);readln(f1);
readln(f1,n);
for i:=1 to n do
begin
read(f1,a[i],b[i]);
readln(f1);
end;
close(f1);
end;
function dt(x1,y1,x2,y2,x3,y3:integer):real;
begin
dt:=abs(x1*(y2-y3)+x2*(y3-y1)+x3*(y1-y2))/2;
end;
procedure kt;
var s1,s2,s3:real;
begin
s:=dt(xa,ya,xb,yb,xc,yc);
for i:=1 to n do
begin
s1:=dt(a[i],b[i],xa,ya,xb,yb);
s2:=dt(a[i],b[i],xb,yb,xc,yc);
s3:=dt(a[i],b[i],xc,yc,xa,ya);
if s1+s2+s3=s then inc(d);
end;
end;
BEGIN clrscr;
d:=0;
init;
kt;
writeln(f2,s:0:1);
writeln(f2,d);
close(f2);
Readln
END.
8123-->173. 173-137=34 (thỏa mãn) -->28;
5049-->11671-11167-->502-25-->405(thỏa mãn)-->301
99999-->303237-23337-->257700-2577-->255101-11255-->243624-223446
-->20156-1256-->16700(kết thúc)-->7616
Bài 2: Tập hợp A gồm các số chỉ chia hết cho 2,3 và 5(không còn chia hết cho số nào khác), số 1 đc quy ước thuộc tập A
Các phần tử đầu tiên là: 1,2,3,4,5,6,8,9,10,12,15 ...
Các số hãy tìm phần tử thứ 1500 của A
Bài 3:An có một mảnh đất hình tam giác, trên đó có trồng táo, do mảnh đất hình tam giác nên khó xác định đc đâu là cây táo của với táo của những người xung quanh trồng ngoài khu đất,
Yêu cầu: cho tọa độ 3 đỉnh của khu đất hình tam giác, cho số cây táo (tổng số táo của An và những người xung quanh), tọa độ mỗi cây. Xác định số cây táo của An và diện tích mảnh đất
các bạn vào tham khảo , mong sớm nhận được câu trả lời từ các bạn ^^
[=========> Bổ sung bài viết <=========]
mọi người ơi , vào giải giúp cái đề này với. khó quá à
nghĩ mãi chả ra thuật toán
[=========> Bổ sung bài viết <=========]
chả ai trả lời à
thôi tớ làm đáp án bài 3 trước nhé
uses crt;
const fi='caytao.inp';
fo='caytao.out';
var f1,f2:text;
xa,ya,xb,yb,xc,yc:integer;
d,n,i:word;
a,b:array[1..100] of integer;
s:real;
procedure init;
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
read(f1,xa,ya);readln(f1);
read(f1,xb,yb);readln(f1);
read(f1,xc,yc);readln(f1);
readln(f1,n);
for i:=1 to n do
begin
read(f1,a[i],b[i]);
readln(f1);
end;
close(f1);
end;
function dt(x1,y1,x2,y2,x3,y3:integer):real;
begin
dt:=abs(x1*(y2-y3)+x2*(y3-y1)+x3*(y1-y2))/2;
end;
procedure kt;
var s1,s2,s3:real;
begin
s:=dt(xa,ya,xb,yb,xc,yc);
for i:=1 to n do
begin
s1:=dt(a[i],b[i],xa,ya,xb,yb);
s2:=dt(a[i],b[i],xb,yb,xc,yc);
s3:=dt(a[i],b[i],xc,yc,xa,ya);
if s1+s2+s3=s then inc(d);
end;
end;
BEGIN clrscr;
d:=0;
init;
kt;
writeln(f2,s:0:1);
writeln(f2,d);
close(f2);
Readln
END.