Bài tập turbo pascal

In bảng cửu chương n (Với n nhập từ file)

a.Hướng dẫn :

b. Mã chương trình:

var f,g: text; n,i: integer; begin Assign(f,’bai3_7.inp’); reset(f); Assign(g,’bai3_7.out’); rewrite(g); readln(f,n); for i:=1 to 9 do writeln(g,n,' x ',i, ' = ',n*i); close(f); close(g); end.

Lần lượt in các bảng cửu chương.

- Cho biến i chạy từ 2 đến 9

- In bảng cửu chương i.

b. Mã chương trình:

var g: text; i,j: integer; begin Assign(g,’bai3_8.out’); rewrite(g); for i:= 2 to 9 do Begin Writeln(g,'Bang cuu chuong ',i); For j:=1 to 9 do writeln(g,i,' x ', j,' = ',j*i); end; close(f); close(g); end.

Viết chương trình xét xem một số n có phải là số nguyên tố không?

- Nếu n không chia hết mọi số i có giá trị từ 2 đến n - 1 thì n là số nguyên tố.

- Sử dụng biến ok có kiểu boolean và có giá trị ban đầu là true.

- Cho biến i chạy từ 2 đến n – 1. Xét n mod i. Nếu bằng 0 thì gán ok = false. Ngược lại vẫn để nguyên ok.