Bài 1. Viết thuật toán tính diện tích (S) của tam giác khi biết chiều cao (h) và cạch đáy (a).

program baigiai;
uses crt;
var a,b,c,h:longint;dt:real;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  write('c=');readln(c);
  write('h=');readln(h);
  dt:=1;
  if(a+b>=c)and(a+c>=b)and(c+b>=a)then
        begin
         dt:=a*h/2;
         write('dien tich hinh tam giac do la:',dt);
        end else write('ba canh ko phai la hinh tam giac');
 readln;
end.

Bài 2. Cho 3 số a, b, c (khác nhau). Viết thuật toán tìm số lớn nhất trong 3 số đó.

program baigiai;
uses crt;
var a,b,c,max,i:longint;d:array[1..3]of longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  write('c=');readln(c);
  d[1]:=a;
  d[2]:=b;
  d[3]:=c;
  max:=d[1];
  for i:=2 to 3 do if(max<d[i])then max:=d[i];
  write('max=',max);
 readln;
end.

đây nhá bạn

Bài 1:

B1: Nhập chiều cao h và cạnh đáy a.

B2: s←a*h/2;

B3: Xuất s.

Bài 2:

B1: Nhập 3 số a,b,c.

B2: max←a;

B3: Nếu b>max thì max←b;

B4: Nếu c>max thì max←c;

B5: Xuất max.