DAP AN THI HSG TPHCM NAM 2011 BAI 1
Chia sẻ bởi Nguyễn Thị Thúy Uyên |
Ngày 16/10/2018 |
44
Chia sẻ tài liệu: DAP AN THI HSG TPHCM NAM 2011 BAI 1 thuộc Tin học 9
Nội dung tài liệu:
{ Cho 2 so nguyen A va b so du khi dem chia cho B la so nguyen R thoa
A=mB+R thoa 0<=RNhiem vu: Doc vao 10 so nguyen khong am cho truoc va xuat ra cac so noi tren co so du khac nhau khi dem chia cho 42
Du lieu vao: Vao tu tap tin so du.inp gom 10 so nguyen <1000
ket qua: ghi ra tap tin van ban sodu.out so duy nhat chi so so khac nhau can tim
VD: sodu.int
1
2
3
4
5
6
7
8
9
10
thi Sodu.out
10
Sodu.int
42
84
252
420
840
126
42
84
420
126
thi sodu.out
la 1
sodu.int
39
40
41
42
43
44
82
83
84
85
thi sodu.out la
6
}
program tt;
uses crt;
const fi=`d:sodu.inp`;
fo=`d:sodu.out`;
var f,f1:text;
a,b,c:array[1..10] of integer;
i,j,n,t:integer;
begin
clrscr;
assign(f,fi);
reset(f);
i:=1;
while not eof(f) do
begin
read(f,a[i]);
b[i]:=a[i] mod 42;
write(b[i],` `);
i:=i+1;
end;
writeln;
writeln;
for i:=1 to 9 do
for j:=i+1 to 10 do
if b[i]>b[j] then
begin
t:=b[i];
b[i]:=b[j];
b[j]:=t;
end;
t:=1;
for i:=1 to 10 do
begin
write(b[i], ` `);
if b[i]<>b[i+1] then t:=t+1;
end;
writeln;
write(t);
assign(f1,fo);
rewrite(f1);
write(f1,t);
close(f);
close(f1);
readln;
end.
A=mB+R thoa 0<=R
Du lieu vao: Vao tu tap tin so du.inp gom 10 so nguyen <1000
ket qua: ghi ra tap tin van ban sodu.out so duy nhat chi so so khac nhau can tim
VD: sodu.int
1
2
3
4
5
6
7
8
9
10
thi Sodu.out
10
Sodu.int
42
84
252
420
840
126
42
84
420
126
thi sodu.out
la 1
sodu.int
39
40
41
42
43
44
82
83
84
85
thi sodu.out la
6
}
program tt;
uses crt;
const fi=`d:sodu.inp`;
fo=`d:sodu.out`;
var f,f1:text;
a,b,c:array[1..10] of integer;
i,j,n,t:integer;
begin
clrscr;
assign(f,fi);
reset(f);
i:=1;
while not eof(f) do
begin
read(f,a[i]);
b[i]:=a[i] mod 42;
write(b[i],` `);
i:=i+1;
end;
writeln;
writeln;
for i:=1 to 9 do
for j:=i+1 to 10 do
if b[i]>b[j] then
begin
t:=b[i];
b[i]:=b[j];
b[j]:=t;
end;
t:=1;
for i:=1 to 10 do
begin
write(b[i], ` `);
if b[i]<>b[i+1] then t:=t+1;
end;
writeln;
write(t);
assign(f1,fo);
rewrite(f1);
write(f1,t);
close(f);
close(f1);
readln;
end.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Thị Thúy Uyên
Dung lượng: 2,89KB|
Lượt tài: 0
Loại file: rar
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)