Viết chương trình tính giá trị của biểu thức y =a/b (a,b nguyên)

0 bình luận về “Viết chương trình tính giá trị của biểu thức y =a/b (a,b nguyên)”

1. Program tinhgiatri;
   uses crt;
   var a,b : integer;
   y : real;
   begin clrscr;
   write(‘Nhap so a=’); readln(a);
   write(‘Nhap so b=’); readln(b);
   y:=a/b;
   Write(‘Gia tri cua bieu thuc : y=’, y);
   readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var a,b: longint;
       y: real;
   begin
       clrscr;
       write(‘Nhap gia tri a: ‘); readln(a);
       write(‘Nhap gia tri b: ‘); readln(b);
       y:=a/b;
       writeln(‘Gia tri cua bieu thuc y=a/b: ‘,y:0:3);
       readln;
   end.

   Bình luận