Bài thực hành 1. Làm quen với Turbo Pascal

Bài tập tổng hợp
Viết chương trình nhập 1 số nguyên nhỏ hơn 1000. Cho biết các số hàng trăm, hàng đơn vị, hàng chục của số đã nhập.
Vd nhập 216 trăm = 2 chuc = 1 đơn vị = 6
Hướng dẫn :
Hàng đơn vị =số dư của số nhập khi chia cho 10
Hàng trăm = kết quả của phép chia nguyên giữa số nhập và 100
Hàng chục= số dư của số nhập khi chia cho 100, chia tiếp số dư này cho 10 lấy kết quả số nguyên
Thể hiện bằng các câu lệnh pascal
Hàng đơn vị = so mod 10
Hàng trăm = so div 100
Hàng chục = (so mod 100) div 10
Các lệnh chính của chương trình
repeat
write(`nhap so : `);readln(so);
if so >=1000 then writeln(`nhap lai so nho hon 1000`);
until so <1000;
tram:= so div 100;
donvi:= so mod 10;
chuc:=(so mod 100) div 10;
writeln(so:5,` co don vi,chuc,tram la ’,donvi:3,chuc:3,tram:3);
2)Viết chương trình nhập 1 số nguyên n. Xuất n số nguyên tố từ 1 (không tính số 1).
Vd nhập 7 xuất 2 3 7 9 11 13 17
Hướng dẫn :
Dùng vòng lặp repeat … until để xuất các số nguyên tố cho đến khi nào số lượng số nguyên tố lớn hơn hay bằng n thì ngưng xuất.
Cách xác định số nguyên tố đã biết trong bài tập trước.
Các lệnh chính của chương trình
writeln(so,` so nguyen to tu 1 la `);
n:=2;dem:= 0;
repeat
i:=2;
while n mod i<>0 do i:= i + 1 ;
if n=i then
begin
write(n:5); dem:= dem + 1 ;
end;
n:= n + 1 ;
until dem >=n;
Bài tập về nhà
Viết chương trình nhập 2 số a và b (a < b). Xuất các số nguyên tố từ a đến b
Viết chương trình nhập các hệ số a, b của phương trình bậc nhất có dạng ax + b = 0.
Tính các nghiệm của phương trình