Bai 16
Chia sẻ bởi Ngô Nguyễn Thanh Duy |
Ngày 10/05/2019 |
66
Chia sẻ tài liệu: Bai 16 thuộc Tin học 11
Nội dung tài liệu:
VÍ DỤ 1:
HT
O(0,0)
B(x,y)
C(x,y)
A(x,y)
D(x,y)
d := sqrt (x*x + y*y);
program Khoang_cach;
var d: real;
f: text;
x,y: integer;
begin
assign(f,’TRAI.TXT’);
reset(f);
while not eof(f) do
begin
read(f,x,y);
d:=sqrt(x*x+y*y);
writeln(‘Khoang cach: ’,d:10:2);
end;
close(f);
readln;
end.
3 2 5 6 4 1 8 5 -4 2 6 3
TRAI.TXT
VÍ DỤ 2:
HT
O(0,0)
B(x,y)
C(x,y)
A(x,y)
D(x,y)
d := sqrt (x*x + y*y);
program Khoang_cach;
var d: real;
f: text;
x,y: integer;
begin
assign(f,’TRAI.TXT’);
reset(f);
while not eof(f) do
begin
read(f,x,y);
d:=sqrt(x*x+y*y);
writeln(‘Khoang cach: ’,d:10:2);
end;
close(f);
readln;
end.
3 2 5 6 4 1 8 5 -4 2 6 3
TRAI.TXT
VÍ DỤ 2:
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Ngô Nguyễn Thanh Duy
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)