IndexCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
  • Trường ai hok biết
phale_gk (710)
minie mouse (498)
pE"pj_missyou (489)
ca^u.ut'L-¶-¶-¶ (369)
N.a2 (346)
Admin (315)
kisu (314)
Phale_langtu (231)
¶-¶oan§TuBuon§Bin¶-¶07 (206)
lelui (166)
Chào mừng bạn đến với A2 prồ

Share | 
 

 BÀI TẬP TIN

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
phale_gk
Hiệu trưởng
Hiệu trưởng


Nam Tổng số bài gửi : 710
Join date : 10/10/2009
Age : 22
Đến từ : ...THIÊN ĐƯỜNG CHỈ CÓ A VÀ E....

Bài gửiTiêu đề: BÀI TẬP TIN   Sun Apr 17, 2011 9:44 am

Bài 1:
program BAI1;
var I, N : integer;
f: text;
begin
write (‘nhap so nguyen N: ‘);
readln (N);
assign (f, ‘D:\Data.Int’);
rewrite (f);
for i:1 to N do write (f, i: 6);
close (f);
end.
…………………………………………………..
BAI2
program BAI2;
var I, N : integer;
f: text;
begin
write (‘nhap so nguyen N: ‘);
readln (N);
assign (f, ‘C:\DULIEU.INP’);
rewrite (f);
for i:1 to N do
if I mod 2 = 0 then write (f, i:Cool;
close (f);
end.
…………………………………………………….
BAI 3:
Program BAI3;
Vaf f: text;
x. d: integr;
begin
assign (f, ‘D:\DAYSO.INT’);
reset (f);
d:=0;
while not (eof(f)) do
begin
read (f, x);
if x mod 2 = 1 then d: = d+1;
end;
writeln (‘so luong cac so le trong tep la: ‘,d);
close (f);
readln;
end.
…………………………………………………………..
BAI4
Program BAI4;
Var TS, MS, a: integer;
Function UCLN (M, N: integer); integer;
Begin
While M<>N do
If M> N then M:= M-N else N:= N-M;
UCLN:=M;
End;
Begin
Write (‘nhap tu so , mau so vao! ‘);
Readln (TS, MS);
If a> 1 then
Begin
TS:= TS div a;
MS:= MS div a;
End;
Writeln (TS:5, MS: 5);
End.
………………………………………………………..
BAI 5
VAR N,S: integer;
FUNCTION Tong(x:integer): integer;
VAR a,b: integer;
BEGIN
a:=x div 10;
b:=x mod 10;
Tong:=a+b;
ENG;
BEGIN
Write(‘Nhap so nguyen N co hai chu so: ’);
Readln(N);
S:=Tong(N);
Write(‘Vay tong cac chu so la ‘,S:6);
Readln
End.
…………………………………………………………
BAI 6
Program BAI6;
Var d, N, I: integer;
Function SNT(M: integer): boolean;
Var i, k: integer;
Begin
If M= 1 then SNT: = false else
If (M= 2) and (M= 3) then SNT:= TRUE;
Else
Begin
K:=0;
For i:= 2 to M-1 do
If M mod I = 0 then k:= k+1;
If k>=2 then SNT:= FALSE else SNT:= TRUE;
End;
End;
Begin
Write (‘ nhap so duong N: ‘);
Readln (N);
D:= 0;
For I:= 1 to N do
If SNT (I) = TRUE then d:= d+1;
Writeln (‘ so luong cac so nguyen to tu 1 toi’, N, ‘la’, d);
Readln
End.







Chữ ký của phale_gk

......ooooO ıllıllı Cố ơi cố ơi, cố là tất cả... cố ơi cố ơi.. ıllıllıOoooo.....
Yêu là không hối tiếc,đã yêu thì yêu tha thiết.Yêu phải biết cương quyết, nồng nàn,kịch liệt.Yêu là phải chịu thiệt,sài tiền không được tiếc.Yêu cho tới sức tàn lực kiệt cho tới trọn đời.Yêu vậy mới là yêu!

Về Đầu Trang Go down
Xem lý lịch thành viên http://ngoinhaa2.forumn.org
 

BÀI TẬP TIN

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
VÌ MỘT TẬP THỂ VỮNG MẠNH VÀ PHÁT TRIỂN :: TÂM SỰ BẠN TRAI-
Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Free blog