a) Thuật toán: ((s1/t1)+(s2/t2))/2

b)

uses crt;
var A:array[1..100] of integer;
i,n,t1,t2:integer;
s1,s2:real;
begin
clrscr;
write('Nhap quang duong le di den truong: '); readln(s1);
write('Nhap quang thoi gian Le di den truong: '); readln(t1);
write('Nhap quang duong An di den truong: '); readln(s2);
write('Nhap quang thoi gian An di den truong: '); readln(t2);
write('Trung binh cong van toc cua 2 ban An va Le la: ',((s1/t1)+(s2/t2))/2:0:0);
readln
end.

a) Viết thuật toán :

+ Bước 1 : S1 ← 700, T1 ← 15 * 60

+ Bước 2 : S2 ← 900, T2 ← 14 * 60

+ Bước 3 : V1 ← S1 / T1

+ Bước 4 : V2 ← S2 /T2

+ Bước 5 : Đưa ra giá trị (V1 + V2) / 2 

+ Bươc 6 : Kết thúc

1. b) Viết chương trình

uses crt;

var S1, S2, T1, T2 : integer;

    V1, V2 : real;

begin

    clrscr;

    S1 := 200; T1 := 15 * 60;

    S2 := 900; T2 := 14 * 60;

    V1 := S1 / T1;

    V2 := S2 / T2;

    write('Trung binh cong van toc = ', (V1 + V2) / 2 : 2 : 2, ' m/s');

    readln

end.