Viết chương trình nhập vào 2 số nguyên bất kì tính tổng hai số nguyên thông báo kết quả ra màn hình
Yêu cầu: Viết chương trình tính tổng, hiệu, tích, thương hai số nguyên a và b.
Program phep_tinh; uses crt; var a,b,tong,hieu,tich:integer; ---> Khai báo biến số nguyên thuong: real; ---> Khai báo thuong là số thực; Begin clrscr; write('Nhap so thu nhat: '); readln(a); write('Nhap so thu hai: '); readln(b); tong:= a + b; hieu:= a - b; tich:= a * b; thuong:= a/b; writeln('Tong cua hai so ',a,' + ',b, ' = ',tong); writeln('Hieu cua hai so ',a,' - ',b, ' = ',hieu); writeln('Tich cua hai so ',a,' * ',b, ' = ',tich); writeln('Thuong cua hai so ',a,' / ',b, ' = ',thuong:4:2); readln; End.
Kết luận: Bài này chúng ta chỉ xét ở mức độ mặt định khi tính thương thì b sẽ khác 0. Sau này khi học điều kiện if - else thì chúng ta sẽ xét đầy đủ trường hợp.
Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.
Viết chương trình tính tổng các số từ 1 đến 100. Viết chương trình tính tổng các số từ 1 đến N.
Viết chương trình tổng các số chẵn từ 1 đến N.
Viết chương trình tính N giai thừa.
Viết chương kiểm tra xem N có phải số nguyên tố hay không.
Viết chương trình ra màn hình các số nguyên tố nhỏ hơn N.
Viết chương trình vẽ ra hình chữ nhật có chiều ngang là W, chiều dọc là H, với W và H là 2 số nguyên nhập từ bàn phím.
Viết chương trình nhập không giới hạn số, kết thúc khi nhập vào số 0.
Viết chương trình tìm số hạng thứ N của dãy Fibonacci: 1 ; 1 ; 2 ; 3 ; 5 ; 8 ; 11 ; . . . {\displaystyle 1;1;2;3;5;8;11;...} Viết chương trình in ra màn hình bảng cửu chương N. Viết chương trình in ra N hàng của tam giác Pascal. Viết chương trình in ra tất cả các ký tự có mã ASCII từ M đến N. Cho 4 chữ số 1, 2, 3 và 4. Có bao nhiêu số có 3 chữ số tạo thành từ 4 chữ số 1, 2, 3, 4 và đó là những số nào, viết chương trình thực hiện yêu cầu trên. Gửi tiết kiệm ngân hàng số tiền X đồng với lãi suất N %/tháng. Để nhận được số tiền ít nhất là B đồng thì phải gửi tối thiểu bao nhiêu tháng. Viết chương trình giải quyết bài toán trên trong trường hợp không tính lãi kép.
viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất. Giup mình với ạ
Viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất. uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui long nhap hai so khac nhau') else if a>b then writeln('so lon nhat la: ',a) else writeln('so lon nhat la: ',b); readln; end. ...Xem tất cả bình luận
uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui long nhap hai so khac nhau') else if a>b then writeln('so lon nhat la: ',a) else writeln('so lon nhat la: ',b); readln; end.
uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui long nhap hai so khac nhau') else if a>b then writeln('so lon nhat la: ',a) else writeln('so lon nhat la: ',b); readln; end.
uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui ***g nhap hai so khac nhau') else if a>b then writeln('so *** nhat la: ',a) else writeln('so *** nhat la: ',b); readln; end.
uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui long nhap hai so khac nhau') else if a>b then writeln('so lon nhat la: ',a) else writeln('so lon nhat la: ',b); readln; end.
Viết chương trình giải ptrinh tìm số lớn nhất trong 3 số nguyên a, b, c ( a,b,c nhập từ bàn phím )
uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui ***g nhap hai so khac nhau') else if a>b then writeln('so *** nhat la: ',a) else writeln('so *** nhat la: ',b); readln; end.
Câu hỏi hot cùng chủ đề
|