b. Mã chương trình:
-
var f,g: text;
i,n: integer;
Begin
Assign(f,’bai3_1.inp’); reset(f);
Assign(g,’bai3_1.out’); rewrite(g);
readln(f,n);
For i:=1 to n do if i mod 2 =1 then Write(g,i:3,',');
Close(f); close(g);
end.
|
Bài tập 3.2:
Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập từ file). Sao cho 15 số lẻ được in trên một dòng.
a. Hướng dẫn:
- Cho j =0.
- Cho biến i chạy từ 1 đến n.
- Nếu i chẵn ( i chia 2 dư 0) thì in ra số n và tăng dem lên 1
- Nếu dem chia hết cho 15 thì thực hiện xuống dòng (Dùng Writeln).
b. Mã chương trình:
-
var f,g: text;
Dem,i,n: integer;
Begin
Assign(f,’bai3_2.inp’); reset(f);
Assign(g,’bai3_2.out’); rewrite(g);
readln(f,n);
Dem:= 0;
For i:=1 to n do if i mod 2 =1 then
Begin
Write(g,i:3,',');
Dem:= Dem + 1;
if Dem mod 15 = 0 then Writeln(g);
end;
close(f); close(g);
end.
|
c. Nhận xét: Lệnh writeln không có tham số cho phép xuống hàng.
Nếu có nhận xét trong 30 số thì có 15 số lẻ, ta có thể không cần thêm biến đếm mà chỉ cần kiểm tra biến i để xuống hàng.
Chia sẻ với bạn bè của bạn: |