1.In ra câu ' chao' ở cột 20 dòng thứ 5 .sử dụng tệp 'vao.inp' , 'ra.out'.
=> sao kết quả ra thì chữ 'chao' lại vẫn ở đầu dòng???? ai giúp vs
uses crt;
var f1,f2: text;
begin
clrscr;
assign(f1,'vao.inp'); reset(f1);
assign(f2,'ra.out'); rewrite(f2);
Gotoxy(20,5);
write(f2,'chao'); close(f1); close(f2);
end.
Đọc tệp sẵn là Data(I).txt bên trong có 24 chữ số có cả âm và dương. Tính tổng 24 chữ số rồi in ra Data(O).txt . Các bác giúp em với program day_so; uses crt; Const fi=('An(I).txt'); fo=('An(O).txt'); var i,t,s,n: integer; f1,f2:text; a: array[1..24] of integer; begin clrscr; assign(f1,fi);reset(f1); assign(f2,fo);rewrite(f2); s:=0; for i:=1 to 24 do begin read(f1,a[i]); s:=s+a[i]; end; write(f2,s); close(f1); close(f2); readln end. Em không biết sai ở đâu ☹️
Đưa ra các câu lệnh sau vào những vị trí cần thiết nhằm đổi chương trình trên để có được chương trình đọc dữ liệu từ bàn phím và ghi dữ liệu vào tệp. Chương trình Var s:string; a:byte; Begin readln(s); a:=length(s); Write(a); readln; End. Câu lệnh f1:text; Assign(f1,'c:\ghixau1.txt'); Rewrite (f1); Write(f1,a); Close(f1); Mong mọi người giúp ạ!Thanks!
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
Viết chương trình đọc từ tệp Dữ liệu.int chứa 2 số nguyên bất kì . Tính và ghi kết quả vào tệp Kết quả.out 2 dòng , dòng đầu ghi giá trị tổng 2 số , dòng thứ 2 ghi giá trị trung bình của 2 số đó
Cho tệp văn bản 'IN.PAS' có n + 1 dòng
- Dòng đầu tiên chứa số nguyên n là chỉ số phần tử
- n dòng tiếp theo mỗi dòng chưa 1 số nguyên
Viết chương trình sử dụng để đọc và tính tổng các số nguyên lẻ trong n số nguyên đó .
Cho 2 tệp văn bản nguyen1.TXT , nguyen2.TXT . Mỗi dòng của 2 tệp chứa 1 số nguyên . Hãy lập trình tạo tệp 1 văn bản chứa nguyen1.TXT , nguyen2TXT . Những dòng đầu tiên là các dòng của nguyen1.TXT , còn lại là nguyen2.TXT
cho em hỏi bài này em làm thế này có dúng không ạ ,mà khi em chạy chương trình thì lại báo lỗi là exitcode 205
Đề Bai:CHO DÃY SỐ NGUYÊN A1,A2,...AN,N<=1000
Ai<= 10 mũ 6 trong tệp VB:SONGUYEN.INP có cấu trúc như sau:
-dòng đầu tiên ghi số N
-dòng thứ hai ghi các giá trị ai mỗi số cách nhau 1 khoảng trống
tìm giá trị bé nhất của dãy số lưu vào tệp
program timmin;
const fi:='SONGUYEN.INP'
fo:='SONGUYEN.OUT'
var A:array[1..1000] of longint;
N,i:integer;
min:integer;
f,g:text;
begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
begin
read(f,N);
for i:=1 to N do
read(f,a[i]);
min:=a[1];
for i:'2 to N do
if a[i]<min them min:=a[i];
writeln(g,min);
end;
close(f); close(g);
END.
