cho tệp songuyen.txt gồm n phần tử ,các số được nhập cách nhau một dấu cách.Tìm những số chẵn trong dãy số trên rồi ghi vào tệp ketqua.txt
Cho tệp DL.TXT có nội dung như sau: - Số nguyên n ( dòng 1 ) - Dãy gồm n số nguyên ( dòng 2 ) ( Các số cách nhau bởi dấu cách ) Viết chương trình ghi các số chẵn của dãy số trên vào tệp KQ.TXT
1. Tệp Dulieu.txt có một dòng chứa các số nguyên (cách nhau khoảng trắng). Viết chương trình kiểm tra và đưa vào tệp Ketqua.txt những số nguyên dương chẵn trên cùng một dòng và cách nhau một khoảng trắng. 2.Viết chương trình nhập vào một mảng số nguyên, tínhvà đưa ra màn hình tổng của các số không âm có trong mảng.Yêu cầu sử dụng chương trình con để viết các thủ tục nhập, xuất mảng và hàm để tính tổng.
1:
const fi='Dulieu.txt'
fo='ketqua.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 2=0) then write(f2,a[i]:4);
close(f1);
close(f2);
end.
P/s: Cái này mình viết chương trình chính thôi nhé, còn hàm và thủ tục bạn tự viết nhé(chỉ cần lấy ý tưởng trong chương trình chính ra viết là được rồi)
2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]>=0 then t:=t+a[i];
writeln(t);
readln;
end.
Cho một dãy số nguyên, mỗi số trên một dòng được ghi trong tệp 'SONGUYEN.TXT'. Viết chương trình pascal tạo tệp 'SOCHAN.TXT' chứa các số chẵn có trong tệp 'SONGUYEN.TXT', mỗi số cách nhau một dấu cách.
const fi='songuyen.txt';
fo='sochan.txt';
var f1,f2:text;
a:array[1..100]of integer;
i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,a[dem]);
end;
for i:=1 to dem do
if a[i] mod 2=0 then write(f2,a[i]:4);
close(f1);
close(f2);
end.
Cho tệp SONGUYEN.TXT chứa cac số nguyên dương N. Viết ct in ra các số chẵn nhỏ hơn hoặc bằng N; Tính tổng các số chẵn đó. Kết quả ghi vào tệp SOCHAN.TXT a) XĐ input, output bài toán b) Viết ct giải quyết bài toán trên Mô tả - Tệp SONGUYEN.TXT chứa các số nguyên dương N - Tệp SOCHAN.TXT dòng ban đầu chứa các số chẵn nhỏ hơn hoặc bằng N - Dòng 2 chứa tổng số chẵn AI GIÚP EM VỚI Ạ Cứuuuuu e
a)
Input: Số nguyên dương N, dãy số a1,a2,a3,...,an
Output: Tổng các số chẵn nhỏ hơn hoặc bằng N
b)
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..1000] of integer;
f1,f2: text;
const fi='SONGUYEN.TXT'
fo='SOCHAN.TXT'
begin
assign(f1,fi);
assign(f2,fo);
reset(f1);
rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
for i:=1 to n do if (a[i] mod 2=0) and (a[i]<=n) then
begin
write(f2,a[i],' ');
t:=t+a[i];
end;
writeln(f2);
write(f2,t);
close(f1); close(f2);
end.
Cho mảng 1 chiều a thừa số nguyên gồm 10 phần tử đc nhập từ bàn phím viết phương trình ghi tệp 1 để ghi các phần tử của mảng a vào tệp trong Data. TXT các phần tử đc ghi trên 1 dòng mỗi phần tử cách nhau ít nhất 1 khoảng trống
uses crt;
const fo='data.txt'
var f1:text;
a:array[1..10]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fo); rewrite(f1);
n:=10;
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(f1,a[i]:4);
close(f1);
readln;
end.
tệp data inp chứa một dãy số gồm 10 số cách nhau bởi dấu cách em hãy viết chương trình đọc toàn bộ các chữ số trong tệp tính và ghi kết quả vào tệp data.out tổng các chữ số chia hết cho 5
const fi='songuyen.txt'
fo='kluan.txt'
var f1,f2:text;
n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
if n mod 2=0 then writeln(f2,'La so chan')
else writeln(f2,'La so le');
close(f1);
close(f2);
end.
Cho tệp ăn.txt chứa dãy các số nguyên liên tiếp viết cách nhau 1 dấu cách .viết CT đọc dữ liệu từ tệp txt tính tổng các số chẵn và tổng các số lẻ ghi kết quả vào tập kq.txt trên 2 dòng
1. Viết CT nhập vào 1 dãy số nguyên có N phần tử (N=150). In ra màn hình và ghi ra tệp D:\SO_CHAN.TXT các phần tử là số chẵn.
2.Viết CT nhập vào họ và tên của một người bằng chữ in thường. In ra màn hình và ghi ra tệp D:\HO_TEN.TXT họ tên người đó bằng chữ in hoa.
3. Cho tệp D:\SO_HANG.TXT chứa các cặp số nguyên( mỗi số cách nhau 1 khoảng trắng, mỗi cặp nằm trên 1 dòng. Viết CT tính tổng các cặp số đó, kết quả in ra màn hình và ghi ra tệp D:\KET_QUA.TXT.
4. Cho tệp D:\HO_TEN.TXT chứa họ tên của một số người bằng chữ in thường. Viết CT in ra màn hình và ghi ra tệp D:\HT_HOA.TXT họ tên những người đó bằng chữ in hoa. Giúp mik vs ạ tks nhiều