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

[Nữ thần mặt trời]

[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.

mai kiểm tra rồi cứu mình với!
Viết thuật toán tính T=căn(x-y)

 

[Ray Kevin]

x,y real hay là int vậy bạn ?
P/s: căn đó nữa

 

[Nữ thần mặt trời]

c

x,y real hay là int vậy bạn ?
P/s: căn đó nữa

cô mình ra đề như vậy chứ mình cx k biết

 

[Ray Kevin]

Vậy mình làm theo real nhé:
var x,y:real;
begin
writeln('Nhap x,y:'); readln(x,y);
if x>=y then writeln('T=',sqrt(x-y)) else writeln('Khong ton tai T');
readln;
end;

 

[Deathheart]

Vậy mình làm theo real nhé:
var x,y:real;
begin
writeln('Nhap x,y:'); readln(x,y);
if x>=y then writeln('T=',sqrt(x-y)) else writeln('Khong ton tai T');
readln;
end;

ủa đề là viết thuật toán mà có phải chương trình đâu mà lm v

 

[kietnghia]

B1: Nhập x,y
B2: Nếu x lớn hơn hoặc bằng y thì T <- căn (x-y) rồi đi đến B4.
B3: Thông báo "không tồn tại giá trị T" rồi kết thúc thuật toán.
B4: Đưa ra kết quả T rồi kết thúc thuật toán.

 

[Deathheart]

B1: Nhập x,y
B2: Nếu x lớn hơn hoặc bằng y thì T <- căn (x-y) rồi đi đến B4.
B3: Thông báo "không tồn tại giá trị T" rồi kết thúc thuật toán.
B4: Đưa ra kết quả T rồi kết thúc thuật toán.

đúng òi ^^

 

[kietnghia]

đúng òi ^^

 

[Ray Kevin]

ủa đề là viết thuật toán mà có phải chương trình đâu mà lm v

Cảm ơn đã nhắc nhở ^^
Trước giờ chỉ quen code nên cũng không để ý :v
P/s: Mà toàn gặp đồng hương thế này :v

 

[Deathheart]

Cảm ơn đã nhắc nhở ^^
Trước giờ chỉ quen code nên cũng không để ý :v
P/s: Mà toàn gặp đồng hương thế này :v

e ms lớp 10 thui mà ^^ nên mấy cái này tự khắc bit