Cho tệp ‘data.txt’ chứa các cạnh và chiều cao của 1 hình thang. Viết chương trình đọc dữ liệu từ tiệp và tính diện tích hình thang. Kết quả lưu vào tệp ‘ketqua.txt’
const fi='data.txt'
fo='ketqua.txt'
var f1,f2:text;
a,b,h:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b,h);
writeln(f2,0.5*h*(a+b):4:2);
close(f1);
close(f2);
end.
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
Uses crt;
var f1,f2:text;
i,n,tong,tongchan,dem:integer;
tb:real;
Begin
clrscr;
Assign(f1,'DAYSO.txt');
Assign(f2,'KETQUA.txt');
reset(f1);dem:=0;tong:=0;tongchan:=0;
While Not EOF(f1) do
Begin
read(f1,i);
inc(tong,i);
If i mod 2 = 0 then
begin
inc(dem);
inc(tongchan,i);
end;
End;
tb:=tongchan/dem;
close(f1);
rewrite(f2);
writeln(f2,tong);
writeln(f2,tongchan);
writeln(f2,tb:0:2);
close(f2);
write(tong);
readln;
End.
Viết chương trình đọc vào 2 số nguyên dương từ tệp songuyen.inp tính tích của hai số nguyên ghi kết quả ra tệp ketqua.out
viết chương trình nhập 2 số x,y từ bàn phím, tính tổng, hiệu, tích, thương của 2 số và ghi kết quả vào tệp 'KQ.TXT'
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin>>x>>y;
freopen("kq.txt","w",stdout);
cout<<x+y<<endl;
cout<<x-y<<endl;
cout<<x*y<<endl;
cout<<fixed<<setprecision(2)<<(x*1.0)/(y*1.0);
return 0;
}
Viết chương trình tính chu vi diện tích hình thang có các cạnh (đáy lớn,đáy bé 2 cạnh bên và chiều cao) là các số nguyên dương lưu trong tập CANH_HT.INT . Trong tệp mỗi dòng lưu bộ năm giá trị tương ứng cho một hình. 1) Tìm kết quả ra màn hình,mỗi dòng lưu một cặp giá trị chu vi và diện tích tương ứng của một hình
uses crt;
const fi='canh_ht.int'
var f1:text;
a,b,h,c,d:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c,d,h);
writeln(a+b+c+d);
writeln(1/2*h*(a+b):4:2);
close(f1);
readln;
end.
Em hãy viết chương trình tính diện tích hình chữ nhật và ghi kết quả vào tệp ketqua.txt
Cho tam giác ABC có BC=a và độ cao HA ( HA là số nguyên). Viết chương trình: - Đọc vào 1 tệp có tên dt_htg.inp 1 dòng duy nhất độ dài cạnh là a và độ cao HA cách nhau bởi dấu cách - Tính diện tích tam giác và đưa ra 1 tệp có tên dt_htg.out ( kết quả hiển thị 2 chữ số thập phân sau dấu phẩy)
Viết chương trình đọc 1 xâu từ tệp Xau.mp. Kiểm tra trong xâu có bao nhiêu kí tự ‘a’. Kết quả ghi vào tệp KQ.Out
Program HOC24;
var s: string;
i,d: byte;
f1,f2: text;
fi='Xau.mp'
fo='KQ.Out'
begin
assign(f1,fi);
assign(f2,fo);
reset(f1);
rewrite(f2);
readln(f1,s);
d:=0;
for i:=1 to length(s) do if s[i]='a' then d:=d+1;
write(f2,d);
close(f1); close(f2);
end.
Viết chương trình tính diện tích của một hình tam giác, biết rằng chiều cao h và cạnh đáy a là các số thực và được nhập vào từ bàn phím.
(Diện tích = (cạnh đáy* chiều cao)/2).