Forum lớp toán
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Forum lớp toán

[N]ơi chia sẻ và học hỏi
 
Trang ChínhLatest imagesTìm kiếmĐăng kýĐăng Nhập
Chào mừng các bạn đến với forum lớp toán!!!
Các bạn muốn đăng kí 4rum phải để lại tên, lớp ở box dành cho khách viến thămvà phải chờ admin kích hoạt mới sử dụng được nhé *admin*
*Thông báo* Vì hiện nay có danh sách và thông tin một số bạn trong lớp nên không tiện để khách viếng thăm cập nhật thông tin, các bạn là thành viên của lớp vui lòng đăng kí để có thể xem thông báo và thông tin của lớp *admin*

 

 bai TIN Thi HK2

Go down 
Tác giảThông điệp
ky25295
Féc-ma
Féc-ma
ky25295


Tổng số bài gửi : 64
Join date : 30/08/2010
Age : 29
Đến từ : Viet Nam

bai TIN Thi HK2  Empty
Bài gửiTiêu đề: bai TIN Thi HK2    bai TIN Thi HK2  I_icon_minitime23/4/2012, 21:55

Bài 1
program thoaiky;
uses crt;
var a,s:string;i:integer;
begin
clrscr;
writeln('nhap xau s');readln(s);
a:='';
for i:=1 to length(s) do
a:=a+upcase (s[i]) ;
writeln(' s la ',a);
readln;
end.
Bài 2 : VD4/SGK trang 72
Bài 3 : bài 2/73
Bài 4 : VD3 / SGK trang 71
Bài 5 : bài 1/SGK trang 73
Bài 6:
program thoaiky;
uses crt;
var s:string;i:byte;
dem: array ['A'..'Z'] of byte;
a:char;
begin
clrscr;
writeln('nhap xau s');readln(s);
for a:='A' to 'Z' do dem[a]:=0;
for i:=1 to length(s) do
if upcase(s[i]) in ['A'..'Z'] then inc(dem[upcase(s[i])]);
for a:='A' to 'Z' do
writeln(a,' la ',dem[a]);
readln;
end.
Bài 7:
program thoaiky;
uses crt;
var s:string;
begin
clrscr;
writeln('nhap xau s');readln(s);
while pos('ch',s)<>0 do delete(s,pos('ch',s),2);
writeln('xau la s ',s);
readln;
end.
Bài 8:
program bai_8;
uses crt;
var a:array[1..10] of integer;
i,l,n,c:integer;
begin
write('nhap vao so phan tu cua mang:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:5);
writeln;
for i:=1 to n do
if a[i] mod 2<>0 then l:=l+a[i];write(l);
writeln;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:5);
writeln;
for i:=1 to n do
if a[i] mod 2=0 then c:=c+a[i]; write(c);
readln
end.
Bài 9:
program bai_9;
uses crt;
var a:array[1..10] of integer;
n,i,x:integer;
begin
clrscr;
write('nhap vao so phan tu n '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap vao gia tri cua x, x= '); readln(x);
for i:=1 to n do
if a[i]=x then write('vi tri cua x la vi tri thu ',i);
readln
end.
Bài 10:
program bai_10;
uses crt;
var a:array[1..10] of integer;
,n,max,min:integer;
begin
clrscr;
rite('nhap vao so n phan tu '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=1 to n do
if a[i]writeln('so nho nhat la ' ,min);
for i:=1 to n do
if a[i]>max then max:=a[i];
write('so lon nhat la ' ,max);
readln
end.
Bài 11:
program bai_11; uses crt; var a:array[1..10] of integer; i,n,t,j:integer; begin clrscr; write('nhap vao so phan tu n '); readln(n);
for i:=1 to n do begin write('a[',i,']'); readln(a[i]); end;
for j:=1 to n-1 do
for i:=1 to n-1 do
if a[I]>a[i+1] then
begin
t:=a[I]; a[I]:=a[i+1]; a[i+1]:=t;
end;
for i:=1 to n do
begin write(a[i]:5);
end;
readln
end.
Bài 12:
program bai_12;
uses crt; var a:array[1..10] of integer; i,n,s,k:integer;
begin clrscr;
write('nhap voa so ptu n '); readln(n);
for i:=1 to n do
begin write('a[',i,']'); readln(a[i]);end;
write('nhap vao so k'); readln(k);
for i:=1 to n do if a[i] mod k = 0 then s:=s+a[i];write(s);
readln end.
Bài 13:
program bai_13;
uses crt;
var a:array[1..10] of integer;
n,i,d,s: integer;
begin
clrscr;
write('nhap n so phan tu cua mang '); readln(n);
for i:=1 to n do
begin
write('a[',i,']'); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]:5);
writeln;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
write('tong cac so duong la ',s);
writeln;
for i:=1 to n do
if a[i]<0 then write(a[i]:5);
writeln;
for i:=1 to n do
if a[i]<0 then d:=d+a[i];
write('tong cac so am la ',d);
readln
end.
Bài 15:
Program bai_15
uses crt;
var i,x,n,h,o:integer; l:real;
function mu(x,n:integer):integer;
var s,i:integer;
begin
s:=1;
for i:= 1 to n do begin
s:=(x+n)*s; end;
mu:=s;
end;
function giaithua(n:integer):integer;
var i,k:integer;
begin k:=1;
for i:= 1 to n do
k:=k*i;
giaithua:=k;
end;
begin clrscr; readln(x,n);
l:=0;
for i:= 1 to n do begin
h:= mu(x,i);
o:=giaithua(i);
l:=l+h/o;end;
write(l:2:0);
end.
Bài 16:
type mang=array[1..100] of longint;
var a,b,c:mang; n:longint;

procedure nhapmang(var a:mang; n:longint);
var i: longint;
begin
for i:=1 to n do read(a[i]);
end;

procedure taomang(a,b:mang);
var i: longint; c:mang;
begin
for i:=1 to n do
begin
c[i]:= a[i] + b[i];
writeln(c[i] : 4);
end;
end;

BEGIN
read(n);
nhapmang(a,n);
nhapmang(b,n);
taomang(a,b);
readln
END.
Bài 17:
var S,a,c,b: longint;


function giaithua(n:longint):longint;
var i,a: longint;
begin
a:=1;
for i:=1 to n do a:=a*i;
giaithua:=a;
end;

BEGIN
Write('Nhap a, b, c: ');
read(a,b,c);
S:=giaithua(a) + giaithua(b) + giaithua(c);
write(S);
readln
END.
Bài 18:
uses crt;
var a,b,UCLN:integer;
begin
clrscr;
write(‘nhap so a: ');readln(a);
write(' nhap so b: ');readln(b);
while a<>b do
begin
if (ab:=b-a
else
a:=a-b;
end;
write('UCLN cua a va b la: ',a);
readln;
end.
Về Đầu Trang Go down
http://hathoaiky.forumotion.com.vn
 
bai TIN Thi HK2
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Forum lớp toán :: Học tập :: Ngoại ngữ-Tin :: Tin-
Chuyển đến