Viết chương trình Pascal tính am . Với a,m là các số nguyên đọc từ bai1.inp và ghi kết quả ra tệp bai1.out.
giúp mình vs
Những câu hỏi liên quan
Viết chương trình đọc từ tệp BAI1.INP số nguyên dương N . Tính tổng các số lẻ từ 1 đến N. Ghi kết quả vào tệp BAI1.OUT .
BA1.INP. BAI1.OUT
6. 9
Program HOC24;
var i,n: integer;
t: longint;
f1,f2: text;
begin
assign(f1,'BAI1.INP');
reset(f1);
read(f1,n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
close(f1);
assign(f2,'BAI1.OUT');
rewrite(f2);
write(f2,t);
close(f2);
end.
Đúng 2
Bình luận (0)
- Bài 1: Cho tệp bai1.inp gồm 4 số nguyên. Hãy viết chương trình và ghi ra file bai1.out gồm 1 số là giá trị lớn nhất trong 4 số đó. - bài 2: Cho tệp bai2.inp gồm 4 số nguyên. Hãy viết chương trình và ghi ra file bai2.out gồm 1 số là giá trị nhỏ nhất trong 4 số đó - Bài 3: Cho tệp bai3.inp gồm 1 số nguyên là thời gian tính bằng giây để làm một công việc nào đó. Hãy viết chương trình và ghi ra file bai3.out gồm 3 số tương ứng với số giờ, phút , giây tương ứng được quy đổi.
Đọc tiếp
- Bài 1: Cho tệp bai1.inp gồm 4 số nguyên. Hãy viết chương trình và ghi ra file bai1.out gồm 1 số là giá trị lớn nhất trong 4 số đó.
- bài 2: Cho tệp bai2.inp gồm 4 số nguyên. Hãy viết chương trình và ghi ra file bai2.out gồm 1 số là giá trị nhỏ nhất trong 4 số đó
- Bài 3: Cho tệp bai3.inp gồm 1 số nguyên là thời gian tính bằng giây để làm một công việc nào đó. Hãy viết chương trình và ghi ra file bai3.out gồm 3 số tương ứng với số giờ, phút , giây tương ứng được quy đổi.
Cho tệp bai1.inp gồm:
Hàng 1:Chứa số nguyên N
Hàng 2:Chứa dãy số nguyên gồm N chữ số
Yêu cầu:-Tính tổng các số lẻ và đếm các số chẵn của dãy số trên
-Ghi kết quả tổng và đếm vào tệp bai1.out
const fi='bai1.inp'
fo='bai1.out'
var f1,f2:text;
a:array[1..100]of integer;
n,i,t,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t:=0;
dem:=0;
for i:=1 to n do
begin
if a[i] mod 2<>0 then t:=t+a[i]
else inc(dem);
end;
writeln(f2,'Tong cac so le la: ',t);
writeln(f2,'So so chan la: ',dem);
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
Viết chương trình thực hiện các yêu cầu sau:
1.Đọc một số tự nhiên n<2 tỉ từ file bai1.int sau đó tính tổng các chữ số của số vừa đọc và ghi vào file bai1.out
2.Nếu kết quả ở câu 1 là số:
Lẻ: ghi vào file bai1.out "khong thuc hien"
Chẵn: phân tích số đó thành tổng hai số nguyên tố và ghi kết quả vào file bai1.out
Viết chương trình ghi giá trị của 2 biến a,b và tổng a+b vào tệp f với ổ đĩa D:\bai1.inp
uses crt;
const fi='bai1.inp'
var a,b:integer;
f:text;
begin
clrscr;
assign(f,fi); rewrite(f);
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln(f,'a=',a);
writeln(f,'b=',b);
writeln(f,a,'+',b,'=',a+b);
close(f);
end.
Đúng 0
Bình luận (0)
Viết chương trình: Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N) Tính tổng các số chẵn trong phạm vi từ M đến N Ghi kết quả ra tệp “KETQUA.TXT”.
const fi='dulieu.txt'
fo='ketqua.txt'
var f1,f2:text;
m,n,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m,n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln(f2,t);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
Viết chương trình:
Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)
Tính tổng các số chẵn trong phạm vi từ M đến N
Ghi kết quả ra tệp “KETQUA.TXT”.
Var f1, f2: text;
Tong, m, n, i: integer;
Begin
assign(f1, ‘DULIEU.TXT’);
reset(f1);
assign(f2, ‘KETQUA’);
rewrite(f2);
Tong;= 0;
read(f1, m, n);
for i:= m to n do
if i mod 2 = 0 then Tong:= Tong+i;
write(f2, Tong);
close(f1);
close(f2);
End.
Đúng 0
Bình luận (0)
Viết chương trình:
Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)
Tính tổng các số lẻ trong phạm vi từ M đến N
Ghi kết quả ra tệp “KETQUA.TXT”.
Var f1, f2: text;
Tong, m, n, i: integer;
Begin
assign(f1, ‘DULIEU.TXT’);
reset(f1);
assign(f2, ‘KETQUA’);
rewrite(f2);
Tong;= 0;
read(f1, m, n);
for i:= m to n do
if i mod 2 = 1 then Tong:= Tong+i;
write(f2, Tong);
close(f1);
close(f2);
End.
Đúng 1
Bình luận (0)
cho tệp Data.txt chứa liên tiếp các số nguyên, mỗi số trên 1 dòng. viết chương trình đọc các số vào chương trình pascal và tính trùng bình cộng các số đó. ghi kết quả vào TBC.txt
const fi='data.txt'
fo='tbc.txt'
var f1,f2:text;
a:array[1..100]of integer;
n,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,t/n:4:2);
close(f1);
close(f2);
end.
Đúng 2
Bình luận (1)