THỰC HÀNH: Câu 1: Chi X nhận các giá trị: 5,10,20,30,200. Y nhận các giá trị: 3.5,6.2,7.0,23.3. Viết câu lệnh khai báo X,Y sao cho ít tốn bộ nhớ nhất
Cho X nhận các giá trị: -5, 10, -15, 20, -25. Y nhận các giá trị: 7.25; 9.8 Z nhận các giá trị: ‘c’, ‘a’, ‘o’, h’. Viết câu lệnh khai bảo X, Y, Z, K sao cho ít tổn bộ nhớ nhất.
Cho ba biến có giá trị nguyên nằm trong khoảng 32000…32000 và các biến x, y, z nhận các giá trị 12.5; 5.6; 7.8. Trong ngôn ngữ lập trình Pascal, hãy viết khai báo cho các biến trên sao cho tốn ít bộ nhớ nhất?
Biến X có thể nhận các giá trị: 5; 10; 15; 20 và biến Y có thể nhận các giá trị là: true hoặc false. Khai báo nào trong các khai báo sau đây là đúng và ít tốn dung lượng bộ nhớ nhất?
A. Var X: byte; Y: char;
B. Var X: real; Y: boolean;
C. Var X: byte; Y: real;
D. Var X: byte; Y: boolean;
Biến X có thể nhận các giá trị: 5; 10; 15; 20 và biến Y có thể nhận các giá trị là: 0,1; 0,2; 0,3; 0,4; 0,5. Khai báo nào trong các khai báo sau đây là đúng và ít tốn dung lượng bộ nhớ nhất?
A. Var X, Y: byte;
B. Var X: byte; Y: real;
C. Var X, Y: real;
D. Var X: byte; Y: char;
Biến X có thể nhận các giá trị là: true hoặc false và biến Y có thể nhận các giá trị là: 0,1; 0,2; 0,3; 0,4; 0,5. Khai báo nào trong các khai báo sau đây là đúng và ít tốn dung lượng bộ nhớ nhất?
A. Var X, Y: boolean;
B. Var X, Y: real;
C. Var X: boolean; Y: real;
D. Var X: boolean; Y: byte;
Biến X có thể nhận các giá trị là: true hoặc false và biến Y có thể nhận các giá trị là: 5; 10; 15; 20; 50; 100. Khai báo nào trong các khai báo sau đây là đúng và ít tốn dung lượng bộ nhớ nhất?
A. Var X: boolean; Y: longint;
B. Var X: boolean; Y: integer;
C. Var X: boolean; Y: real;
D. Var X: boolean; Y: byte;
Câu 1:Cho A nhận các giá trị: 5, 51, 20, 39 B nhận các giá trị: 2.5, 3.5, 6 C nhận các giá trị: 'A ', 'a', '0', '5' Viết câu lệnh khai báo cho các biến A B C
Viết một chương trình pascal có sử dụng các câu lệnh : khai báo biến , nhập giá trị của biến , in lên màn hình giá trị của biến , gán giá trị cho biến , câu lệnh điều kiện dạng đủ
uses crt;
var n,x:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('n=',n);
x:=n;
if x mod 2=0 then writeln(x,' la so chan')
else writeln(x,' la so le');
readln;
end.
