Giả sử cho tệp Dulieu.INP có 1 dãy số, cho biết trong tệp đó có bao nhiêu số ấm
Những câu hỏi liên quan
Giả sử có tệp Dulieu.INP có dãy số như sau 4 3 -6 5 9 -7 -1. Hãy cho biết trong tệp có bao nhiêu số âm
uses crt;
const fi='dulieu.inp'
var f1:text;
i,n,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i]<0 then dem:=dem+1;
writeln(dem);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Tệp “DL.TXT chứa 2 dòng:
- Dòng 1: chứa 1 số nguyên n là số phần tử có trong tệp
Dòng 2: chứa dãy n số nguyên, các số cách nhau ít nhất1 khoảng trắng.
a) Xuất ra màn hình các số dương có trong tệp.
b) Cho biết trong tệp có bao nhiêu số nguyên chẵn?
c) Ghi các số lẻ vào tệp “SOLE.TXT”.
d) Hãy tính tổng các số chẵn có trong tệp. Ghi kết quả ra màn hình.
e) Tính tổng các số dương rồi ghi kết quả vào tệp D:soduong.txt
f) Hãy ghi các số nguyên tố vào tệp “SNT.TXT”
g) Cho biết trong tệp có bao nhiê...
Đọc tiếp
Tệp “DL.TXT" chứa 2 dòng:
- Dòng 1: chứa 1 số nguyên n là số phần tử có trong tệp
Dòng 2: chứa dãy n số nguyên, các số cách nhau ít nhất1 khoảng trắng.
a) Xuất ra màn hình các số dương có trong tệp.
b) Cho biết trong tệp có bao nhiêu số nguyên chẵn?
c) Ghi các số lẻ vào tệp “SOLE.TXT”.
d) Hãy tính tổng các số chẵn có trong tệp. Ghi kết quả ra màn hình.
e) Tính tổng các số dương rồi ghi kết quả vào tệp "D:\soduong.txt"
f) Hãy ghi các số nguyên tố vào tệp “SNT.TXT”
g) Cho biết trong tệp có bao nhiêu số nguyên tố?
viết chương trình Pascal để mở tệp "DULIEU.INP", đọc dãy số và tính tổng các số chẵn của dãy số đó:
Cho tệp dulieu.inp chứa các bộ số nguyên ( mỗi bộ ghi trên 1 dòng gồm 2 số nguyên cách nhau bởi 1 kí tự trống). Vt ctrinh đọc dữ liệu trong tệp trên rồi tính tổng của mỗi bộ số nguyên, ghi các kq vào tệp tong.out( mỗi kq trên 1 dòng ). Lưu ý có sd ctrinh con
cho tệp dulieu.inp gồm các số nguyên mỗi số trên 1 dòng . Đếm các số chẵn. Ghi kết quả ra tệp dulieu.out
const fi='dulieu.inp'
fo='dulieu.out'
var f1,f2:text;
a:array[1..100]of integer;
n,i,dem: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;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln(f2,dem);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
Giả sử có bốn số nguyên lưu trong tệp DỮ LIEU.TXT.Hãy viết một chương trình mở tệp đã cho để tính tích của bốn số nguyên đó và đưa kết quả ra màn hình
uses crt;
const fi='dulieu.txt'
var f1:text;
a,b,c,d:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c,d);
writeln(a*b*c*d);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
giả sử tệp "Dulieu.txt" có cấu trúc: Dòng 1 ghi 1 số nguyên N kiểu int; dòng 2 trở đi ghi dãy số thực A1, A2, ..., An. Yêu cầu đọc dữ liệu từ tệp, tính tổng các giá trị của dãy rồi xuất ra màn hình
uses crt;
const fi='dulieu.txt'
var f1:text;
a:array[1..100]of real;
t:real;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Đọc dữ liệu từ tệp Dl. Dat chứa các số nguyên. Loại bỏ các số âm có trong dãy Đếm trong dãy có bao nhiêu số bằng 10 sau khi loại bỏ. Kết quả ghi vào tệp Dl. Dat
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,dem;
int main()
{
freopen("dl.inp","r",stdin);
freopen("dl.dat","w",stdout);
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
dem=0;
for (i=1; i<=n; i++)
if (a[i]==10) dem++;
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Cho dãy gồm N số tự nhiên a1,a2,a3...aN. viết chương trình in ra tổng các số âm,số dương của Dữ liệu vào cho bởi tệp DULIEU.INP có cấu trúc - dòng đầu tiên chứa số N - dòng thứ 2 chứa các số a1,a1,s3...aN các số cách nhau ít nhất 1 kí tự trống
uses crt;
const fi='dulieu.inp'
var f1:text;
a:array[1..100]of integer;
n,i,t1,t2:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i]>0 then t1:=t1+a[i];
if a[i]<0 then t2:=t2+a[i];
end;
writeln('Tong cac so duong la: ',t1);
writeln('Tong cac so am la: ',t2);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)