program tinh_gia_tri_bieu_thuc;
uses crt;
var n,j:integer;
R:extended;
begin
clrscr;
R:=0;
write('Nhap so mu n=');readln(n);
for j:=1 to n do
R:=R+ exp(n*ln(j));
writeln('Gia tri cua R=',R:1:0);
end;
readln;
end.
program tinh_gia_tri_bieu_thuc;
uses crt;
var n,j:integer;
R:extended;
begin
clrscr;
R:=0;
write('Nhap so mu n=');readln(n);
for j:=1 to n do
R:=R+ exp(n*ln(j));
writeln('Gia tri cua R=',R:1:0);
end;
readln;
end.
Viết chương trình tính giá trị của biểu thức: D = 2(a+b)
(Với a, b là 2 số nguyên được nhập vào từ bàn phím.)
Viết thuật toán và chương trình tìm giá trị lớn nhất(in ra vị trí chứa phần tử có giá trị lớn nhất) của dãy số gồm n số nguyên được nhập từ bàn phím. (Sử dụng mảng).
Viết chương trình nhập từ bàn phím các phần tử của mảng có độ dài là n (n được nhập từ bàn phím). Sau đó in ra phần tử có giá trị lớn nhất.
Cho số thực R là bán kính của hình tròn nhập vào từ bàn phím Pi là một bằng số có giá trị 3,14.em hãy viết chương trình tính chu vi diện tích của hình tròn rồi hiển thị kết quả ra màn hình?
Viết chương trình tính tổng S = 1+2+3+...+1/n. Trong đó n là số nguyên được nhập từ bàn phím
viết chương trình tính tổng S=1+2+3+...+n.Trong đó n là số nguyên nhập từ bàn phím
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên A. Độ dài của dãy n cũng được nhập từ bàn phím với (0<n<=100)?
Viết chương trình nhập vào bàn phím một dãy số nguyên gồm n phần tử a.Tính tổng các phương trình có giá trị lẻ b.In ra các số chính phương trong dãy c.In ra các số nguyên tố trong dãy d.Sắp xếp dãy theo thứ tự tăng dần e.Kiểm tra dãy số trên có lập trình cấp số cộng hay không?
Câu 1; Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.
Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal
a) \(\dfrac{15}{2+3}\)-\(\dfrac{8}{x^3}\)+y
b) \(\dfrac{\left(10+x\right)^2}{3+y}\)-\(\dfrac{18}{5+y}\)
Câu 3. Bạn Tuấn viết chương trình như sau:
1. program Tinh toan
2. uses crt;
3. var
4. x, y : integer;
5. tb = real;
6. thongbao : integer;
7. const a := 2;
8. begin
9. clrscr;
10. thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
11. write(‘Nhap gai tri cho x = ‘); readln(x);
12. write(‘Nhap gia tri cho y = ‘); readln(y);
13. tb = (x+y)/a;
14. writeln(thongbao, tb:2:1);
15. readln;
16. 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âu 4 : Viết chương trình đưa thông báo sau ra màn hình, mỗi thông báo trên một dòng:
GIÚP MIK VỚI !!!!!!!!!!!!!!!!
viết chương trình tính tổng :S = 5+10 +15+...+n. trong đó số nguyên nhập từ bàn phím