Tin học Pascal

[cỏ phong sương]

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

1)lập ct in ra màn hình pt
ax+by+c=0
Với a,b,c là số nguyên nhập từ bàn phím
2)nhập từ bàn phím giá trị 2 biến x,y. Không dùng thêm biến thứ 3 hãy tráo đổi giá trị 2 biến x và y cho nhau

Em ms hk nên chưa bt gì. Mong mn giúp đỡ
Thanks trước nha

 

[kingsman(lht 2k2)]

1)lập ct in ra màn hình pt
ax+by+c=0
Với a,b,c là số nguyên nhập từ bàn phím
2)nhập từ bàn phím giá trị 2 biến x,y. Không dùng thêm biến thứ 3 hãy tráo đổi giá trị 2 biến x và y cho nhau

Em ms hk nên chưa bt gì. Mong mn giúp đỡ
Thanks trước nha

var
a,b,c:integer;
x,y: byte;
begin
write('Nhap gia tri a=');readln(a);
write('Nhap gia tri b=');readln(b);
write('Nhap gia tri c=');readln(c);
write('Nhap gia tri x= ');
readln(x);
write('Nhap gia tri y= ');
readln(y);
writeln('Gia tri ban dau: x= ',x,'; y=',y);
x:= x+ y;
y:= x - y;
x:= x - y;
writeln('Gia tri sau khi hoan chuyen: x= ',x,'; y=',y);
readln
end.

 

[BhofA]

var
a,b,c:integer;
x,y: byte;
begin
write('Nhap gia tri a=');readln(a);
write('Nhap gia tri b=');readln(b);
write('Nhap gia tri c=');readln(c);
write('Nhap gia tri x= ');
readln(x);
write('Nhap gia tri y= ');
readln(y);
writeln('Gia tri ban dau: x= ',x,'; y=',y);
x:= x+ y;
y:= x - y;
x:= x - y;
writeln('Gia tri sau khi hoan chuyen: x= ',x,'; y=',y);
readln
end.

anh quên in ra màn hình pt kìa @@

 

[kingsman(lht 2k2)]

anh quên in ra màn hình pt kìa @@

anh cũng định ghi lại rồi ,,,mà quên mất
chắc đoạn in bạn @cỏ phong sương làm dc

 

[cỏ phong sương]

var
a,b,c:integer;
x,y: byte;
begin
write('Nhap gia tri a=');readln(a);
write('Nhap gia tri b=');readln(b);
write('Nhap gia tri c=');readln(c);
write('Nhap gia tri x= ');
readln(x);
write('Nhap gia tri y= ');
readln(y);
writeln('Gia tri ban dau: x= ',x,'; y=',y);
x:= x+ y;
y:= x - y;
x:= x - y;
writeln('Gia tri sau khi hoan chuyen: x= ',x,'; y=',y);
readln
end.

Mk ko hiểu đoạn cuối lắm @kingsman(lht 2k2)

 

[kingsman(lht 2k2)]

Mk ko hiểu đoạn cuối lắm @kingsman(lht 2k2)

thuật toán đoạn cuối có tên là
Trao đổi giá trị của 2 biến x và y không dùng biến trung gian :
luận từ thuật toán dùng biến trung gian xong suy ra cách ngược lại
B0 Bắt đầu
B1 Nhập giá trị cho x và y
B2 Biến tam lấy giá trị của x( Gọi là gán giá trị x cho tam , viết tam := x )
B3 x lấy giá trị của y ( Gọi là gán giá trị y cho x , viết x:= y )
B4 y lấy giá trị của tam ( Gọi là gán giá trị tam cho y , viết y := tam )
B5 Thông báo kết quả
B6 Kết thúc

 

[kingsman(lht 2k2)]

Mk ko hiểu đoạn cuối lắm @kingsman(lht 2k2)

the end bạn in ax+by+c=0
ra cái này dễ bạn làm dc nhỉ

 

[Nguyễn Thành Trung A2K52]

giải hộ mình bài này với , mình cần gấp:
viết chương trình 1/a +1/(a*(a+1)) +....+1/(a*(a+1)*...*(a+N))

 

[cỏ phong sương]

giải hộ mình bài này với , mình cần gấp:
viết chương trình 1/a +1/(a*(a+1)) +....+1/(a*(a+1)*...*(a+N))

Bn nhấn vào ô đăng chủ đề mới ở góc phải để đăng bài í