Bài 4. Sử dụng biến trong chương trình
Các câu hỏi tương tự
giá trị của biến c sau khi thực hiện đoạn chương trình sau
a:= 20;b:21
if a+b<41then c:=a-b else b:=b-a;
a,1
b,41
c,-1
d không xác định
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 tra...
Đọc tiếp
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.
Cho biết kết quả của c sau câu lệnh sau?
a:= 5; b:= 7;
If a + b < 8 then c := a – b else c := b – a;
Câu 5: Tìm lỗi sai trong các câu lệnh khai bao sau và sửa lại cho đúng.
a) var Start, begin: real;
b) const x:= 50, y:= 500;
c) var a=8;
d) var xep_loai, diem : integer, real;
Giúp mình với !
ì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 liệt kê các lỗi nếu có trong chương trình dưới đây và sửa lại cho đúng:
Var a, b := Integer;
Const c := 3;
Begin
a: = 200
b : = a / c ;
Write (b);
Readln;
End.
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/52; 14 div 5 2 ; 14 mod 5 4
b)14/52.8; 14...
Đọc tiếp
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 !
Cho a bằng 9 b bằng 8 .tìm kết quả của biến s sau mỗi câu lệnh sau đây, với với ban đầu giá trị của s bằng 0
a) if (a+b) mod 2=0 then s:=b else s:=a;
Cho chương trình sau :( Tính chu vi và diện tích tam giác biết 3 cạnh a,b,c với chiều cao h ứng với cạnh a nhập từ bàn phím )Uses crt;Var a,b,c,h,chuvi,dientich : integer;Beginclrscr;Writeln(Nhap canh a ); Readln(a);Writeln(Nhap canh b ); Readln(b);Writeln(Nhap canh c ); Readln(c);chuvi : a+b+c;dientich : a*h/2Writeln(Chu vi hinh tam giac la , chuvi);Write(Dien tich hinh tam giac la , dientich);Readln;End.Giải thích lý do vì sao chương trình không chạy được.
Đọc tiếp
Cho chương trình sau :
( Tính chu vi và diện tích tam giác biết 3 cạnh a,b,c với chiều cao h ứng với cạnh a nhập từ bàn phím )
Uses crt;
Var a,b,c,h,chuvi,dientich : integer;
Begin
clrscr;
Writeln('Nhap canh a= '); Readln(a);
Writeln('Nhap canh b= '); Readln(b);
Writeln('Nhap canh c= '); Readln(c);
chuvi := a+b+c;
dientich := a*h/2
Writeln('Chu vi hinh tam giac la = ', chuvi);
Write('Dien tich hinh tam giac la = ', dientich);
Readln;
End.
Giải thích lý do vì sao chương trình không chạy được.