Viết chương trình Pascal cho:
x
x x
x x x
x x x x
x x x x x
Sử dụng ngôn ngữ lập trình pascal để viết chương trình dựa trên thuật toán B1: nhập 2 số thực x và y từ bàn phím B2 : nếu x > y thì x
program CompareNumbers;
var
x, y: real;
begin
// Bước 1: Nhập 2 số thực x và y từ bàn phím
write('Nhap so thuc x: ');
readln(x);
write('Nhap so thuc y: ');
readln(y);
// Bước 2: So sánh x và y, in ra số lớn hơn
if x > y then
writeln('x lon hon y')
else if x < y then
writeln('y lon hon x')
else
writeln('x bang y');
readln;
end.
(khoog bt đúng ko)
Bài1. Để tính thương 2 số a,b nguyên: t=a/b, hãy lựa kiểu dữ liệu thích hợp cho t,a,b? về biểu thức toán học: Bài 2. Viết các biểu thức sau dưới dạng trong Pascal a. a*x*x*x+b*x*x+c*x+d b. 1/(1+x)*(1+x)-2/(x*x+1) Bài3: Viết 1 chương trình tính và in ra màn hình kết quả của 2 phép tính sau: a) 18 div 5; b) 20 mod 7;
Bài 1:
-Kiểu dữ liệu phù hợp là kiểu số thực (real)
Bài 2:
a) a*x*x*x+b*x*x+c*x+d
b) 1/(1+x)*(1+x)-2/(x*x+1)
Bài 3: (Lười quá, nhường bạn khác nhé :D)
Cho chương trình pascal sau
program kiem_tra;
var x,y : integer;
begin
x:=5;
y:=10;
x:=x+y;
y:=x-y;
end.
hãy cho biết giá trị cuối cùng của biến x và biến y là bao nhiêu
Hãy viết 1 chương trình Pascal để tìm kết quả của biểu thức sau: (x-2)\(^2\)(x+2)+(x+2),x là số được nhập từ bàn phím.Sau đó in ra màn hình kết quả của biểu thức.
Program T_J;
Uses crt;
Var x:real;
Begin
Clrscr;
write('Nhap so x = '); readln(x);
writeln(' ket qua cua bieu thuc (',x,'-2)^2(',x,' + 2) + ( ',x,' + 2) la ',(x - 2)*(x-2)*(x+2)+(x+2));
readln
end.
Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết sau khi thực hiện lệnh lặp giá trị của x và y là bao nhiêu? Và mỗi đoạn chương trình thực hiện bao nhiêu vòng lặp a Đoạn chương trình 1 b Đoạn chương trình 2: x: 0; y: 5 x:=1 ; y:= 5; For i:-5 to 2 do x:=x+2: For i:=3 to 7 do x:=x+2; y:=y+x; y:= y + x;
VIẾT THUẬT TOÁN VÀ CHƯƠNG TRÌNH PASCAL Các bài toán sau Tính giá trị biểu thức a= x2+x+1( với x nhập từ bàn phím ) mong giúp gắp ạ
uses crt;
var x:integer;
begin
clrscr;
readln(x);
writeln(x*x+x+1);
readln;
end.
Sau khi thực hiện đoạn chương trình Pascal :
X:=3
For i : = 1 to 3 do
x : = x - 1
X sẽ nhận được giá trị nào dưới đây ?
A. – 1;
B. 1 ;
C. -4 ;
D. 0 ;
Sau khi thực hiện đoạn chương trình Pascal :
X:=3
For i : = 1 to 3 do
x : = x - 1
X sẽ nhận được giá trị nào dưới đây ?
A. 1 ;
B. -4 ;
C. 0;
D. – 1;
Sau khi thực hiện đoạn chương trình Pascal :
X:=3;
For i := 1 to 3 do x := x – 1;
X sẽ nhận được giá trị nào dưới đây?
A. 0;
B. 1 ;
C. -4 ;
D. – 1;