Viết chương trình tính rồi đưa ra màn hình khoảng cách (với độ chính xác 3 chữ số sau dấu chấm thập phân) giữa hai điểm A(x,y) và B(x1,0) ( các cặp tọa độ được đọc từ tệp văn bản BAITAP.TXT)
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
const fi='baitap.txt';
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln('Chu vi hinh chu nhat la: ',(a+b)*2);
close(f1);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
const fi='baitap.txt';
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln('Chu vi la: ',(a+b)*2);
writeln('Dien tich la: ',a*b);
close(f1);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long gcd(long long a,long long b)
{
if (b==0) return(a);
return gcd(b,a%b);
}
//chuongtrinhchinh
int main()
{
freopen("songuyen.inp","r",stdin);
cin>>a>>b;
cout<<gcd(a,b);
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
const fi='baitap.txt';
var f1:text;
a:array[1..5]of integer;
i:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
for i:=1 to 5 do readln(f1,a[i]);
for i:=1 to 5 do write(a[i]:4);
close(f1);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
const fi='nhap.txt';
uses crt;
var
f:text;
b:byte;
a:longint;
begin
clrscr;
assign(f,f1);
reset(f);
read(f,a,b);
close(f);
a:=exp(b*ln(a));
write('ket qua la: ',a);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long i,a[100],n;
int main()
{
freopen("songuyen.txt","r",stdin);
n=20;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
uses crt;
const fi='baitap.txt';
var f1:text;
a,b,c,d:array[1..100]of real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n],b[n],c[n],d[n]);
end;
for i:=1 to n do
writeln(sqrt(sqr(a[i]-c[i])+sqr(b[i]-d[i])):4:3);
close(f1);
readln;
end.