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

 
iPhone 5 sẽ ra mắt trong tháng 6/2012

iPhone 5 sẽ ra mắt trong tháng 6/2012

Apple sẽ đưa việc công bố chiếc iPhone của mình trở lại lịch trình thông thường vào tháng 6, theo thông tin từ một tờ báo tiếng Trung.

Chính phủ Mỹ "sờ gáy" Facebook vì vấn đề bảo mật

Chính phủ Mỹ sờ gáy Facebook vì vấn đề bảo mật

Facebook đang phải tiến hành những cuộc đàm phán với chính phủ Mỹ về việc sử dụng thông tin cá nhân người dùng trên mạng xã nội này. Theo thông tin nội bộ, chính phủ yêu cầu Facebook phải nhận được sự đồng ý của người sử dụng trước khi hãng thay đổi những điều khoản quan trọng trong chính sách bảo mật. Điều đó có nghĩa việc người dùng cho phép chia sẻ thông tin của mình là một chuyện, việc Facebook sử dụng thông tin đó như thế nào lại là một chuyện khác.

Hướng dẫn tạo 1 Drupal 8 block năm 2015

Hướng dẫn tạo 1 Drupal 8 block năm 2015

We will generate a block that will allow us to display a welcome text and the name of the user logged in. Execute the following command

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

 

Diet con trung