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

 
Kinh nghiệm sử dụng s3cmd của Amazon SDK

Kinh nghiệm sử dụng s3cmd của Amazon SDK

I already had a script in place to backup the site's files and database dump.

LG Prada 3.0 start selling in UK on february

LG Prada 3.0 start selling in UK on february

We’ve already talked about the LG Prada 3.0‘s quest to the UK. The sexy device has already been announced by few phone retailers, which will offer it either unlocked or with a carrier contract.

Hướng dẫn tạo nút reply facebook đơn giản 1 phút

Hướng dẫn tạo nút reply facebook đơn giản 1 phút

Nhưng chúng ta đã biết lúc trước facebook chỉ cho bật nút reply comment facebook 

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

 

Diet con trung