Để mô tả các thao tác trong thuật toán, mỗi ngôn ngữ lập trình đều sử dụng một số khái niệm cơ bản: phép toán, biểu thức, gán giá trị. Dưới đây sẽ xét các khái niệm đó trong Pascal. Mời các em cùng theo dõi nội dung chi tiết của bài học.
Phép toán | Trong Toán học | Trong Pascal |
Các phép toán số học với số nguyên | + (cộng), - (trừ), . (nhân), div (chia nguyên), mod (lấy phần div) | +, -,*, div, mod |
Các phép toán số học với số thực | + (cộng). - (trừ), . (nhân),: (chia) | +,-, *,/ |
Các phép toán quan hệ | < (nhỏ hơn), < (nhỏ hơn hoặc bằng), > (lớn hơn hoặc bằng). = (bằng), * (khác) | <, <=, >=, =, < > |
Các phép toán logic | -1 (phủ định), \(\vee\) (hoặc), \(\wedge\) (và) | not, or, and |
Bảng 1. Kí hiệu các phép toán trong Toán học và trong Pascal
Chú ý 1:
Trong lập trình, biểu thức số học là một biến kiểu số hoặc một hằng số hoặc các biến kiểu số và các hằng số liên kết với nhau bởi một số hữu hạn phép toán số học, các dấu ngoặc tròn (và) tạo thành một biểu thức có dạng tương tự như cách viết trong toán học với những quy tắc sau:
Chú ý 2:
Hàm | Biểu diễn Toán học | Biểu diễn trong Pascal | Kiểu đối số | Kết quả |
Bình phương | x2 | sqr(x) | Thực hoặc nguyên | Theo kiểu của đối số |
Căn bậc hai | \(\sqrt x\) | Sqrt(x) | Thực hoặc nguyên | Thực |
Giá trị tuyệt đối | |x| | Abs(x) | Thực | Theo kiểu của đối số |
Lôgarit tự nhiên | lnx | ln(x) | Thực | Thực |
Lũy thừa của số e | ex | Exp(x) | Thực | Thực |
Sin | Sinx | Sin(x) | Thực | Thực |
Cos | Cosx | Cos(x) | Thực | Thực |
Bảng 2. Một số hàm chuẩn thường dùng
A | 0 | 1 | ||
Not A | 1 | 0 | ||
A | 0 | 0 | 1 | 1 |
B | 0 | 1 | 0 | 1 |
A and B | 0 | 0 | 0 | 1 |
A not B | 1 | 1 | 1 | 0 |
Bảng 3. Bảng giá trị phép toán logic
Ví dụ 1:
Một số điểm chú ý khi sử dụng lệnh gán:
Biểu diễn biểu thức sau sang ngôn ngữ lập trình Pascal:
a. 2a + 3b +c;
b. \(\frac{x+y}{1-\frac{2}{z}}+\frac{x^2}{2z}\)
c. \(\frac{-b+\sqrt{b^2-4ac}}{2a}\)
Gợi ý làm bài:
a. 2*a + 3*b + c;
b. ((x+y)/(1-(2/z)))+(x*x/(2*z));
c. (-b+sqrt(b*b-4*a*c))/(2*a).
Ví dụ biểu thức quan hệ và biểu thức logic.
Gợi ý làm bài:
Biểu thức quan hệ:
Biểu thức logic:
Ví dụ câu lệnh gán.
Gợi ý làm bài:
Sau khi học xong Bài 6: Phép toán, biểu thức, câu lệnh gán, các em cần nắm vững các nội dung trọng tâm:
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 11 Bài 6 cực hay có đáp án và lời giải chi tiết.
Chọn cách biểu diễn đúng của biểu thức toán học sau sang Pascal?
\((1+z)\frac{x+\frac{y}{z}}{a-\frac{1}{1+x^3}}\)
Chọn cách biểu diễn đúng của biểu thức trong Pascal sau về biểu thức trong toán học?
ABS(x – y)/(x*x + SQR(y) +1)
Câu 3-5: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 11 DapAnHay
Chọn cách biểu diễn đúng của biểu thức toán học sau sang Pascal?
\((1+z)\frac{x+\frac{y}{z}}{a-\frac{1}{1+x^3}}\)
Chọn cách biểu diễn đúng của biểu thức trong Pascal sau về biểu thức trong toán học?
ABS(x – y)/(x*x + SQR(y) +1)
Biểu thức nào sau kiểm tra "n là một số nguyên dương chẵn"?
Cho biểu thức sau:
(a mod 3 = 0) and (a mod 4 = 0)
Số a nhận giá trị nào sau đây để biểu thức cho kết quả là TRUE?
Biểu thức Toán học \(\frac{x+y}{x-z}\) khi chuyển sang ngôn ngữ lập trình Pascal sẽ có dạng:
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Câu trả lời của bạn
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
if a>b then writeln(a+b:4:2)
else writeln(a*b:4:2);
readln;
end.
Câu trả lời của bạn
uses crt;
var m,n,k,s:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
write('Nhap k='); readln(k);
until (m<n) and (n<k) and (m>0) and (n>0) and (k>0);
s:=m*n*k;
if s>=10 then writeln('Tich la so co 2 chu so')
else writeln('Tich khong la so co 2 chu so');
readln;
end.
Tong a + b la:
Hieu a - b la:
Tich a x b la:
Thuong a/b la:
Câu trả lời của bạn
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln('Tong a+b la ',a+b);
writeln('Hieu a-b la ',a-b);
writeln('Tich cua a*b la ',a*b);
writeln('Thuong cua a/b la ',a/b:4:2);
readln;
end.
Câu trả lời của bạn
uses crt;
var xa,ya,xb,yb,xc,yc,p,s,ab,ac,bc:real;
begin
clrscr;
write('Nhap toa do diem A:'); readln(xa,ya);
write('Nhap toa do diem B:'); readln(xb,yb);
write('Nhap toa do diem C:'); readln(xc,yc);
ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));
p:=(ab+bc+ac)/2;
s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln('Dien tich tam giac la: ',s:4:2);
readln;
end.
Câu trả lời của bạn
2x4 là 2*4 hay 2*x*4
Câu trả lời của bạn
#include <bits/stdc++.
h> using namespace std;
int a,b,c;
int main() { cin>>a>>b>>c;
if ((a+b>c) and (a+c>b) and (b+c>a))
{
double p=(a+b+c)/2; cout<<"S="<<sqrt(p*(p-a)*(p-b)*(p-c)); }
else cout<<"Khong la ba canh tam giac";
return 0;
}
Câu trả lời của bạn
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
a:=a+b;
b:=a-b;
a:=a-b;
writeln('So a sau khi hoan doi la: ',a);
writeln('So b sau khi hoan doi la: ',b);
readln;
end.
A. 66
B. 99
C. 2007
D. 2011
Câu trả lời của bạn
m mod 100 < 10 → loại A,B,D
→ C đúng
A. Kết quả của phép toán số học là số
B. Kết quả của phép tóan quan hệ là số hoặc true/false
C. Chỉ dùng cặp ngoặc tròn để xác định trình tự thực hiện các phép toán
D. Kết quả của phép tóan logic là true hoặc false
Câu trả lời của bạn
Kết quả của phép tóan quan hệ là số hoặc true/false
Đáp án B
A. X+yz
B. -1 <=cosx <=1
Câu trả lời của bạn
A:
x+y*z
B:
-1<=cos(x)<=1
Begin
S:=0
for a:=1 to 3 do
for b:=1 to 5 do If ((a*b) mod 2 =0) then S:=S = a*b
Write("S=",S) ;
Câu trả lời của bạn
Kết quả đúng cho đoạn chương trình trên là 12.
Câu trả lời của bạn
uses crt;
var n,i,max:integer;
a:array[1..100]of integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Gia tri lon nhat la: ',max);
readln;
end.
Em hãy viết chương trình để nhập vào chiều dài (x), chiều rộng (y) và giá tiền (T). Tính và xuất ra màn hình tổng số tiền bán được của mảnh vườn đó.
Câu trả lời của bạn
var x,y,t,dientich:int64;tien:real;
begin
read(x,y,t);
dientich:=x*y;
tien:=dientich*t;
write(tien:0:0);
readln;
end.
a:=10;
b:=15;
If a>b then a=b ;
Câu trả lời của bạn
Gía trị của b vẫn là 15.
Câu trả lời của bạn
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if (st[i]='V') or (st[i]='v') then st[i]:='Z';
writeln('Xau sau khi thay doi la: ',st);
readln;
end.
P = 1 +22 + 32 + ... + 102
Câu trả lời của bạn
uses crt;
var i,t,x:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do
begin
x:=sqr(i);
t:=t+x;
end;
writeln('gia tri cua bieu thuc P=1^2+2^2+3^2+4^2+5^2+...+10^2 la: ',t);
readln;
end.
Câu trả lời của bạn
var s,n:integer;
begin
repeat
inc(n);
s:=s+n;
until n>1013;
write('tong la ',s);
end.
Câu trả lời của bạn
program hotrotinhoc;
var i,n,tong : integer ;
begin
write('Do dai cua day so :'); readln(n);
tong:=0;
for i:= 1 to n do tong:=tong+i;
write(tong);
readln
end.
Câu trả lời của bạn
uses crt;
var x,z:integer;
bt:real;
begin
clrscr;
write('x='); readln(x);
write('z='); readln(z);
bt:=(abs(sqr(x)-1))/(z-1/x);
writeln(bt:4:2);
readln;
end.
Câu trả lời của bạn
uses crt;
var a,b,dt,cv:real;
begin
clrscr;
repeat
write('nhap chieu dai:'); readln(a);
write('nhap chieu rong:'); readln(b);
if (a<=b) or (a<=0) or (b<=0) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (a>b) and (a>0) and (b>0);
cv:=(a+b)*2;
writeln('chu vi=',cv:4:2);
dt:=a*b;
writeln('dien tich=',dt:4:2);
readln;
end.
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *