đọc đoạn chương trình sau đây và thực hiện yêu cầu:
program tim_dien_tich;
uses crt;
var a1,a2,b1,b2,x1,x2,i,dem:longint;
dtnn,dt1,dt2,dt3,dt4,dt5,dt6:real;
x3:array[1..1000]of longint;
dt:array[1..1000]of real;
begin
clrscr;
write('nhap chieu dai va chieu rong:');readln(a1,b1);
a2:=a1;b2:=b1;dt1:=a1*b1;dt2:=dt1/2;
x1:=0;i:=0;dem:=0;
writeln(dt2:5:1);
writeln(x1);
while x1<b1 do
begin
dt3:=a2*x1/2;
dt4:=(b2-x1)*x1/2;
dt5:=b2*(a2-x1)/2;
dt6:=dt1-dt3-dt4-dt5;
dt[i]:=dt6;x3[i]:=x1;
x1:=x1+1;i:=i+1;dem:=dem+1;
end;
dtnn:=dt[1];
for i:=1 to dem do
begin
if (dtnn>dt[i])and(dt[i]<>0) then dtnn:=dt[i];
end;
writeln(dtnn:5:1);
for i:=1 to dem do
if dtnn=dt[i] then writeln(x3[i]);
readln;
end.
đoạn chương trình trên thực hiện phần in dữ liệu còn phần ghi dữ liệu vào tệp xin mọi người giúp giùm!
cho một hình chữ nhật ABCD,cạnh AB bằng a,cạnh BC=b.a,b là các số nguyên dương trong khoảng từ 1 đến 100.
một điểm M chạy trong đoạn BC với BM=X. X là số nguyên dương trong khoảng từ 0 đến b . Điểm N chạy trong đoạn CD với CN=x
tính giá trị lớn nhất và nhỏ nhất của diện tích tam giác AMN và X khi M,N lưu động
dòng đầu là diện tích lớn nhất của tam giác AMN
dòng 2 là giá trị của x khi đó
dòng 3 là diện tích bé nhất của tam giác AMN
dòng 4 là giá trị của x khi đó
vd:
nhập:10 6
in ra: 30.0
0
17.5
5
Gải sử có tệp văn bản KT.TXT chứa xâu kí tự không quá 255. Viết chương trình đọc dữ liệu trong tệp KT.TXT vào biến S. Thay thế tất cả các cụm kí tự "anh" bằng cụm kí tự "em". Ghi xâu sau khi được thay thế vào tệp KQ.OUT
giúp em với mai em thi rồ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
giúp mình với
nêu các cách di chuyển và xóa tệp và thư mục( bằng chuột, dùng lệnh, dùng bàn phím)
Viết chương trình tính chu vi và diện tích của 1 tam giác với 3 cạnh a,b,c được nhập vào từ tệp INPUT.INP
Em cảm ơn trước ạ
Câu 7: (8 điểm)
Cho một dãy số gồm N số nguyên dương . Tính tổng các phần tử có trong
dãy số, in ra số lần xuất hiện các phần tử có trong dãy số.
- Yêu cầu: Cho một dãy số gồm N số nguyên dương. Hãy thực hiện các
yêu cầu trên. Giả thiết dữ liệu được nhập đúng đắn, không cần kiểm tra
- Dữ liệu vào: Cho từ tệp văn bản có tên DAYSO.INP có dạng như sau:
+ Dòng đầu tiên: Ghi số nguyên dương N (1≤N≤100000)
+ Dòng thứ hai: Ghi dãy N số nguyên dương a 1 , a 2 ,..., a n (1≤a i ≤1000,i=1..n)
- Kết quả: Ghi ra tệp văn bản có tên DAYSO.OUT theo cấu trúc sau:
+ Dòng đầu tiên: In ra tổng các phần tử trong dãy số.
+ Dòng tiếp theo: In ra phần tử và số lần xuất hiện của nó.
HELP...
a. Nhập từ bàn phím một dãy số nguyên A có tối đa n phần tử (n<=10), giá trị các phần tử thuộc đoạn [-4...+5];
b. Tạo mới tệp Songuyen.Txt trong thư mục gốc ổ đĩa D:\ rồi ghi các phần tử a1, a2,..., an vào tệp, mỗi phần tử trên một dòng của tệp có dạng:
a1
a2
an
Bài tập tin học kiểu tệp
Một trò chơi dành cho nhiều đội chơi được Ban tổ chức quy định như sau: bắt đầu cuộc chơi, Ban tổ chức cho chạy N số trên màn hình từ trái sang phải và yêu cầu đội chơi nào trả lời nhanh nhất số cách chia dãy số trên thành nhiều dãy con nhất sao cho các dãy con có tổng bằng nhau.
Ví dụ: Trên màn hình chạy dòng 19 số: 1 0 2 0 0 3 1 1 1 0 2 1 0 0 2 1 2 0 1. Kết quả trả lời đúng là: tổng các số mỗi dãy con là 3, số dãy con nhiều nhất là 6, bao gồm các dãy con là: 1 0 2, 0 0 3, 1 1 1, 0 2 1, 0 0 2 1, 2 0 1
+Dữ liệu vào: File văn bản GAMESHOW.INP
- Dòng 1 chứa số nguyên dương N.
- Dòng 2 chứa N số chạy trên màn hình, các số cách nhau bởi dấu cách.
+ Dữ liệu ra: Ghi ra file văn bản GAMESHOW.OUT
- Dòng 1 là tổng các số của một dãy con.
- Dòng 2 là số K (số dãy con nhiều nhất chia được).
- Dòng 3 là các vị trí cuối cùng của từng dãy con, các số vị trí này cách nhau bởi dấu cách.
Ví dụ:
GAMESHOW.INP |
GAMESHOW.OUT |
19 1 0 2 0 0 3 1 1 1 0 2 1 0 0 2 1 2 0 1 |
3 6 3 6 9 12 16 19 |
Viết chương trình ghi một file văn bản với nội dung là một bài thơ xuống đĩa. Kết thúc việc ghi bằng việc gõ 2 lần phím Enter.