Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 2:
-Giống: Đều có tác dụng đọc dữ liệu
-Khác:
+Read: Đọc xong không xuống dòng
+Readln: Đọc xong rồi xuống dòng
Câu 3:
a) a*x*x*x+b*x*x*x+c*x+d
b) (4*sqr(x)-7*x-5)/(x-7)
c) (a+b)/(a-b)-(a-b)/(a+b)
Câu 4:
a) Integer;
b) Real;
c) Real;
Câu 1 bạn xem lại đề
không có quy tắc viết từ khóa trong pascal nhé bạn
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
b)
program hotrotinhoc;
var s: real;
i,n: byte;
function t(x: byte): longint;
var j: byte;
t1: longint;
begin
t1:=1;
for j:=1 to x do
t1:=t1*j;
t1:=t;
end;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/t(i);
write(s:1:2);
readln
end.
c) Đề em ghi sai rồi thế này với đúng :
\(T=1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{n}{n^2}\)
program hotrotinhoc;
var t: real;
n,i: byte;
begin
readln(n);
t:=0;
for i:=1 to n do
t:=t+i/(i*i);
write(t:1:2);
readln
end.
Bước 1:Nhập n.Gán i=1,A:=0;
Bước 2:A=1
i(i+2)
Bước 3:i:=i+1
Bước 4:In ra A
Bước 5:Kết thúc vòng lặp.
Bài Làm:
Bước 1:Nhập n.Gán i=1,A:=0;
Bước 2:A=1 và i(i+2)
Bước 3:i:=i+1
Bước 4:In ra A
Bước 5:Kết thúc vòng lặp.
Các biểu thức trong Pascal:
a. a/b+c/d.
b. a*x*x+b*x+c.
c. 1/x-a/5*(b+2).
d. (a*a+b)*(1+c)*(1+c)*(1+c) .