Tin học Viết chương trình Pascal

[0983587079]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Giúp mình bài này với
Viết chương trình
Câu 1:Nhập vào số nguyên X1,Y1,X2,Y2.Tính khoảng cách D giữa 2 điểm A(X1;Y1) và B(X2;Y2)
D[tex]\doteq \left ( X2-X1 \right )^{2}+\left ( Y2-Y1 \right )^{2}[/tex]
Câu 2:Nhập vào số nguyên N.Cho biết N có phải là số chính phương hay không.Biết nếu N là số chính phương thì [tex]\sqrt{N}[/tex] sẽ bằng phần nguyên của [tex]\sqrt{N}[/tex]

 

[Mai Hải Đăng]

Câu 1:
program dodai;
uses crt;
var x1,x2,y1,y2,D:real;
begin
clrscr;
write('Nhap toa do diem A(x1;y1): ');readln(x1,y1);
write('Nhap toa do diem B(x2;y2): ');readln(x2,y2);
D:=sqr(x2-x1)+sqr(y2-y1);
write('Do dai doan thang AB= ',D:8:3);
readln
end.

 

[Mai Hải Đăng]

Câu 2:
program SCP;
uses crt;
var x,N:integer;
begin
clrscr;
write('Nhap so nguyen N= ');readln(N);
x:=trunc(sqrt(N));
if sqr(x)=N then write('So ',N,' la so chinh phuong') else write('So ',N,' khong la so chinh phuong');
readln
end.