Bài thực hành tin học Sign-up-box




Bài thực hành tin học Sign-up-box




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.



 
Trang ChínhTìm kiếmLatest imagesĐăng kýĐăng Nhập

Share | 
 

 Bài thực hành tin học

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Takeshi
Thành viên Sành Điệu
Thành viên  Sành Điệu
Takeshi

Tổng số bài gửi Tổng số bài gửi : 43
Birthday : 14/03/1993
Zigzag Point : 263022
Cảm ơn : 124
Age : 31
Đến từ : Bến Tre City
Cung : Pisces

Bài thực hành tin học _
Bài gửiTiêu đề: Bài thực hành tin học   Bài thực hành tin học Icon_minitimeSun Mar 28, 2010 4:43 pm

uses crt;
Const
Fi='D:\11T\TRAI.TXT';
Fo='D:\11T\KC.TXT';
max=10;
Var f1 , f2:text;x,y:integer;
d:array[1..max] of real;
i,j:byte;
tong,tb:real;
BEGIN
{doc file }
clrscr;
Assign (f1,fi); Reset(f1); i:=0; tong:=0;
While not(EOF(f1)) do
begin
read(f1,x,y);
inc(i);
d[i]:=sqrt(sqr(x)+sqr(y));
writeln(d[i]:0:2);
tong:=tong+d[i];
End;
tb:=tong/10;
Close(f1);
Assign(f2,fo); rewrite(f2);
for j:=1 to i do
if d[j]<tb then writeln(f2,j);
Close(f2);
Readln;
END.
Về Đầu Trang Go down
 

Bài thực hành tin học

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
 :: Nhịp sống trẻ :: Nhịp sống trẻ :: Công Nghệ -Máy vi tính-

Latest topics
» Học tiếng Nhật - Top Globis
Bài thực hành tin học Icon_minitimeMon Jul 16, 2012 12:26 pm by xuxu_sad_tq

» [24.4.10] Dịch tên bạn sang tiếng Hàn, Nhật, Trung
Bài thực hành tin học Icon_minitimeSun Feb 19, 2012 12:07 pm by tinh_ve45@yahoo.com.vn

» Thông báo họp lớp Tết - Nhâm Thìn -2012
Bài thực hành tin học Icon_minitimeMon Jan 16, 2012 12:25 pm by hienvinh_do

» Tạo biểu tượng “không đụng hàng” cho các thư mục
Bài thực hành tin học Icon_minitimeSat Jan 07, 2012 7:44 pm by Lee Ji Hyuk

» Chính thức hoạt đông box " Lịch hợp lớp - Liên lạc" !!
Bài thực hành tin học Icon_minitimeTue Nov 08, 2011 12:00 am by vhangni

» Họp lớp lần 2 - Tại Sài gòn
Bài thực hành tin học Icon_minitimeSat Oct 22, 2011 12:21 am by Kevin Pun

» Thông tin liên lạc của các thành viên!
Bài thực hành tin học Icon_minitimeMon Aug 29, 2011 7:11 pm by hienvinh_do

» Học tiếng Nhật - Top Globis
Bài thực hành tin học Icon_minitimeTue Aug 23, 2011 3:53 pm by tuquynh

» Họp lớp lần 1 -(20/8/2011)
Bài thực hành tin học Icon_minitimeThu Aug 18, 2011 5:44 pm by RedDevils

» ĐẲNG CẤP NGƯỜI VIỆT NAM!!
Bài thực hành tin học Icon_minitimeWed Aug 17, 2011 9:25 am by Virgin

» Thông báo :Họp lớp lần 1-tháng 8/2011
Bài thực hành tin học Icon_minitimeTue Aug 16, 2011 4:36 pm by khoai tay

» Tuyển tập thiên thần trường Chuyên
Bài thực hành tin học Icon_minitimeFri Aug 12, 2011 8:19 am by Virgin

Lượt truy cập Các bộ đếm & Phân tích lưu lượng
Free forum | ©phpBB | Free forum support | Báo cáo lạm dụng | Thảo luận mới nhất