Thứ tự sắp xếp
12. End.
8. End;
11. Readln;
2. Begin
7. Readln(f,i);
9. Close(f);
1. Var f:text; i: byte;
10. writeln(i);
3. Assign(f,'D:/so.txt');
4. Reset(f);
5. While not(eof(f)) Do
6. Begin
Đư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!
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.
Cho chương trình sau
Program BT1;
Var s: interger
Function Fact(n: interger): interger
Var s: interger
Begin
If n=0 Then Fact:=1 else
Begin
S:=1
For i:=1 To n Do s:=s*i;
Fact:=s;
End;
End;
Begin
For i;=0 To 10 Do
Writenl(i,' ',Fact (i));
End.
Hãy cho biết chương trình trên
1. Tên chương chình con là gì
2. Nó là hàm hay thủ tục
3. Tham số hình thức tên là gì
4. Tham số thực sự tên là gì
5. Biến cục bộ tên là gì
6. Biến toàn cục tên là gì
7. Chương trình còn này được thực hiện mấy lần
8. Viết lại dòng lệnh nó được thực hiện
9. Kiểu giá trị mà hàm này trả về là kiểu gì
10. Hãy viết lại dòng lệnh để hàm này trẻ về giá trị có kiểu real
Viết chương trình đọc từ tệp Tep1.txt các biến a,b,c,d,e,f. Tính và đưa ra kết quả xuống tệp Ketqua.txt
Tong LT=ab+cd+ef
Đọ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 ☹️
tệp TXT có các số nguyên, mỗi số một dòng. Viết chương trình đọc các số này vào mảng A và kiểm tra mản này có bao nhiêu số nguyên tố. Lưu ý: trong chương trình trên phải áp dụng chương trình con
Mng giúp mình các BT cuối kì vs ạ Bài 1: Viết chương trình nhập từ bàn phím 2 số nguyên a,b; Sau đó ghi chúng vào tệp có tên D:\Baitaptin.txt. Bài 2: Viết chương trình nhập từ bàn phím 1 xâu không quá 180 kí tự; Xuất xâu vừa nhập ra màn hình rồi ghi xâu đó vào tệp có tên E:\tepxau.txt. Bài 3: Viết chương trình nhập từ bàn phím 2 số nguyên dương; Tính và ghi tổng của chúng vào tệp có tên ‘teptong.txt’ rồi xuất tổng ra màn hình.
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 đỡ ạ
viết chương trình tạo một tệp văn bản có tên songuyen.txt trong ổ đĩa C và ghi vào tệp các số nguyên từ 1 đến 20. Sau đó đọc các số nguyên từ tệp và in ra màn hình
