viết chương trình tính vận tốc khi biết quãng đường và thời gian thời gian khi biết quãng đường và vận tốc

0 bình luận về “viết chương trình tính vận tốc khi biết quãng đường và thời gian thời gian khi biết quãng đường và vận tốc”

1. program VTS;
   uses crt;
   var v, t, s: real;
   var A : integer;
   begin
   clrscr;
    textcolor (green+blink);
    writeln (‘CHAO MUNG BAN DEN VOI CHUONG TRINH TINH TOAN “VTS”‘);
    DELAY (550);
    textcolor (lightblue);
    WRITELN (‘CHON CHUONG TRINH BAN CAN TINH’);
    delay (750);
    textcolor (yellow);
    writeln (‘=> 1.tinh v’);
    writeln (‘=> 2.tinh t’);
    writeln (‘=> 3.tinh s’);
    textcolor (lightred);
    write (‘CHUONG TRINH TINH BAN CHON LA <1, 2, 3> : ‘);
    readln (A);
    Begin
     if A=1 then
      begin
       writeln (”);
       textcolor (lightblue);
       write (‘nhap quang duong <m> : ‘);
       readln (s);
       write (‘nhap thoi gian <s> : ‘);
       readln (t);
       repeat
       v:=v+1;
       until v=s/t;
       textcolor (green);
       write (‘=> van toc la <m/s> : ‘,v:4:2);
       writeln (‘ m/s’);
       readln;
      end;
     if A=2 then
      begin
       writeln (”);
       textcolor (lightblue);
       write (‘nhap van toc <m/s> : ‘);
       readln (v);
       write (‘nhap quang duong <m> : ‘);
       readln (s);
       repeat
       t:=t+1;
       until t=s/v;
       textcolor (green);
       write (‘=> thoi gian la <s> : ‘,t:4:2);
       writeln (‘ s’);
      end;
     if A=3 then
      begin
      writeln (”);
       textcolor (lightblue);
       write (‘nhap van toc <m/s> : ‘);
       readln (v);
       write (‘nhap thoi gian <s> : ‘);
       readln (t);
       repeat
       s:=s+1;
       until s=v*t;
       textcolor (green);
       write (‘=> quang duong la <m> : ‘,s:4:2);
       writeln (‘ m’);
       readln;
      end;
    end;
   end.

   Bình luận

2. program VTS;
   uses crt;
   var v, t, s: real;
   var A : integer;
   begin
   clrscr;
    textcolor (green+blink);
    writeln (‘CHAO MUNG BAN DEN VOI CHUONG TRINH TINH TOAN “VTS”‘);
    DELAY (550);
    textcolor (lightblue);
    WRITELN (‘CHON CHUONG TRINH BAN CAN TINH’);
    delay (750);
    textcolor (yellow);
    writeln (‘=> 1.tinh v’);
    writeln (‘=> 2.tinh t’);
    writeln (‘=> 3.tinh s’);
    textcolor (lightred);
    write (‘CHUONG TRINH TINH BAN CHON LA <1, 2, 3> : ‘);
    readln (A);
    Begin
     if A=1 then
      begin
       writeln (”);
       textcolor (lightblue);
       write (‘nhap quang duong <m> : ‘);
       readln (s);
       write (‘nhap thoi gian <s> : ‘);
       readln (t);
       repeat
       v:=v+1;
       until v=s/t;
       textcolor (green);
       write (‘=> van toc la <m/s> : ‘,v:4:2);
       writeLN (‘ m/s’);
       writeln (‘================== THE END ==================’);
       readln;
      end;
     if A=2 then
      begin
       writeln (”);
       textcolor (lightblue);
       write (‘nhap van toc <m/s> : ‘);
       readln (v);
       write (‘nhap quang duong <m> : ‘);
       readln (s);
       repeat
       t:=t+1;
       until t=s/v;
       textcolor (green);
       write (‘=> thoi gian la <s> : ‘,t:4:2);
       writeLN (‘ s’);
       writeln (‘================== THE END ==================’);
       readln;
      end;
     if A=3 then
      begin
      writeln (”);
       textcolor (lightblue);
       write (‘nhap van toc <m/s> : ‘);
       readln (v);
       write (‘nhap thoi gian <s> : ‘);
       readln (t);
       repeat
       s:=s+1;
       until s=v*t;
       textcolor (green);
       write (‘=> quang duong la <m> : ‘,s:4:2);
       writeLN (‘ m’);
       writeln (‘================== THE END ==================’);
       readln;
      end;
     if A > 3 then
      begin
       textcolor (white);
       writeln (”);
       writeln (‘BAN DA CHON KHONG HOP LE VUI LONG CHON LAI (^_^)’);
       readln;
      end;
    end;
   end.

   Bình luận