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: 6.5 (33 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

 
Alexa

Biện pháp tăng Alexa Rank

Thủ thuật tăng thứ hạng Alexa rất đa dạng. Nhưng về cơ bản Website của bạn cần thiết phải thực hiện những điều đơn giản sau để các cralwer của Alexa chú ý đến website của bạn hơn

Configuration Management cho Developers hoàn toàn mới ở Drupal 8

Configuration Management cho Developers hoàn toàn mới ở Drupal 8

Kyle wrote a great introduction to the new configuration management system in Drupal 8. He demonstrated how end users can leverage this new system to easily migrate site

Samsung sắp ra mắt Chromebook màn hình 2560 x 1600 pixel giá rẻ

Samsung sắp ra mắt Chromebook màn hình 2560 x 1600 pixel giá rẻ

Theo Business Korea, Samsung chuẩn bị phát hành mẫu Chromebook thế hệ mới sử dụng chip Exynos 5 Octa mới với 8 nhân xử lí cùng màn hình độ phân giải lên đến 2560 x 1600 pixel.

Tomdesgin.vn

 

Drupal Services