Giúp mk vs
1 Viết chương trình bằng NNLT pascal
+ Đọc từ tệp dayso.txt mỗi lần ra 1 số nguyên (tệp dayso.txt có 1 dòng chứa các số nguyên, mỗi số cách nhau một dấu cách )
+ Hiện ra màn hình bình phương số nguyên đó
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.
Bài 1: Viết CT ghi các số nguyên từ 1-->10 vào tệp songuyen.doc,mỗi số ghi trên 1 dòng Bài 2: Đọc các số nguyên từ tệp songuyen.doc và ghi ra màn hình các số cách nhau ít nhất một dấu cách Các anh chị giúp em với ạ em đang cần gấp ạ:(( (pascal ạ)
1:
uses crt;
const fi='songuyen.doc'
var i:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
for i:=1 to 10 do write(f1,i:4);
close(f1);
readln;
end.
Mọi người giải giúp mình bài này với
Mình cảm ơn
1. Viết chương trình bằng NNLT Pascal
- đọc từ tệp dayso.Txt mỗi lần ra một số nguyên (tệp dayso.Txt có 1 dòng chứa các số nguyên mỗi số cách nhau 1 dấu cách)
- hiện ra màn hình bình phương số nguyên đó
2. Viết chương trình bằng NNLT Pascal
- nhập từ bàn phím số do chiều dài và chiều rộng của một hình chữ nhật
- ghi vào tệp văn bản hcn.Txt 4 dòng văn bản
+ dòng 1: số đo chiều dài
+ dòng 2: số đo chiều rộng
+ dòng 3: chu vi
+ dòng 4: diện tích
Câu 1:
uses crt;
const fi='dayso.txt';
var f1:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
writeln('Binh phuong cua cac phan tu trong day so la: ');
for i:=1 to n do
write(sqr(a[i]):4);
close(f1);
readln;
end.
Câu 2:
uses crt;
const fo='hcn.txt';
var f:text;
d,r,cv,dt:real;
begin
clrscr;
assign(f,fo); rewrite(f);
write('nhap chieu dai:'); readln(d);
write('nhap chieu rong:'); readln(r);
if (d>0) and (r>0) and (d>=r) then
begin
cv:=(d+r)*2;
dt:=d*r;
writeln(f,'chieu dai la: ',d:4:2);
writeln(f,'chieu rong la: ',r:4:2);
writeln(f,'chu vi la: ',cv:4:2);
writeln(f,'dien tich la: ',dt:4:2);
end
else writeln('Vui long nhap lai');
close(f);
readln;
end.
Cho tệp dulieuvao.txt gồm nhiều dòng, mỗi dòng chứa 2 số nguyên a, b. Các số cách nhau bởi dấu cách. Viết chương trình đọc dữ liệu từ tệp, tính trung bình cộng và ghi kết quả ra tệp dulieura
cho tệp DataIn.txt chứa liên tiếp các số nguyên dương và âm, các số trên cùng một dòng ngăn cách nhau bởi dấu cách. viết chương trình đọc các số vào chương trình pascal và tính tổng rồi ghi ra DataOut.txt
xin giúp đỡ ạ
const fi='dulieu.txt'
fo='ketqua.txt'
var i,t:integer;
f1,f2:text;
a:array[1..9]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 9 do
begin
read(f1,a[i]);
t:=t+a[i];
end;
writeln(f2,t);
close(f1);
close(f2);
end.
const fi='dataln.txt'
fo='dataout.txt'
var f1,f2:text;
x,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 24 do
begin
read(f1,x);
t:=t+x;
end;
writeln(f2,t);
close(f1);
close(f2);
end.
Bài tập tệp Bài 1: Viết chương trình mở tệp dayso.TXT để đọc các số nguyên ra biến n và tính tổng các số nguyên n chia hết cho 3 hoặc 5? Bài 2: Viết chương trình nhập 50 số nguyên bất kì từ bàn phím và ghi các số nguyên lẻ đã nhập vào tập sole.TXT
Viết chương trình đọc từ tệp đayso.inp sang dạy sỗ A1,A2,....AN rồi thực hiện in dãy ra màn hình
- Tệp dayso.inp có cấu trúc:
+ Dòng 1: là 1 số nguyên dương N
+ Dòng 2: gồm N số nguyên ngăn cách nhau bởi 1 đấu cách
mọi người ơi giúp e với.
uses crt;
const fi='dayso.inp',
var a:array[1..100]of integer;
i,n:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
for i:=1 to n do write(a[i]:4);
close(f1);
readln;
end.
cho tệp DataIn.txt chứa liên tiếp 24 dãy số các số nguyên dương và âm, các số trên cùng một dòng ngăn cách nhau bởi dấu cách. viết chương trình đọc các số vào chương trình pascal và tính tổng rồi ghi ra DataOut.txt
xin giúp đỡ ạ
const fi='dataln.txt'
fo='dataout.txt'
var f1,f2:text;
x,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 24 do
begin
read(f1,x);
t:=t+x;
end;
writeln(f2,t);
close(f1);
close(f2);
end.
giả sử trên đĩa E có tệp SO.INP chứa nhiều dòng dữ liệu, mỗi dòng chứa hai số nguyên cách nhau bởi dấu cách. hãy viết chương trình đọc ra mỗi dòng dữ liệu trong tệp SO.INP, sau đó tính trung bình cộng của mỗi dòng và hiển thị kết quả trung bình cộng ra màn hình tương ứng với mỗi dòng dữ liệu? Mn giúp mik vs
uses crt;
const fi='so.inp'
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
while not eof(f1) do
begin
readln(f1,a,b);
writeln((a+b)/2:4:2);
end;
close(f1);
readln;
end.