viết chương trình nhập vào vận tốc(đơn vị là m/s)+quãng đường(đơn vị là m)=–> tính thời gian(đơn vị là s)

0 bình luận về “viết chương trình nhập vào vận tốc(đơn vị là m/s)+quãng đường(đơn vị là m)=–> tính thời gian(đơn vị là s)”

1. uses crt;
   var v, t, s, A: integer;
   begin
   clrscr;
   write (‘nhap van toc <m/s> : ‘);
   readln (v);
   write (‘nhap quang duong <m> : ‘);
   readln (s);
   t:=0;
   writeln (‘v la: ‘,v);
   writeln (‘s la: ‘,s);
   while t<s/v do
   begin
   t:=t+1;
   end;
   write (‘thoi gian la <s> : ‘,t);
   write (‘ s’);
   readln;
   end.

   Bình luận

2. var s,v,t:real;

   begin

    writeln(‘nhap van toc va quang duong’);readln(v,s);

    t:=s/v;

    writeln(‘thoi gian la la:’,t);

    readln;

   end.

   Bình luận