uses crt;
const fi='duongtron.out';
var r,s,c:real;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('nhap r='); readln(r);
s:=sqr(r)*pi;
writeln(f1,s:4:2);
c:=2*r*pi;
writeln(f1,c:4:2);
close(f1);
readln;
end.
giả sử tệp "Dulieu.txt" có cấu trúc: Dòng 1 ghi 1 số nguyên N kiểu int; dòng 2 trở đi ghi dãy số thực A1, A2, ..., An. Yêu cầu đọc dữ liệu từ tệp, tính tổng các giá trị của dãy rồi xuất ra màn hình
giả sử cho tệp văn bản a có tên là vidu2.inp có cấu trúc như sau .dòng 1 chứa 2 số thực x,y.dòng 2 chứa xâu st.viết ct ghi kq vào tệp b có tên là vidu2.out theo cấu trúc như sau .dòng 1 ghi kq là tích 2 số x và y.dòng 2 ghi kq là xâu st
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
1,Viết chương trình nhập vào 3 giá trị cho số A,B,C. Ghi giá trị lên file nguồn.txt 2, Đọc giá trị từ file nguồn.txt và ghi giá trị của file (KQ.TXT) a, tính trung bỉnh cộng giá trị các phần tử b, đưa ra GTLN, GTNN của các phần tử
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 văn bản DAYSO.INP có cấu trúc:
+ Dòng 1: Ghi số nguyên dương N (0<N<=100)
+ Dòng 2: Ghi dãy gồm n số nguyên Ai (-30000<=Ai<=30000).
Yêu cầu: Viết chương trình đọc dữ liệu từ tệp trên và thực hiện các công việc sau:
a) Tính tổng các số ở dòng 2, ghi kết quả vào tệp TONG.OUT theo cấu trúc:
+ Dòng 1: Ghi số nguyên S là tổng tìm được
b) Tính tổng các số dương ở dòng 2, ghi kết quả vào tệp TD.OUT theo cấu trúc:
+ Dòng 1: Ghi số nguyên S là tổng các số dương tìm được
c) Đếm số lượng các số chẵn ở dòng 2, ghi kết quả vào tệp SOCHAN.OUT theo cấu trúc:
+ Dòng 1: Ghi số nguyên k là số lượng số chẵn
+ Dòng 2: Ghi các số chẵn tìm được, các số ghi cách nhau 1 dấu cách trống.
d) Đếm số lượng các số âm chẵn ở dòng 2, ghi kết quả vào tệp SOAMCHAN.OUT theo cấu trúc:
+ Dòng 1: Ghi số nguyên k là số lượng số âm chẵn
+ Dòng 2: Ghi các số âm chẵn tìm được, các số ghi cách nhau 1 dấu cách trống.
e) Sắp xếp các số ở dòng 2 để được dãy không giảm, ghi kết quả vào tệp SAPXEP.OUT theo cấu trúc:
+ Dòng 1: Ghi dãy số đã được sắp xếp, các số ghi cách nhau 1 dấu cách trống.
f) Đếm số lượng các số nguyên tố ở dòng 2, ghi kết quả vào tệp NTO.OUT theo cấu trúc:
+ Dòng 1: Ghi số nguyên k là số lượng số nguyên tố
+ Dòng 2: Ghi các số nguyên tố tìm được, các số ghi cách nhau 1 dấu cách trống.
HƠI DÀI NHMA MONG MẤY BẠN GIÚP CHỨ MÌNH CHỊU R
Cho tệp số thực txt chứa các cặp số mỗi cặp số lưu trên 1 dòng. Tạo tệp diện tích tính và ghi dữ liệu vào tệp diện tích ứng với mỗi cặp. 1, Hình bình hành 2, Hình tháng 3, Hình tâm giác
Viết chương trình ghi giá trị của 2 biến a,b và tổng a+b vào tệp f với ổ đĩa D:\bai1.inp
