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 A(xA ; yA) B(xB ; yB) (PASCAL) ai giỏi pascal giúp mình với
2 câu trả lờ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.
`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à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.
