1 xác định bài toán:

input: vận tốc(v), thời giân chuyển động(h);

output: quảng đường con tàu đó đi là(km):

2 thuật toán:

B1: nhập v, h;

B2: km<--v*h;

B3: xuất km;

3 viết chương trình:

program bai_giai;

uses crt;

var v,h,km:longint;

begin

clrscr;

write('nhap van toc:');readln(v);

write('nhap thoi gian:');readln(h);

km:=v*h;

write('quang duong con tau do di la:',km);

readln

end.

1. Xác định bài toán

   Input: Thời gian đoàn tàu chuyển động, vận tốc trung bình của đoàn tàu

   Output: Quãng đường tàu đi được

2. Thuật toán

   1. Nhập: h

       Nhập: v

   2. Tính: s `←` v*h

   3. Xuất: s

3. Viết chương trình

Uses crt;
Var 
    s,v,h: LongInt;
Begin
    clrscr;
    write('Nhap thoi gian chuyen dong (h): '); readln(h);
    write('Nhap van toc (km/h): '); readln(v);
    s:=v*h;
    writeln('Doan tau da di duoc quang duong dai ',s,'km');
    readln;
End.