Program HOC24;
var n: byte;
f: text;
begin
assign(f,'C:\Baitap.TXT');
reset(f);
readln(f,n);
write('Gia tri vua doc vao tep la: ',n);
close(f);
readln
end.
Giúp em bài này với
Giải giúp em bài 7 ạ
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)
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 ạ 🙆♀️
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!!!
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 ạ)
đọ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
