1.Viết chương trình tính biểu thức: T= Ax + By + Cz; với a , b ,c là số nguyên , x y z là số thực 2. Viết chương trình tính độ dài đoạn thẳng AB với

0 bình luận về “1.Viết chương trình tính biểu thức: T= Ax + By + Cz; với a , b ,c là số nguyên , x y z là số thực 2. Viết chương trình tính độ dài đoạn thẳng AB với”

1. Bài 1:

   program Bai1;
   uses crt;
   var a,b,c:integer;
       x,y,z:real;
   BEGIN
       clrscr;
       write(‘Nhap vao a: ‘); readln(a);
       write(‘Nhap vao b: ‘); readln(b);
       write(‘Nhap vao c: ‘); readln(c);
       write(‘Nhap vao x: ‘); readln(x);
       write(‘Nhap vao y: ‘); readln(y);
       write(‘Nhap vao z: ‘); readln(z);
       write(‘Ket qua: ‘,a*x+b*y+c*z:1:5);
       readln;
   END.

   Bài 2:
   program Bai2;
   uses crt;
   var ax,ay,bx,by:real;
   BEGIN
       clrscr;
       write(‘Nhap vao hoanh do diem a: ‘); readln(ax);
       write(‘Nhap vao tung do diem a: ‘); readln(ay);
       write(‘Nhap vao hoanh do diem b: ‘); readln(bx);
       write(‘Nhap vao tung do diem b: ‘); readln(by);
       write(‘Ket qua: ‘,sqrt(((bx – ax)*(bx – ax))+((by – ay)*(by – ay))):1:7);
       readln;
   END.

   Bình luận

2. `1,`

   program Bai1;
   uses crt;
   var a,b,c:integer;
       x,y,z:real;
   BEGIN
       clrscr;
       write(‘Nhap vao a: ‘); readln(a);
       write(‘Nhap vao b: ‘); readln(b);
       write(‘Nhap vao c: ‘); readln(c);
       write(‘Nhap vao x: ‘); readln(x);
       write(‘Nhap vao y: ‘); readln(y);
       write(‘Nhap vao z: ‘); readln(z);
       write(‘Ket qua: ‘,a*x+b*y+c*z:1:5);
       readln;
   END.

   `2,`

   program Bai2;
   uses crt;
   var ax,ay,bx,by:real;
   BEGIN
       clrscr;
       write(‘Nhap vao hoanh do diem a: ‘); readln(ax);
       write(‘Nhap vao tung do diem a: ‘); readln(ay);
       write(‘Nhap vao hoanh do diem b: ‘); readln(bx);
       write(‘Nhap vao tung do diem b: ‘); readln(by);
       write(‘Ket qua: ‘,sqrt(((bx – ax)*(bx – ax))+((by – ay)*(by – ay))):1:7);
       readln;
   End.

   Bình luận