Nếu bạn là một YouTuber chuyên nghiệp thì bạn sẽ phải luôn đối mặt với tình trạng hết dung lượng ổ đĩa do làm việc với nhiều file video chất lượng cao. Điển hình là tôi đây, thường hay gặp phải lỗi này " Not enough free space on disk " do quá tải các file cache của phần mềm biên tập video gây ra. Tôi đã có cách nhanh để khắc phục vấn đề này! Lỗi tiêu hao dung lượng ổ đĩa trong máy tính thường do các phần mềm biên tập ảnh, video chất lượng cao... gây nên, chính vì thế một khi chúng ta thấy ổ đĩa đầy lên bất thường mà trước đó không cài đặt bất cứ phần mềm nào thì hãy dùng cách khắc phục sau nhé! Bước 1 : Truy cập đến thư mục lưu các file tạm của phần mềm biên tập, chẳng hạn như AVSVideoEditor . C:\Users\Administrator\Appdata\Roaming\AVS4YOU\AVSVideoEditor\Temp Bước 2 : Tiến hành xóa các thư mục chứa file video tạm của phần mềm biên tập video là coi như xong!
Trong bài viết sau đây sẽ chia sẻ đến bạn tổng hợp các bài tập cơ bản lập trình trên phần mền Turbo Pascal. Hy vọng, nó sẽ giúp ích cho bạn khi mới bắt đầu làm quen với ngôn ngữ lập trình cơ bản. Các bài tập tổng hợp bao gồm: các lệnh nhập xuất đơn giản, các câu lệnh điều khiển, dữ liệu kiểu mảng, chương trình con ... Phần tiếp theo.
11. Viết chương trình thực hiện phép chia số a cho số b, với điều kiện b <> 0 và a, b được nhập từ bàn phím.
Var a, b: integer;
Begin
Write ('Nhap 2 so a, b: ');
Readln (a, b);
If b <> 0 then write ('Thuong cua 2 so la: ', a/b : 5 : 2);
Readln;
End.
12. Viết chương trình thực hiện phép chia số a cho số b, nếu b <> 0 thì in kết quả, ngược lại, in câu thông báo "không chia được", với a, b được nhập từ bàn phím.
Var a, b: integer;
Begin
Write ('Nhap 2 so a, b: ');
Readln (a, b);
If b <> 0 then write ('Thuong cua 2 so la: ', a/b : 5 : 2)
Else write ('Khong chia duoc');
Readln;
End.
13. Viết chương trình giải phương trình bậc 2: ax2 + bx + c = 0.
Var a, b, c: integer; del: longint;
Begin
Write ('Nhap 3 he so a, b, c: ');
Readln (a, b, c);
del := sqr (b) - 4 * a * c;
If del < 0 then write ('Phuong trinh vo nghiem')
Else
If del = 0 then write ('PT co nghiem kep = ', -b/(2*a) : 6 : 2)
Else
Begin
Writeln ('PT co 2 nghiem phan biet: ');
Writeln ('x1 = ', (-b + sqrt (del))/2 * a) : 6 : 2);
Writeln ('x2 = ', (-b - sqrt (del))/2 * a) : 6 : 2);
End;
Readln;
End.
14. Viết chương trình nhập vào số tháng của 1 năm nào đó rồi cho biết tháng đó có bao nhiêu ngày. Nếu tháng nhập vào là 2 thì phải yêu cầu nhập tiếp năm nào để trả lời được số ngày của tháng đó.
Var th, nam, ng: integer;
Begin
Write ('Nhap vao thang nao: ');
Readln (th);
Case th of
1, 3, 5, 7, 8, 10, 12: ng := 31;
4, 6, 9, 11: ng := 30;
2:
Begin
Write ('Cho biet nam nao: ');
Readln (nam);
If nam mod 4 = 0 then ng := 29
Else ng := 28;
End;
End;
Write ('Thang vua nhap co ', ng, 'ngay');
Readln;
End.
15. Viết chương trình nhập vào số tháng của 1 năm nào đó rồi cho biết tháng đó có bao nhiêu ngày. Nếu tháng nhập vào là 2 thì phải yêu cầu nhập tiếp năm nào để trả lời được số ngày của tháng đó.
Var th, nam, ng: integer;
Begin
Write ('Nhap vao thang nao: ');
Readln (th);
Case th of
4, 6, 9, 11: ng := 30;
2:
Begin
Write ('Cho biet nam nao: ');
Readln (nam);
If nam mod 4 = 0 then ng := 29
Else ng := 28;
End
Else ng := 31;
End;
Write ('Thang vua nhap co ', ng, 'ngay');
Readln;
End.
16. Viết chương trình tính tổng N số nguyên dương đầu tiên, với N được nhập từ bàn phím.
Var n, i: integer;
s: longint;
Begin
Write ('Nhap n = ');
Readln (n);
s : = 0;
For i := 1 to n do
s := s + i;
Write ('Tong ', n, 'so nguyen duong dau tien la: ', s);
Readln;
End.
17. Viết chương trình tính tổng S = S + 1/i.
Var n, i: integer;
s: real;
Begin
Write ('Nhap n = ');
Readln (n);
s := 0;
For i := 1 to n do
s := s + 1/i;
Write ('Tong la: ', s : 6 : 4);
Readln;
End.
18. Viết chương trình in ra tất cả các ước số của số nguyên dương N theo thứ tự giảm dần.
Var n, i: integer;
Begin
Write ('Nhap vao so nguyen duong n = ');
Readln (n);
For i := n downto 1 do
If n mod i = 0 then Write (i : 6);
Readln;
End.
19. Viết chương trình nhập vào số nguyên dương N, in ra ước số lớn nhất của số N (khác N).
Var n, i: integer;
Begin
Write ('Nhap so n = ');
Readln (n);
i := n - 1;
While n mod i <> 0 do
i := i - 1;
Writeln ('Uoc so lon nhat cua so ', n, 'la: ', i);
Readln;
End.
20. Viết chương trình nhập vào số nguyên dương N. Kiểm tra xem N có phải số nguyên tố không?
Var n, i: integer;
Begin
Write ('Nhap so n = ');
Readln (n);
i := 2;
While n mod i <> 0 do
i := i + 1;
If i = n then write (n, ' la so nguyen to')
Else write (n, ' la hop so');
Readln;
End.
Chúc bạn thành công!
Nhận xét
Đăng nhận xét