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 Pascala) \(\dfrac{15}{2+3}\)-\(\dfrac{8}{x^3}\)+yb) \(\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 toan2. uses crt;3. var4. x, y : integer;5. tb = real;6. thongbao :...
Đọc tiếp
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 !!!!!!!!!!!!!!!!
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.