$#QLinkVN$

BÀI 1: THUẬT TOÁN:

B1: Nhập vào 3 cạnh a,b,c

B2: Xem xét xem 3 cạnh đó có tạo thành tam giác được hay không

B3: Nếu không tạo được, ghi thành "Đây không phải là 1 tam giác"

B4: Nếu tạo được 1 tam giác, tiếp tục

B5: Nếu có 2 trong 3 cạnh bằng nhau thì in ra màn hình rằng đây là tam giác cân

B6: Nếu không có cặp nào trong 3 cạnh bằng nhau thì in ra màn hình đây không phải là tam giác cân

B7: Kết thúc chương trình

CẤU TRÚC CHƯƠNG TRÌNH

program tam_giac;
uses crt;
var a,b,c:integer;
begin
        clrscr;
        writeln('Nhap canh thu 1 cua tam giac:'); readln(a);
        writeln('Nhap canh thu 2 cua tam giac:'); readln(b);
        writeln('Nhap canh thu 3 cua tam giac:'); readln(c);
        if (a+b>c) and (a+c>b) and(b+c>a) then
        begin
        writeln('Day la tam giac! Tiep tuc tinh toan...'); delay(2000);
        if (a=b) or (a=c) or (b=c) then writeln('Day la tam giac can')
        else writeln('Day khong phai la tam giac can');
        end;
        else writeln('3 canh tren khong the tao thanh 1 tam giac');
        readln;
end.

BÀI 2: THUẬT TOÁN:

B1:

Bước 1: Cho tổng có giá trị tạm là 0;

Bước 2: i ← 1 to 100 

Nếu i mod 2 = 0 thì s ←s+i;

Bước 3: Xuất kết quả ra màn hình.

CHƯƠNG TRÌNH:

program chan;
uses crt;
var i,s: integer;
begin
        clrscr;
        s:=0;
        for i:=1 to 100 do
        if (i mod 2=0) then s:=s+i;
        writeln('Tong cua cac so chan tu 1-100 la: '.s);
        readln;
end.

* Thuật toán 1 :

- Bước 1 : nhập ba số dương a, b, c

- Bước 2 :

- Bước 2.1 : nếu a = b hoặc b = c hoặc a = c thì thông báo ba số dương là cạnh tam giác cân

- Bước 2.2 : ngược lại thông báo ba số dương không phải ba cạnh tam giác cân

- Bước 3 : kết thúc

* Thuật toán 2 :

- Bước 1 : s ← 0; i ← 1;

- Bước 2 : nếu i > 100 thì thông báo tổng s rồi kết thúc

- Bước 3 : nếu i mod 2 = 0 thì s ← s + i;

- Bước 4 : i ← i + 1, quay lại bước 2