Tìm kiếm Đề thi, Kiểm tra
Đề thi Tin học trẻ cấp THCS tỉnh Trà Vinh 2018 - có đáp án tham khảo
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Lư Vĩnh Nghi
Ngày gửi: 21h:57' 31-03-2023
Dung lượng: 1.6 MB
Số lượt tải: 69
Nguồn:
Người gửi: Lư Vĩnh Nghi
Ngày gửi: 21h:57' 31-03-2023
Dung lượng: 1.6 MB
Số lượt tải: 69
Số lượt thích:
0 người
Bài 1:
uses crt;
var n,i,s:integer;
st:string;
begin
clrscr;
repeat
write('Nhap so n: ');
readln(n);
until n>0;
s:=0;
i:=1;
while sbegin
str(i,st);
s:=s+length(st);
write(st,'-',s,' ');
i:=i+1;
end;
writeln('Chu so thu ',n,' la ',st[length(st)-s+n]);
readln;
end.
Bài 2:
var f:text;
a,b:array[1..100] of integer;
i,j,t,n:integer;
begin
assign(f,'d:\sapxep.inp');
reset(f);
read(f,n);
randomize;
for i:=1 to n do a[i]:=random(1998)-999;
for i:=1 to n do b[i]:=a[i];
for i:=1 to n-1 do
for j:=i to n do
if a[j]begin
t:=a[j];
a[j]:=a[i];
a[i]:=t;
end;
close(f);
assign(f,'d:\sapxep.out');
rewrite(f);
for i:=1 to n do
begin
write(f,b[i]);
write(f,' ');
end;
writeln(f);
for i:=1 to n do
begin
write(f,a[i]);
write(f,' ');
end;
close(f);
end.
Bài 3:
var f:text;
i,j,k,n:integer;
s:longint;
st,t:string;
begin
assign(f,'d:\nhiphan.inp');
reset(f);
read(f,n);
s:=1;
for i:=1 to n do s:=s*2;
assign(f,'D:\nhiphan.out');
rewrite(f);
for i:=0 to s-1 do
begin
k:=i;
while k>0 do
begin
str(k mod 2,t);
insert(t,st,length(st)+1);
k:=k div 2;
end;
for j:=1 to n-length(st) do
insert('0',st,length(st)+1);
for j:=1 to n do
begin
write(f,st[length(st)-j+1]);
write(f,' ');
end;
st:='';
writeln(f);
end;
close(f);
end.
uses crt;
var n,i,s:integer;
st:string;
begin
clrscr;
repeat
write('Nhap so n: ');
readln(n);
until n>0;
s:=0;
i:=1;
while s
str(i,st);
s:=s+length(st);
write(st,'-',s,' ');
i:=i+1;
end;
writeln('Chu so thu ',n,' la ',st[length(st)-s+n]);
readln;
end.
Bài 2:
var f:text;
a,b:array[1..100] of integer;
i,j,t,n:integer;
begin
assign(f,'d:\sapxep.inp');
reset(f);
read(f,n);
randomize;
for i:=1 to n do a[i]:=random(1998)-999;
for i:=1 to n do b[i]:=a[i];
for i:=1 to n-1 do
for j:=i to n do
if a[j]
t:=a[j];
a[j]:=a[i];
a[i]:=t;
end;
close(f);
assign(f,'d:\sapxep.out');
rewrite(f);
for i:=1 to n do
begin
write(f,b[i]);
write(f,' ');
end;
writeln(f);
for i:=1 to n do
begin
write(f,a[i]);
write(f,' ');
end;
close(f);
end.
Bài 3:
var f:text;
i,j,k,n:integer;
s:longint;
st,t:string;
begin
assign(f,'d:\nhiphan.inp');
reset(f);
read(f,n);
s:=1;
for i:=1 to n do s:=s*2;
assign(f,'D:\nhiphan.out');
rewrite(f);
for i:=0 to s-1 do
begin
k:=i;
while k>0 do
begin
str(k mod 2,t);
insert(t,st,length(st)+1);
k:=k div 2;
end;
for j:=1 to n-length(st) do
insert('0',st,length(st)+1);
for j:=1 to n do
begin
write(f,st[length(st)-j+1]);
write(f,' ');
end;
st:='';
writeln(f);
end;
close(f);
end.
Các ý kiến mới nhất