b: uses crt;
begin
clrscr;
writeln(sqr(15+5)*sqr(6+4)*(6+4));
readln;
end.
b: uses crt;
begin
clrscr;
writeln(sqr(15+5)*sqr(6+4)*(6+4));
readln;
end.
Bài tập 5. Hãy tìm hiểu thuật toán sau đây và cho biết khi thực hiện thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp ? Khi kết thúc, giá trị của S bằng bao nhiêu ? Viết chương trình pascal thể hiện thuật toán đó:
Bước 1: S:=0; i:=1;
Bước 2: Nếu S >= 5 thì chuyển tới bước 4
Bước 3: S:=S + i và quay lại bước 2
Bước 4: Thông báo S và kết thúc thuật toán.
Câu 1: Viết biểu thức sau bằng kí hiệu pascal
a, (a+b)2 (d+e) b, ax2+bx2+cx
Câu 2: Nêu qui tắc đặt trong ngôn ngữ lập trình Pascal
Câu 3: Viết chương trình tính diện tích hình chữ nhật S với a , chiều rộng b nhập từ bàn phím
MONG MẤY MẤY BẠN GIẢI GIÚP
MÌNH CẦN GẤ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 !!!!!!!!!!!!!!!!
viết chương trình cho máy tính thực hiện phép tính A= 1+2+3... với a > or < 1500 pascal
Hãy tìm hiểu thuật toán sau đây, và cho biết khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật toán đó?
a,Thuật toán 1
Bước 1: S:=10, X:=0.5.
Bước 2: Nếu S<=6.2, chuyển tới bước 4.
Bước 3: S:=S – X và quay lại bước 2.
Bước 4: Thông báo S và kết thúc thuật toán.
b,Thuật toán 2
B1: s:=10, n:=0
B2: nếu S >=10, chuyển tới bước 4
B3: n:=+3, s:= s-n và quay lại bước 2
B4: Thông báo S và KTTT
a/. Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu?
b/. Viết chương trình bằng Pascal để mô tả thuật toán đó.
B1: S ! 20, n! 1;
B2: Nếu S ≥ 5, chuyển B4.
B3: n ! N + 1, S ! S - n và quay lại B2.
B4: Thông báo S và kết thúc thuật toán.
a/. Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu? b/. Viết chương trình bằng Pascal để mô tả thuật toán đó. B1: S ← 20, n←1; B2: Nếu S ≥ 5, chuyển B4. B3: n ←N + 1, S ← S - n và quay lại B2. B4: Thông báo S và kết thúc thuật toán.
CÓ BẠN NÀO GIỎI MÔN NÀY K Ạ GIÚP MIK VỚI MIK CẦN GẤP LẮM Ạ Cho hai biến a,b, có kiểu dữ liệu số nguyên. Em hãy viết chương trình Pascal thực hiện các yêu cầu sau: a) Khai báo hai biến a,b. b) Nhập giá trị của hai biến a,b từ bàn phím. c) In kết quả tổng của a,b ra màn hình.
MÌNH ĐANG CẦN GẤP MỌI NGƯỜI GIÚP MÌNH NHANH NHÉ :)))))
Khởi động chương trình pascal, viết chương trình nhập số ttuwj nhiên n sao cho 5<n<100, nếu nhập sai yêu cầu nhập lại đúng thì tính tổng Sn:
Sn=\(\frac{1.2}{3.4}\)+\(\frac{2.3}{4.5}\)+\(\frac{3.4}{5.6}\)+....+\(\frac{n.\left(n+1\right)}{\left(n+2\right)\left(n+3\right)}\)
- Mình mới dùng nên phân số còn hơi chệch choạc, mong mn thông cảm nhé.