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 - P2.
21. Viết chương trình nhập vào lần lượt các số nguyên, quá trình nhập kết thúc khi nhập số nguyên là 0. Sau đó cho biết tổng các số nguyên đã nhập là bao nhiêu?
Var n, s: integer;
Begin
s := 0;
Repeat
Write ('Nhap vao 1 so nguyen bat ky: ');
Readln (n);
If n <> 0 then s := s + n;
Until n = 0;
Write ('Tong cac so nguyen da nhap la: ', s);
Readln;
End.
22. Viết chương trình nhập vào số nguyên dương N, kiểm tra xem N có phải là số nguyên tố không?
Var n, i: integer;
Begin
Write ('Nhap so n = ');
Readln (n);
i := 1;
Repeat
i := i + 1;
Until (n mod i = 0) or (i = n);
If i = n then write (n, ' la so nguyen to')
Else write (n, ' la hop so');
Readln;
End.
23. Viết chương trình tính n!, với n >= 0 và được nhập từ bàn phím.
Uses crt;
Var n, i: integer;
gt: longint; tt: char;
Begin
Repeat
clrscr;
Repeat
Write ('Nhap n = ');
Readln (n);
Until n >= 0;
gt := 1;
For i := 2 to n do
gt := gt * i;
Writeln (n, '!= ', gt);
Writeln ('Ban muon tiep tuc khong?');
Readln (tt);
Until (tt = 'k') or (tt = 'k');
Readln;
End.
24. Viết chương trình nhập vào 1 số thực. Tính và in ra căn bậc hai của nó.
Label tinh, ketthuc;
Var n, kq: real;
Begin
Write ('Nhap n = ');
Readln (n);
If n >= 0 then goto tinh;
Writeln ('Khong tinh duoc vi so n am');
Goto ketthuc;
tinh:
kq := sqrt (n);
Write ('Can bac hai cua so n = ', kq : 0 : 6);
Ketthuc:
readln;
End.
25. Viết lại chương trình bài 22 bằng lệnh nhảy goto:
Label lap;
Var n, i: integer;
Begin
Write ('Nhap so n = ');
Readln (n);
i := 1;
Lap: i := i + 1;
If (n mod i <> 0) and (i < n) then goto lap;
If i = n then write (n, ' la so nguyen to')
Else write (n, 'la hop so');
Readln;
End.
26. Viết chương trình nhập vào 4 số nguyên. Cho biết số lớn nhất và nhỏ nhất trong 4 số đó.
Program so_nguyen;
Uses crt;
Var a, b, c, d, max1, max2, min1, min2: integer;
Begin
Clrscr;
Write ('Nhap a, b, c, d: ');
Readln (a, b, c, d);
If a > b then
Begin
min1 := b; max1 := a;
End
Else
Begin
min1 := a; max1 := b;
End;
If c > d then
Begin
min2 := d; max2 := c;
End
Else
Begin
min2 := c; max2 := d;
End;
If min1 < min2 then writeln ('So nho nhat la: ', min1)
Else writeln ('So nho nhat la: ', min2);
If max2 > max2 then writeln ('So lon nhat la: ', max1)
Else writeln ('So lon nhat la: ', max2);
Readln;
End.
27. Viết chương trình nhập vào điểm trung bình cho 1 sinh viên. Cho biết sinh viên đó được xếp loại gì?
Program sinh_vien;
Uses crt;
Var dtb: real;
Begin
Clrscr;
Write ('Nhap diem trung binh: ');
Readln (dtb);
If dtb >= 8 then write ('Gioi')
Else
If dtb >= 6.5 then write ('Kha')
Else
If dtb >= 5 then write ('TB')
Else write ('Yeu');
Readln;
End.
28. Viết chương trình nhập vào điểm cơ bản (dcb) và điểm nâng cao (dnc) cho 1 học viên. Cho biết học viên này được xếp loại gì, với cách xếp loại dựa vào điểm trung bình (dtb) như sau:
- Nếu dtb > 9 và không có điểm nào dưới 8 thì được xếp loại xuất sắc.
- Nếu dtb > 8 và không có điểm nào dưới 7 thì được xếp loại giỏi.
- Nếu dtb > 7 và không có điểm nào dưới 6 thì được xếp loại khá.
- Nếu dtb > 5 và không có điểm nào dưới 5 thì được xếp loại trung bình.
- Còn lại thì ghi không đạt.
Program diem;
Uses crt;
Var dcb, dnc, dtb: integer;
Begin
Clrscr;
Write ('Nhap dcb, dnc: ');
Readln (dcb, dnc);
dtb := (dcb + dnc)/2;
If dtb >= 9 then write ('Xuat sac')
Else
If dtb >= 8 then write ('Gioi')
Else
If dtb >= 7 then write ('Kha')
Else
if dtb >= 5 then write ('TB')
Else write ('Khong dat');
Readln;
End.
29. Viết chương trình làm việc như 1 máy tính bỏ túi.
- Nhập vào 2 số.
- Hỏi toán tử +, -, * hay /, tương ứng in ra tổng, hiệu, tích, thương.
- Nếu không phải là các toán tử trên thì kết thúc chương trình.
Program bt;
Uses crt;
Var a, b: real; pt: char;
Begin
Clrscr;
Write ('Nhap a, b: ');
Readln (a, b);
Write ('Nhap phep toan: ');
Readln (pt);
If pt = '+' then write ('a + b = ', a + b)
Else
If pt = '-' then write ('a - b = ', a - b)
Else
If pt = '*' then write ('a * b = ', a * b)
Else
If pt = '/' then write ('a / b = ', a/b)
Else write ('Khong xet');
Readln;
End.
30. Viết chương trình tính tích N số nguyên dương đầu tiên, với N được nhập từ bàn phím.
Uses crt;
Var n, i: integer;
t: longint;
Begin
Clrscr;
Write ('Nhap n = ');
Readln (n);
t := 0;
For i := 1 to n do
t := t * i;
Write ('Tich = ', t);
Readln;
End.
Chúc bạn thành công!
Nhận xét
Đăng nhận xét