MỌI NGƯỜI GIÚP MIK VS MIK ĐANG CẦN Cấp Bài tập 1. Viết chương trình nhập 2 số nguyên từ bàn phím. In ra màn hình kết quả phép cộng của 2 số nguyên đó. Bài tập
MỌI NGƯỜI GIÚP MIK VS MIK ĐANG CẦN Cấp Bài tập 1. Viết chương trình nhập 2 số nguyên từ bàn phím. In ra màn hình kết quả phép cộng của 2 số nguyên đó. Bài tập 2. Viết chương trình nhập 2 số nguyên từ bàn phím. In ra màn hình kết quả phép nhân của 2 số nguyên đó. Bài tập 3. Viết chương trình nhập năm sinh của một học sinh là số nguyên. Cho biết bạn đó bao nhiêu tuổi? Bài tập 4. Viết chương trình nhập chiều cao của 2 học sinh là số thực. Hãy tính trung bình cộng chiều cao của 2 bạn đó.
Lời giải 1 :
program baitap1; // khai báo tên chương trình
uses crt; // khai báo thư viện
var x,y:longint; // khai báo biến
begin // bắt đầu
clrscr; //xoá màn hình kết quả
write('nhap gia tri so thu 1:');readln(x); //nhập số thứ nhất
write('nhap gia tri so thu 2:');readln(y); //nhập số thứ hai
write('tong cua hai so tren la:',x+y); //xuất giá trị
readln; //nhấn enter trước khi thoát màn hình
end. //kết thúc chương trình
---------------------------------------------
program baitap2; // khai báo tên chương trình
uses crt; // khai báo thư viện
var x,y:longint; // khai báo biến
begin // bắt đầu
clrscr; //xoá màn hình kết quả
write('nhap gia tri so thu 1:');readln(x); //nhập số thứ nhất
write('nhap gia tri so thu 2:');readln(y); //nhập số thứ hai
write('tich cua hai so tren la:',x*y); //xuất giá trị
readln; //nhấn enter trước khi thoát màn hình
end. //kết thúc chương trình
-----------------------------------------------
program bai_tap3; // khai báo tên chương trình
uses crt,sysutils; // khai báo thư viện
var year,month,day:word;namsinh,namhientai,tuoi:integer; //khai báo biến
begin // bắt đầu
clrscr; //xoá màn hình kết quả
write('Nhap nam sinh cua ban: ');readln(namsinh); //nhập năm sinh
decodedate(date,year,month,day); //câu lệnh dịch ngày,tháng,năm hôm nay
namhientai:=year; //xác nhận năm nay là năm mấy
writeln('nam hien tai:',namhientai); // xuất năm nay là năm mấy
tuoi:=namhientai-namsinh; // tính tuổi
writeln('ban sinh nam ',namsinh,' => Hien tai ban ',tuoi,' tuoi'); //xuất tuổi
readln; //nhấn enter trước khi thoát màn hình
end. //kết thúc chương trình
-----------------------------------------------------------------------------
program baitap4; // khai báo tên chương trình
uses crt; // khai báo thư viện
var x,y:real; //khai báo biến
begin // bắt đầu
clrscr; //xoá màn hình kết quả
write('chieu cao ban thu 1:');readln(x); //nhập chiều cao bạn thứ nhất
write('chieu cao ban thu 2:');readln(y); //nhập chiều cao bạn thứ hai
write('trung binh cong chieu cao cua hai ban la:',(x+y)/2:4:2); // xuất kết quả
readln //nhấn enter trước khi thoát màn hình
end. //kết thúc chương trình
Thảo luận
Lời giải 2 :
program baitap1; // khai báo tên chương trình
uses crt; // khai báo thư viện
var x,y:longint; // khai báo biến
begin // bắt đầu
clrscr; //xoá màn hình kết quả
write('nhap gia tri so thu 1:');readln(x); //nhập số thứ nhất
write('nhap gia tri so thu 2:');readln(y); //nhập số thứ hai
write('tong cua hai so tren la:',x+y); //xuất giá trị
readln; //nhấn enter trước khi thoát màn hình
program baitap2; // khai báo tên chương trình
uses crt; // khai báo thư viện
var x,y:longint; // khai báo biến
begin // bắt đầu
clrscr; //xoá màn hình kết quả
write('nhap gia tri so thu 1:');readln(x); //nhập số thứ nhất
write('nhap gia tri so thu 2:');readln(y); //nhập số thứ hai
write('tich cua hai so tren la:',x*y); //xuất giá trị
readln; //nhấn enter trước khi thoát màn hình
program bai_tap3; // khai báo tên chương trình
uses crt,sysutils; // khai báo thư viện
var year,month,day:word;namsinh,namhientai,tuoi:integer; //khai báo biến
begin // bắt đầu
clrscr; //xoá màn hình kết quả
write('Nhap nam sinh cua ban: ');readln(namsinh); //nhập năm sinh
decodedate(date,year,month,day); //câu lệnh dịch ngày,tháng,năm hôm nay
namhientai:=year; //xác nhận năm nay là năm mấy
writeln('nam hien tai:',namhientai); // xuất năm nay là năm mấy
tuoi:=namhientai-namsinh; // tính tuổi
writeln('ban sinh nam ',namsinh,' => Hien tai ban ',tuoi,' tuoi'); //xuất tuổi
readln; //nhấn enter trước khi thoát màn hình
end. //kết thúc chương trình
program baitap4; // khai báo tên chương trình
uses crt; // khai báo thư viện
var x,y:real; //khai báo biến
begin // bắt đầu
clrscr; //xoá màn hình kết quả
write('chieu cao ban thu 1:');readln(x); //nhập chiều cao bạn thứ nhất
write('chieu cao ban thu 2:');readln(y); //nhập chiều cao bạn thứ hai
write('trung binh cong chieu cao cua hai ban la:',(x+y)/2:4:2); // xuất kết quả
readln //nhấn enter trước khi thoát màn hình
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247