Câu 1:

In: Số nguyên n.

Out: Số nguyên n là số chẵn hay lẻ.

MTTT:

B1: Nếu n mod 2 = 0 thì thông báo 'n la so chan' ngược lại thông báo 'n la so le'

B2: KTTT

VCT:

program ctpt;

uses crt;

  var n: integer;

begin

         clrscr;

         write('Nhap so nguyen n = '); readln(n);

         if n mod 2 = 0 then write(n, ' la so chan') else write(n, ' la so le');

         readln

end.

Câu 2:

In: Chiều dài (a), chiều rộng (b)

Out: Chu vi (C), diện tích (S)

MTTT:

B1: C←(a+b)*2

B2: S←a*b

B3: Thông báo C, S và KTTT

VCT

program ctpt;

uses crt;

  var a, b, C, S: real;

begin

           clrscr;

           write('Nhap chieu dai a = '); readln(a);

           write('Nhap chieu rong b = '); readln(b);

           C:=(a+b)*2;

           S:=a*b;

           writeln('Chu vi hinh chu nhat la: ', C:2:1);

           writeln('Dien tich hinh chu nhat la: ', S:2:1);

           readln

end.

Câu 3:

In: Số nguyên a.

Out: Số nguyên a là số dương hay âm.

MTTT:

B1: Nếu a>0 thì thông báo 'a la so duong' ngược lại nếu a<0 thì thông báo 'a la so am' ngược lại thì thông báo 'a khong la so duong hay am'

B2: KTTT.

VCT:

progra ctpt;

uses crt;

  var: a: integer;

begin

          clrscr;

          write('Nhap so nguyen a = '); readln(a);

          if a>0 then write(a, ' la so duong') else

                       if a<0 then write(a, ' la so am') else

                                        write(a, ' khong la so duong hay am');

          readln

end.

Câu 1: 

Input: Số n

Output: Số n chẵn hay lẽ

Thuật toán:

Bước 1: Nhập n

Bước 2: 

2.1: Nếu n mod 2 = 0 thì thông báo chẵn và thực hiện bước 3

2.2: Nếu n mod 2 <> 0 thì thông báo lẻ và thực hiện bước 3

Bước 3: Kết thúc chương trình

Chương trình:

Program NN;
Uses crt;
Var n: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        If n mod 2 = 0 then Write('Chan')
        Else Write('Le');
        Readln
End.

Câu 2:

Input: Chiều dài, chiều rộng của HCN

Output: Chu vi và diện tích HCN

Thuật toán:

Bước 1: Nhập cd, cr

Bước 2:

2.1: s<-cd*cr;

2.2: p<-(cd+cr)*2;

Bước 3: Xuất cd và cr ra màn hình

Chương trình:

Program NN;
Uses crt;
Var cr,cd,s,p: real;
Begin
        Clrscr;
        Write('Nhap chieu dai va chieu rong: '); Readln(cd,cr);
        s:=cd*cr;
        p:=(cd+cr)*2;
        Writeln('S = ',s:0:2);
        Write('P = ',p:0:2);
        Readln
End.

Câu 3:

Input: Số n

Output: Số n âm hay dương

Thuật toán:

Bước 1: Nhập n

Bước 2: 

2.1: Nếu n > 0 thì thông báo dương và thực hiện bước 3

2.2: Nếu n < 0 thì thông báo âm và thực hiện bước 3

3.3: Nếu n = 0 thì thông báo không âm không dương và thực hiện bước 3

Bước 3: Kết thúc chương trình

Chương trình:

Program NN;
Uses crt;
Var n: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        If n > 0 then Write('Duong')
        Else If n < 0 then Write('Am');

        Else Write('Khong am khong duong');
        Readln
End.