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

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.