Chương Trình đổi Tiền | VN4000 PASCAL

Trang chủ » Viết Chương Trình đổi Tiền Trong Pascal » Chương Trình đổi Tiền | VN4000 PASCAL

Có thể bạn quan tâm

VN4000 PASCAL

Lý thuyết và Bài tập Lập trình Pascal

  • Home
  • About us

In ra các số nguyên tố Tạo bảng số

Chương trình đổi tiền

January 2, 2012

vn4000 Ví dụ và Bài tập lập trình Pascal Leave a comment

Chương trình đổi tiền

Nhập 3 loại tiền và số tiền cần đổi. Hãy tìm tất cả các tổ hợp có được của 3 loại tiền trên cho số tiền vừa nhập.

Program Doi_Tien; Uses crt; Var x,y,z,n,i,j,h,s:longint; Begin Clrscr; Writeln(‘CHUONG TRINH DOI TIEN:’); Write(‘Nhap so tien can doi n = ‘);readln(n); Write(‘Nhap loai tien thu 1: ‘);readln(x); Write(‘Nhap loai tien thu 2: ‘);readln(y); Write(‘Nhap loai tien thu 3: ‘);readln(z); Writeln(‘Loai ‘,x:6,’ Loai ‘,y:6,’ Loai ‘,z:6); For i:=0 to (n div x) do For j:=0 to (n div y) do For h:= 0 to (n div z) do If (i*x+j*y+h*z=n) then Writeln (i:8,j:12,h:10);

Readln;

End.

Share this:

  • Facebook
  • X
Like Loading...

Related

Comments are closed.

In ra các số nguyên tố Tạo bảng số

Tìm kiếm

Bài viết mới

  • Bài 29 FULL SCREEN cho DOSBOX
  • Bài 28 Runtime Error 200
  • Bài 27 Một Số Hàm Số
  • Bài 26 Cấu trúc rẽ nhánh và lựa chọn phần 3
  • Bài 25 Cấu trúc rẽ nhánh và lựa chọn phần 2

Danh mục

  • Lý thuyết lập trình Pascal
  • Ví dụ và Bài tập lập trình Pascal

Blog at WordPress.com.

Privacy & Cookies: This site uses cookies. By continuing to use this website, you agree to their use. To find out more, including how to control cookies, see here: Cookie Policy
  • Reblog
  • Subscribe Subscribed
    • VN4000 PASCAL
      • Sign me up
    • Already have a WordPress.com account? Log in now.
    • VN4000 PASCAL
    • Customize
    • Subscribe Subscribed
    • Sign up
    • Log in
    • Copy shortlink
    • Report this content
    • View post in Reader
    • Manage subscriptions
    • Collapse this bar
%d Design a site like this with WordPress.comGet started

Từ khóa » Viết Chương Trình đổi Tiền Trong Pascal