a) T=120
b)
Program HOC24;
var i,t: integer;
begin
i:=1; t:=1;
while i<=5 do
begin
t:=t*i;
i:=i+1;
end;
write(t);
readln
end.
a) T=120
b)
Program HOC24;
var i,t: integer;
begin
i:=1; t:=1;
while i<=5 do
begin
t:=t*i;
i:=i+1;
end;
write(t);
readln
end.
1) viết chương trình pascal nhập giá trị cho 2 số nguyên x,y từ bàn phím và in ra màn hình kết quả tính tổng 2 số đó.
2) Tương tự như bài 1 in ra kết quả tính hiệu
3) Tương tự như bài 1 in ra kết quả tính tích
4) Tương tự như bài 1 in ra kết quả tính thương
5) Viết chương trình pascal tính diện tích hình tam giác với độ dài 1 cạnh a chiều cao tương ứn gh ( a,h là các giá trị nguyên nhâp vào từ bàn phím)
A. Lý Thuyết:
Nêu ý nghĩa của các từ khóa,câu lệnh trong Pascal: program,begin,end,uses,var,const,clrscr,delay(x),write ( ),readln,readln (x)
Trắc nghiệm:
Câu 1: Các ngôn ngữ lập trình phân chia dữ liệu thành các kiểu dữ liệu khác nhau với mục đích gì ? Hãy chọn phương án sai:
a)Sử dụng bộ nhớ máy tính có hiệu quả
b)Thực hiện các phép toán tương ứng với từng kiểu dữ liệu
c)Tự động hóa việc viết chương trình
Câu 2:Hãy chọn câu đúng:
a)14/5=2; 14 div 5 = 2 ; 14 mod 5 = 4
b)14/5=2.8; 14 div 5 = 2 ; 14 mod 5 = 4
c) 14/5=2.8; 14 div 5 = 2 ; 14 mod 5 = 2
d) 14/5=3; 14 div 5 = 2 ; 14 mod 5 = 4
Câu 3: Giá trị của biến a sau khi thực hiện chương trình: "a:=5 ; a:=a–4" là:
a) 1 b) 2 c) 3 d) 4
Câu 4: Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu:
a)Chỉ một biến cho một kiểu dữ liệu
b)Chỉ hạn chế bởi dung lượng nhớ
c) 10 biến
d) Không giới hạn
Câu 5: Giả sử A được khai báo là biến với kiểu dữ liệu là số thực,phép gán nào đúng:
a)A:= ' 38.59 b) A:=35.59; c) A:=3559 d) cả b và c đều đúng
Câu 6:Trong Pascal,khai báo đúng là:
a) Var chieudai:real
b) Var 40HS: integer
c) Var R=50
d) Cả b và c đều đúng
B. Bài Tập:
1. Tìm ra chỗ sai ( gạch chân ) và giải thích tại sao sai :
a) var a,b:=integer
const c:=4 ;
begin :
a:= 10
b:=a/c;
write( ' gia tri cua b la ' b);
end.
b) var : a: real; b: integer;
const c:=4
begin
c:=4.1;
a:=10;
b:=a/c
write( ' gia tri cua b la ' b )
end
2. Viết thuật toán rồi viết chương trình bằng ngôn ngữ Pascal để giải bài toán:
a) Tính tổng của n số tự nhiên đầu tiên. Lậo bảng chạy tay với n=10, n=15
b) Hoán đổi giá trị của 2 biến x và y. Lập bảng chạy tay với x 🔙 10; y 🔙1
Mong các bạn giúp mình !
Giúp em với ạ. Câu 1: viết chương trình tính diện tích và chu vi hình chữ nhật với chiều dài là a rộng là b với a,b là các biến được nhập từ bàn phím.(Phần mềm Pascal) Câu 2: Viết chương trình tính tổng và trung bình cộng của 2 số a,b với a,b là 2 số bất kì được nhập từ bàn phím( Phần mềm Pascal) Câu 3: Viết chương trình tính diện tích và chu vi hình vuông có cạnh a với a là số bất kì( Phần mềm Pascal).
Bài Tập:
1. Tìm ra chỗ sai ( gạch chân ) và giải thích tại sao sai :
a) var a,b:=integer
const c:=4 ;
begin :
a:= 10
b:=a/c;
write( ' gia tri cua b la ' b);
end.
b) var : a: real; b: integer;
const c:=4
begin
c:=4.1;
a:=10;
b:=a/c
write( ' gia tri cua b la ' b )
end
2. Viết thuật toán rồi viết chương trình bằng ngôn ngữ Pascal để giải bài toán:
a) Tính tổng của n số tự nhiên đầu tiên. Lậo bảng chạy tay với n=10, n=15
b) Hoán đổi giá trị của 2 biến x và y. Lập bảng chạy tay với x 🔙 10; y 🔙1
Mong các bạn giúp mình !
ìm hiểu đoạn chương trình sau đây. Khồng cần viết chương trình,hãy cho biết lệnh writeln in ra màn hình giá trị của i,j,k là bao nhiêu?
i:=1;j:=2;k:=3;
while i<=6 do
begin i:=i+1; j:=j+1; k:=k+j; end;
space:=' '
write(I,space,j,space,k);
Hãy cho biết kiểu dữ liệu của các biến cần khai báo dùng để viết chương trình để giải bài toán dưới đây:
a) Tìm diện tích S của hình tam giác với độ dài một cạnh a và chiều cao tương ứng h (a và h là các số tự nhiên được nhập từ bàn phím).
b) Tính kết quả C của phép chia lấy phần nguyên và kết quả d của phép chia lấy phần dư của 2 số nguyên a và b.
hãy đưa ra thuật toán tối ưu để tìm 2 số x và y sau khi nhập 2 giá trị tổng và hiệu của chúng
tìm hiểu đoạn chương trình sau đây. Khồng cần viết chương trình,hãy cho biết lệnh writeln in ra màn hình giá trị của i,j,k là bao nhiêu?
i:=1;j:=2;k:=3;
while i<=6 do
begin i:=i+1; j:=j+1; k:=k+j; end;
space:=' '
write(I,space,j,space,k);
tính diện tích tam giác với độ dài a và đường cao tương ứng h
a ) xác định bài toán và mô tả thuật toán
b ) viết phương trình bài toán