BÀI 1 :Cho tệp số nguyên . TXT chứa các số nguyên , mỗi số cách nhau một kí tự trắng . Viết chương trình đọc các số nguyên từ tệp trên rồi đưa ra màn hình các số lẻ .
BÀI 1 :Cho tệp số nguyên . TXT chứa các số nguyên , mỗi số cách nhau một kí tự trắng . Viết chương trình đọc các số nguyên từ tệp trên rồi đưa ra màn hình các số lẻ .
Program bai_tap;
var f :text ;
x : integer;
Begin
assign ( f,’C:\ songuyen.TXT’);
reset (f);
While not eof (f) do
begin
read (f,x);
If x mod 2 <> 0 then
Writeln ( ‘ So le :’ x:5);
end;
Close (f);
End.
Bài 2 : Cho tệp số nguyên TXT chứa các số nguyên , mỗi số cách nhau một kí tự trắng . Viết chương trình đọc các số nguyên dương từ tệp rồi đưa ra căn bậc 2 & ghi vào tệp số âm các số nguyên âm .
Program Vidu;
Var
A,B : text;
F : integer;
Begin
Assign ( A,’ C:\ Songuyen.TXT’);
Assign ( B,’C:\Soam.TXT’);
reset (A);
rewrite (B);
while not eof (1) do
begin
read ( A, x);
If x>= 0 then
Write ( ‘ can bac hai cua x la ,’ sqrt ( X:5:2)
else write ( B,x);
end;
close (A) ; close (B);
End.
1. Một file văn bản trên đĩa có tên là SON.INF chứa đúng một dòng bao gồm hai số tự nhiên n, m được viết cách nhau một dấu cách. Sau đây là một ví dụ về file này:4 5. Em hãy viết đoạn chương trình nhập hai số này từ file trên và in kết quả ra màn hình.
Var f:text;
m,n:integer;
Begin
Assign(f,’son.inf’); Reset(f);
Readln(f,m,n);
Close(f);
Writeln(m:4,n:4);
Readln;
End.
Const Li=’INPUT.TXT’;
Var f: text;
A: array[1..10000] of longint;
n,i: longint;
Begin
Assign(f,Li);
Reset(f);
n:=0;
While not eof(f) do
Begin
Inc(n);
Read(f,A[n]);
End;
For i:=1 to n do
If (A[i] mod 2 = 1 )then Write(A[i],’ ‘);
Readln
End.