program vsdg;
uses crt;
var n: real;
begin
clrscr;
repeat
begin
write('Nhap so thuc do vao'); read(n);
end;
until (1<= n) and (10>=n);
readln
end.
program vsdg;
uses crt;
var n: real;
begin
clrscr;
repeat
begin
write('Nhap so thuc do vao'); read(n);
end;
until (1<= n) and (10>=n);
readln
end.
1,viết chương trình tổng, tích của n số tự nhiên
2, viết chương trình yêu cầu người sử dụng nhập vào 1 số trong khoảng từ 1 đến 10 và yêu cầu nhập lại nếu số không thỏa mãn
3, hãy chỉ ra lỗi trong các câu lệnh sau đây
a) X:= 10; while X:=10 do X:= X + 5
b) X:=10; X = 10 do X = X + 5
c) S:= 0; n:= 0; while S <= 10 do n:= n + 1; S:= S + n
Viết chương trình thực hiện các yêu cầu sau:
+ Nhập vào 1 mảng số nguyên
+In ra mảng vừa nhập
+In ra các số chẵn trong mảng
Khởi động phần mềm Turbo Pascal rồi viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? *Yêu cầu: 1) viết chương trình như trên 2) em hãy dịch và sửa lỗi chương trình(nếu có)
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!
3. Viết chương trình nhập vào một mảng hai chiều gồm các số thực. Biết rằng kích thước của mảng 2 chiều là n x n trong đó n là một số nguyên được nhập vào từ bàn phím
a. Tính tổng các số trên đường chéo chính
b. Tìm các số lớn nhất trong mỗi hàng và lưu tất cả các số đó vào một mảng 1 chiều
c. Tính tổng của các số âm và các số dương trên dòng k, biết rằng k là một đại lượng được nhập vào từ bàn phím nằm trong khoảng từ 1 đến n
4. Viết chương trình điền các số từ 1 đến n2 vào trong một bảng vuông (mảng hai chiều có kích thước n x n) sao cho tổng các số trên mỗi hàng, mỗi cột và trên hai đường chéo đều bằng nhau. Biết rằng n là một số lẻ lớn hơn hoặc bằng 3 được nhập vào từ bàn phím. Yêu cầu : nếu người sử dụng nhập số n sai yêu cầu thì chương trình sẽ yêu cầu nhập lại, quá trình nhập sẽ dừng khi số n nhập vào thỏa mãn yêu cầu.
Ví dụ: Với N=3 và N=5 ta có
a. Nhập vào hai mảng hai chiều A và B có kích thước n x n, trong đó các phần tử của hai mảng này chứa các giá trị số thực và n là một số nguyên dương được nhập vào từ bàn phím – A, B được gọi là hai ma trận vuông.5. Sử dụng chương trình con để viết chương trình thực hiện các yêu cầu sau :
b. Tính ma trận C = A + B
c. Tính ma trận D = A x B
Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3. *
Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !