uses crt;
const fi='baitap.txt'
var f1:text;
x,y:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,x,y);
writeln(sqrt(x*x+y*y):4:2);
close(f1);
readln;
end.
uses crt;
const fi='baitap.txt'
var f1:text;
x,y:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,x,y);
writeln(sqrt(x*x+y*y):4:2);
close(f1);
readln;
end.
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)
Bài 1: Viết CT ghi các số nguyên từ 1-->10 vào tệp songuyen.doc,mỗi số ghi trên 1 dòng Bài 2: Đọc các số nguyên từ tệp songuyen.doc và ghi ra màn hình các số cách nhau ít nhất một dấu cách Các anh chị giúp em với ạ em đang cần gấp ạ:(( (pascal ạ)
Cho tệp Dulieu.txt chứa các số nguyên, mỗi giá trị cách nhau một khoảng trống.Đọc từ tệp ra các giá trị gắn vào 2 biến a,b. Tính tổng a+b và ghi ra kết quả vào tệp ketqua.txt Giúp em với ạ, chiều nay là deadline rồi ạ, em cảm ơn nhiều!!!
Một file văn bản có tên D:\DSt.txt có chứa đúng 2 dòng ,mỗi dòng chỉ chứa 1 số nguyên. Viết chương trình đọc từ tệp trên và in ra màn hình tổng và giá trị tuyệt đối hiệu hai số. Giúp e với ạ 🙆♀️
Viết chương trình cho máy tính đọc từ tệp DAYSO.txt gồm các số nguyên có ít nhất 2 dòng
Tính tổng cấc số có trong tệp DAYSO.txt, ghi kết quả ra màn hình và tệp KETQUA.txt
Tính tổng và trung bình cộng các số chẵn trong tệp dayso.txt, ghi các kết quả vào tệp KETQUA.txt
Viết chương trình tính tổng của n số nguyên có trong tệp Tong.inv. đưa giá trị tìm được ra tệp Tong.out. Dữ liệu vào gồm hai dòng dòng 1 ghi số nguyen dương n dòng 2 ghi n số nguyên dương dữ liệu ra một số nguyên duy nhất là tổng tìm được