Câu 1: Cho đoạn chương trình:
S:=0;
For i:=1 to 5 do S:=S+1;
a) Cho biết giá trị của S
b) Đoạn chương trình trên thực hiện bao nhiêu lần lặp
Câu 2:
Viết chương trình bằng ngôn ngữ lập trình pascal thực hiện công việc nhập 20 phần tử có giá trị nguyên cho mảng B(1 chiều, nhập từ bàn phím)
a) Tính tổng các phần tử có giá trị dương trong mảng
b) Tính tổng các phần tử có giá trị lẻ trong mảng
*Giúp mình nha, sắp thi rùi
Cho 1 mảng a gồm 100 phần tử em hãy viết chương trình tính tổng ( chẵn , lẻ, tổng các phần tử) Cần gấp người giải ạ🤦
Bài 1: Viết chương trình nhập hệ số a,b,c của một phương trình bậc 2. In ra màn dạng và nghiệm của phương trình đó.(Dùng Pascal)
Bài 2: Viết chương trình in một số n bất kì từ bàn phím. Kiểm tra xem nó có phải là phần tử trong dãy fibonacci hay không? In ra màn hình các số thuộc dãy fibonacci bé hơn hoặc bằng n. (Dùng Pascal)
Bài 3: Viết chương trình nhập chiều cao h của một tam giác cân và in ra màn hình tam giác cân đó (rỗng). (Dùng Pascal)
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;
1. Nhập vào một số n (5<=n<=10) và n phần tử của dãy Ai với 1<Ai<100 (có kiểm tra dữ liệu khi nhập vào. Viết chương trình, thuật toán
a. In ra các phần tử là số nguyên tố của dãy
b. Tính ƯCLN của tất cả các phần tử của dãy
c. Tính biểu thức sau: S=ai1+ai2+ai3+...+ann
d. Sắp xếp và in ra dãy sau sắp xếp
2. Viết chương trình, thuật toán tối giản phân số bằng cách chia cả tử và mẫu cho ƯCLN
3. Viết chương trình con tính xy với x,y là 2 stn được nhập từ bàn phím
4. Viết chương trình con tính giai thừa của n với n stn được nhập từ bàn phím
5. Viết chương trình, thuật toán tìm số hoàn chỉnh, số chính phương, số nguyên tố và BCNN
6. Nhập giá trị của mảng chia hết cho 3 và 5. Sắp xếp các phần tử chia hết cho 3 và 5 theo chiều tăng dần
7. Nhập dữ liệu cho các phần tử của mảng và đưa ra màn hình mảng vừa nhận. Tính tổng của các giá trị của các phần tử tính từ các phần tử lẻ đến số lượng các phần tử lẻ
8. Viết chương trình dùng câu lệnh repeat until Tính tổng của \(A=\dfrac{1}{1\cdot3}+\dfrac{1}{2\cdot4}+...+\dfrac{1}{n\left(n+2\right)}\)
9. Viết chương trình tính hàm \(e^x=1+x+\dfrac{x^2}{2!}+....+\dfrac{x^n}{n!}\)
10. Viết chương trình tính an với a,n được nhập từ bàn phím
Các Bn viết đầy đủ thuật toán, chương trình giúp Mk nhé
BÀI TẬP:
- Viết chương trình nhập vào giá trị nguyên cho các phần tử của mảng A gồm N phần tử. Sắp xếp giá trị của các phần tử trong mảng theo thứ tự tăng dần.
- Ví dụ:
+ A [1] = 8
+ A [2] = 2
+ A [3] = 9
+ A [4] = 6
- Sau khi sắp xếp:
+ A [1] = 2
+ A [2] = 6
+ A [3] = 8
+A [4] = 9
Giúp mình với !!!!
Viết chương trình tính tổng sau ( trong đó là số tự nhiên được nhập từ bàn phím )
A = 1 + 1/2 + 1/3 ... 1/n (n e z)
program bai_giai;
uses crt;
var A:array[1..10] of integer;
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do;
begin
write('nhap so thu ',i,':');
readln(A [i]);
if a[i]mod 3=0 then;
begin
s:=s+A[i];
end.
cho em hỏi chương trình trên đúng ko ạ?
Viết chương trình Pascal tìm GTNN trong dãy A={a1, a2, a3,....., an} (Sử dụng biến mảng)
