uses crt;
const fi='input.inp';
fo='ketqua.txt';
var f1,f2:text;
a,b:real;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(a);
writeln(b);
writeln(f2,a);
writeln(f2,b);
close(f1);
close(f2);
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
viết chương trình tạo một tệp văn bản có tên songuyen.txt trong ổ đĩa C và ghi vào tệp các số nguyên từ 1 đến 20. Sau đó đọc các số nguyên từ tệp và in ra màn hình
Cho tệp INPUT.INP có chứa 2 số nguyên a và b. Viết chương trình đọc dữ liệu từ tệp INPUT.INP và ghi vào tệp OUTPUT.OUT số nhỏ nhất của 2 số nguyên này
cho tệp dư liệu hình chữ nhạt gồm các cặp chiều dài, chiều rộng là số nguyên dương lớn hơn 0. Viết chương trình đọc tệp hình hcn.dat tính diện tích các hình chưi nhat ghi ra màn hình, tính chu vi cac hình chữ nhật ghi vào tệp chuvu.out.
Mng giúp mình các BT cuối kì vs ạ Bài 1: Viết chương trình nhập từ bàn phím 2 số nguyên a,b; Sau đó ghi chúng vào tệp có tên D:\Baitaptin.txt. Bài 2: Viết chương trình nhập từ bàn phím 1 xâu không quá 180 kí tự; Xuất xâu vừa nhập ra màn hình rồi ghi xâu đó vào tệp có tên E:\tepxau.txt. Bài 3: Viết chương trình nhập từ bàn phím 2 số nguyên dương; Tính và ghi tổng của chúng vào tệp có tên ‘teptong.txt’ rồi xuất tổng ra màn hình.
Viết chương trình để mở tệp văn bản HT. txt nhập từ bàn phím họ tên của em và ghi tệp đó
Lập trình đọc số nguyên dương N vào tệp có tên ‘Dulieu.txt’ Tính tổng các số chẵn từ 1 đến N, kết quả ghi ra tệp ‘ Uot.txt’ Mọi người giúp em gấp với ạ!!!!!! Em cảm ơn!
1. Tệp 'DAYSO.txt' trên đĩa D chứa dãy các số nguyên. (Mỗi số nằm trên 1 dòng).
a) Viết chương trình tính tổng các số trong tệp 'DAYSO.txt', ghi kết quả vào tệp 'TONG.txt'.
b) Viết chương ghi vào tệp 'KQ.txt' các số chẵn, các số lẻ có trong tệp 'DAYSO.txt'.
C) Viết chương trình đưa ra màn hình các số nguyên tố có trong tệp 'DAYSO.txt'.
..Giúp mình với ạ
