Bài 5. Từ bài toán đến chương trình

B1: t←0; i←0;

B2: i←i+1;

B3: nếu i mod 2=0 thì t←t+i;

B4: Nếu i<=100 thì quay lại bước 2

Bước 5: Xuất t 

Bước 6: kết thúc

INput: a,b

Output: So sánh a,b

Mô tả thuật toán:

Bước 1: Nhập a,b

Bước 2: Nếu a>b thì xuất a lớn hơn b

nếu a<b thì xuất a nhỏ hơn b

Nếu a=b thì xuất a=b

B3: kết thúc

Thuật toán:

B1. Nhập ba số dương a,b,c

B2. Nếu a+b>c và b+c>a và c+a>b thì in ra màn hình a,b,c là ba cạnh của tam giác. Ngược lại in ra a,b,c không là ba cạnh của tam giác.

B3. Kết thúc.

Chương trình:

var a,b,c: real;

begin

writeln('Nhap ba canh lan luot: '); read(a,b,c);

if (a<0) or (b<0) or (c<0) then

repeat

writeln('Khong hop le. Nhap lai ba canh lan luot: '); read(a,b,c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (b+c>a) and (c+a>b) then writeln('Ba so nay la do dai ba canh tam giac') else writeln('Ba so nay khong la ba canh cua tam giac');

end.

program hinhvuong;

var a,cv,dt:real;

begin

realn(a);

cv:=a*4;

dt:=a*a;

writeln(chu vi la:', cv:2:2);

writeln(dien tich la:', dt:2:2);

readln;

end.

program Hinh_Chu_Nhat;

uses crt;

var a,b,dt: integer;

begin

readln(a);

readln(b);

dt:=(a*b);

writeln(‘Dien tich la:’,dt);

readln

end.

program hinhtamgiac;

var a,b,c,cv,dt:real;

readln(a);

readln(b);

readln(c);

if (a+b<=c) or (a+c<=b) or c+b<=a) then

writeln('ko la 3 canh cua 1 tam giac') else

begin

writeln('la 3 canh cua 1 tam giac);

p:=(a+b+c)/2;

cv:=p*2;

dt:=sqrt(p*(p-a)*(pc-));

writeln('chu vi la:', cv:2:2);

writeln(dien tich la:', dt:2:2);

readln;

end.

A) 2*(5 + b) > 3*(a + b)

B) 23*y*y + 20*y + 10