Bài 1 :

- Input : số nguyên A

- Output : 'số A lớn hơn 10' hoặc 'số A không lớn hơn 10'

- Thuật toán :

+ Bước 1 : nhập số nguyên A

+ Bước 2 : nếu A > 10 thì thông báo A lớn hơn 10

+ Bước 3 : nếu A <= 10 thì thông báo A không lớn hơn 10

+ Bước 4 : kết thúc

- Lập trình :

uses crt;

var A : integer;

begin

clrscr;

write('Nhap so nguyen A : '); 

readln(A);

if A > 10 then writeln('A lon hon 10');

if A <= 10 then writeln('A khong lon hon 10');

readln

end.

Bài 2 :

- Input : số nguyên A

- Output : 'số A là số âm' hoặc 'số A là số dương'

- Thuật toán :

+ Bước 1 : nhập số A

+ Bước 2 : nếu (A <> 0) và (A > 0) thì thông báo A là số dương

+ Bước 3 : nếu (A <> 0) và (A < 0) thì thông báo A là số âm

+ Bước 4 : kết thúc

- Lập trình :

uses crt;

var A : integer;

begin

clrscr;

write('Nhap so A : '); readln(A);

if (A <> 0) and (A > 0) then write('A la so duong');

if (A<> 0) and (A < 0) then write('A la so am');

readln

end.

Bài 3 :

- Input : nhiệt số C

- Output : nhiệt độ F

- Thuật toán : 

+ Bước 1 : nhập nhiệt độ C 

+ Bước 2 : F ← C * 1.8 + 32

+ Bước 3 : đưa ra giá trị F

+ Bước 4 : kết thúc

- Lập trình :

uses crt;

var C, F : real;

begin

clrscr;

write('Nhap nhiet do C : '); readln(C);

F := C * 1.8 + 32;

writeln('Do F = ', F : 2 : 1);

readln

end.

Bài 4 :

- Input : điểm toán, điểm văn

- Output : điểm trung bình

- Thuật toán :

+ Bước 1 : nhập điểm toán (t) và điểm văn (v)

+ Bước 2 : tb ← (t + v) / 2

+ Bước 3 :

+ Bước 3.1 : nếu tb >= 9 thì in 'Học sinh xuất sắc'

+ Bước 3.2 : ngược lại in 'Không phải học sinh xuất sắc'

+ Bước 4 : kết thúc

- Lập trình :

uses crt;

var a, b, tb : real;

begin

clrscr;

write('nhap diem toan va van : ');

readln(a, b);

tb := (a + b) / 2;

if tb >= 9 then writeln('Hoc sinh xuat sac')

else writeln('Khong phai hoc sinh xuat sac');

readln

end.

Bài 1:

INPUT: Giá trị của số nguyên A

OUTPUT: A là số lớn hơn 10 hoặc không lớn hơn 10

THUẬT TOÁN:

Bước 1: Nhập A

Bước 2: Nếu A>10 thì in ra màn hình ' So nguyen A lon hon 10'; ngược lại in ra màn hình ' So nguyen A khong lon hon 10'

Bước 3:Kết thúc thuật toán

LẬP TRÌNH:

Program baitap;

Uses crt;

Var A:longint;

Begin

Clrscr;

Write('A='); Readln(A);

If A>10 then writeln('So nguyen A lon hon 10')

Else writeln('So nguyen A khong lon hon 10');

Readln

End.

Bài 2:

INPUT: Giá trị của số nguyên A

OUTPUT: A là số âm hoặc là số dương

THUẬT TOÁN:

Bước 1: Nhập A

Bước 2: Nếu A<0 thì in ra màn hình ' So nguyen A la so am';

Bước 3: Nếu A>0 thì in ra màn hình ' So nguyen A la so duong';

Bước 4: Nếu A=0 thì in ra màn hình ' A khong la so am cung khong la so duong';

Bước 5:Kết thúc thuật toán

LẬP TRÌNH:

Program baitap;

Uses crt;

Var A:longint;

Begin

Clrscr;

Write('A='); Readln(A);

If A<0 then writeln('So nguyen A la so am');

If A>0 then writeln('So nguyen A la so duong');

If A=0 then writeln('A khong la so am cung khong la so duong');

Readln

End.

Bài 3:

INPUT: Giá trị của C

OUTPUT: Đổi từ độ C sang độ F

THUẬT TOÁN:

Bước 1: Nhập C

Bước 2: F←C*1.8+32;

Bước 3: Xuất C và kết thúc thuật toán

LẬP TRÌNH:

Program baitap;

Uses crt;

Var C,F:real;

Begin

Clrscr;

Write('C='); Readln(C);

F:=C*1.8+32;

Writeln(C:3:1,' do C= ',F:3:1,' do F'); 

Readln

End.

Bài 4:

INPUT: Giá trị của điểm toán(t), văn(v)

OUTPUT: Là học sinh xuất sắc hay không xuất sắc

THUẬT TOÁN:

Bước 1: Nhập t,v

Bước 2: dtb←(t+v)/2

Bước 3: Nếu dtb>=9 thì in ra màn hình 'Hoc sinh xuat sac'; ngược lại in ra màn hình 'Khong phai hoc sinh xuat sac'

Bước 4: Kết thúc thuật toán

LẬP TRÌNH:

Program baitap;

Uses crt;

Var t,v,dtb:real;

Begin

Clrscr;

Write('Diem toan:'); Readln(t);

Write('Diem van:'); Readln(v);

dtb:=(t+v)/2;

If dtb>=9 then writeln('Hoc sinh xuat sac')

Else writeln('Khoi phai hoc sinh xuat sac');

Readln

End.