Bài 4. Sử dụng biến trong chương trình
Các câu hỏi tương tự
cho a=9,b=8.tim gia tri cua S sau moi câu lệnh dưới đây,với ban đầu giá trị của S=0
A.If (a+b) mod 2=0 then S:=a*b;
B.If (a>=b) or (a>9) then S:=b else S:=a;
thanks
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;
Câu 19: Câu lệnh Pascal nào sau đây viết sai?
A. if x:= 5 then a = b;
B. if x > 4; then a:= b;
C. if x > 4 then a:=b; m:=n;
D. if x > 4 then a:=b; else m:=n;
Bạn Tuấn viết chương trình như sau:
program Tinh toan
uses crt;
var
x, y : integer;
tb real;
thongbao : integer;
const a : 2;
begin
clrscr;
thongbao : ‘Trung binh cong cua hai so x va y la: ‘;
write(‘Nhap gai tri cho x ‘); readln(x);
write(‘Nhap gia tri cho y ‘); readln(y);
tb (x+y)/a;
writeln(thongbao, tb:2:1);
readln;
end.
a. Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại c...
Đọc tiếp
Bạn Tuấn viết chương trình như sau:
program Tinh toan
uses crt;
var
x, y : integer;
tb = real;
thongbao : integer;
const a := 2;
begin
clrscr;
thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
write(‘Nhap gai tri cho x = ‘); readln(x);
write(‘Nhap gia tri cho y = ‘); readln(y);
tb = (x+y)/a;
writeln(thongbao, tb:2:1);
readln;
end.
a. Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng.
b. Hãy phân biệt tên biến, tên hằng trong chương trình trên.
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;
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;
Program kiemtra:
Use crt
Var a, b: interger;
c: integerl;
Begin
Clrscr;
a: = 10;
b = 3;
c: = a/b
Writeln(‘Gia tri cua c = ‘,c);
Readln;
End
tìm lỗi sai trong chương trình và sửa lại
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 n10, n15
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...
Đọc tiế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 !
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