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.
- Input: Nhập hai số nguyên a và b từ bàn phím
- Output: In ra màn hình tổng, hiệu, tích, thương hai của hai số 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.
Bước 1. Nhập thông tin;
Bước 2. Xử lý:
- Bước 1.1. Nhập số a;
- Bước 1.2. Nhập số b;
Bước 3. Xuất dữ liệu ra màn hình tổng, hiệu, tích, thương.
- Bước 2.1. Tong := a + b;
- Bước 2.2. hieu:= a - b;
- Bước 2.3. tich:= a * b;
- Bước 2.4. thuong:= a/b;
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;...}
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ủ đề
-
hằng là gì ? nêu cú pháp khai báo hằng
Trả lời [16] Xem đáp án »
-
Hỏi từ APP VIETJACK
Đâu là các từ khóa:A.Program,end,beginB.Program,end,begin,Readln,lop8aC.Program,then,mot,hai,bà
D.lop82,uses,begin,end