Forum lớp toán

[N]ơi chia sẻ và học hỏi
 
IndexCalendarTrợ giúpTìm kiếmThành viênNhó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*

Share | 
 

 bai TIN Thi HK2

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
ky25295
Féc-ma
Féc-ma


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

Bài gửiTiêu đề: bai TIN Thi HK2    23/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.

_________Chữ ký_________
[img][/img]
Về Đầu Trang Go down
Xem lý lịch thành viên http://hathoaiky.forumotion.com.vn
 
bai TIN Thi HK2
Xem chủ đề cũ hơn Xem chủ đề mới hơn 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