Mình làm ở đây
https://pastebin.com/0SYGG2Re
Mình làm ở đây
https://pastebin.com/0SYGG2Re
Các câu lệnh và khai báo sau trong pascal đúng hay sai?hãy chỉ ra lỗi sai nếu có
a) For i:=1 to 10; do x:=x+1;
b) For i: =1 to 10 do writeln('A')
c) Y:=5; while Y:=10 do Y:=Y+20;
d) s :=0; n :=0; ; while s<= 10 do n :=n+1;s:=s+n;
e) for i =100 to 20 do x :=x+2;
f) for i :=2 to 20 do x:=x+1;
Câu 1: Khai báo mảng gồm 100 phần tử Câu 2: Nếu vòng lặp for...do in ra màn hình các số 1 2 3...19 20 Câu 3: Vòng lặp sau cho kết quả là bao nhiêu? S=1; for i:=1 to 4 do S:=S*2; Câu 4: Nêu 3 ví dụ về: a/Vòng lặp chưa biết trước số lần lặp b/Vòng lặp biết trước số lần lặp
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 !
Cho S và i là 2 biến nguyên. Khi chạy chương trình :
S:=0
for i:=1 to 3 do S:=S+2*i
Writeln(S)
Kết quả in lên màn hình là bao nhiêu ?
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 !
viết chương trình sử dụng bến mảng nhập vào 1 dãy a gốm n số nguyên (n được nhập từ bàn phím). Tính tổng các số nguyên âm có trong dãy
cách khai biến mảng sau đây trong Pascal đúng hay sai ?
Var X: Aray(10.5..13) of Integer;
Var X: Aray(100..1) of Real;
Var X: Aray(1..100) of Real;
Var X: Aray(1..n) of Real;
giúp mình nhé mình đang cần gấp
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)
Em đã biết để có các kết quả tính toán đúng mục đích của chương trình, cần phải gán các giá trị dữ liệu thích hợp cho các biến. Hãy chạy chương trình dưới đây để tìm hiểu ngay sau khi khai báo biến ( trước khi gán giá trị dữ liệu cụ thể), biến có nhận giá trị dữ liệu ban đầu nào không? Nêu nhận xét của em về giá trị dữ liệu của biến ngay sau khi khai báo.
var A: integer; B: integer;
C: integer; D: integer;
begin
writeln(A);writeln(B);
writeln(C);writeln(D);
end.
bài này ở phần mở rộng trang 33 sách giáo khoa tin 8, các bạn chạy và nêu kết quả giúp mình nhé, mình cần gấp lắm.