Pascal - Viết CT cho phép nhập hai số vào hai biến, đổi giá trị của hai biến cho nhau

Pascal - Viết CT cho phép nhập hai số vào hai biến, đổi giá trị của hai biến cho nhau

Viết chương trình cho phép nhập hai số vào hai biến, thực hiện đổi giá trị của hai biến cho nhau. Yêu cầu dùng chương trình con để thực hiện chức năng đổi giá trị.

Mã chương trình

Program CTC_1;

uses crt;

var a,b: real;

{----CTC doi gia tri----}

Procedure swap(var x,y:real);

var tam:real;

begin

tam:=x; x:=y; y:=tam;

end;

{-----Ket thuc CTC-----}

begin

clrscr;

write('Nhap so a: ');readln(a);

write('Nhap so b: ');readln(b);

swap(a,b);

write('Sau khi doi a =',a:3:1);

write('Sau khi doi b =',b:3:1);

readln

end.

Nhận xét:

- Nếu bỏ từ var ở khai báo var x,y:real thì chương trình vẫn không báo lỗi nhưng chức năng đổi giá trị của hai biến không thực hiện được.

 

Bạn thấy bài viết này như thế nào?: 
Average: 8 (70 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Sử dụng Field Collection để dễ dàng Re-use Drupal Fields

Sử dụng Field Collection để dễ dàng Re-use Drupal Fields

As with so many of the tutorials we write, this tutorial started as a question in our support forums.

Mang giao diện của iOS vào Windows với iPadian

Mang giao diện của iOS vào Windows với iPadian

Nếu đã sở hữu một chiếc máy tính bảng iPad thì hẳn người dùng không còn xa lạ gì với giao diện tuyệt vời của hệ điều iOS trên thiết bị này.

Điểm mặt ba đối thủ mới của iPad 2

Điểm mặt ba đối thủ mới của iPad 2

Những người sử dụng máy tính bảng sẽ có thêm 3 thiết bị mới để so sánh với iPad 2 trong mùa lễ hội này, trong đó có Asus Eee Pad Transformer, máy tính bảng đầu tiên được trang bị chip lõi tứ Tegra 3 mới nhất của Nvidia.

Công ty diệt chuột T&C

 

Diet con trung