Các câu hỏi tương tự
viết chương trình tính tổng S:
S=1+1/2+1/3+...+1/N+...
cho đến khi 1/N<0,001 thì dừng lại
câu lệnh While.. do
viết thuật toán ,chương trình tính tổng sau bằng vòng lặp while .... do
bài 1 :S1=1/1*3+1/2*4+1/3*5+......+1/n*(n+2)
(n nhập từ bàn phím)
bài 2 :
S2 =1+1/2+1/4+...+1/n
bài 3
S3 =1*1/3+1/4 +...+1/n
cầu xin mọi người giúp
hạn nộp 26 /3
1. em hay khai báo 1 biến mảng 50 phần tử kiểu xâu ký tự?2. Viết chương trình tính tổng chẵn, lẽ của 10 số bất kỳ nhập vào từ bàn phím3. Viết chương trình kiểm tra 1 số nhập vào là số chẵn hay lẻ thông báo kết quả4. Hãy cho biết vòng lặp sau chạy mấy lần? vì sao?a. K:7;While (K7) Do write(“ lap lan thu may”);b. H:3;n:6;While (n 20) Do H:H+n; c. For F:3 to 23 do readln Mọi người giúp em . Mai là kiểm tra rồi ạ
Đọc tiếp
1. em hay khai báo 1 biến mảng 50 phần tử kiểu xâu ký tự?
2. Viết chương trình tính tổng chẵn, lẽ của 10 số bất kỳ nhập vào từ bàn phím
3. Viết chương trình kiểm tra 1 số nhập vào là số chẵn hay lẻ thông báo kết quả
4. Hãy cho biết vòng lặp sau chạy mấy lần? vì sao?
a. K:=7;
While (K=7) Do write(“ lap lan thu may”);
b. H:=3;n:=6;
While (n<= 20) Do H:=H+n;
c. For F:=3 to 23 do readln
Mọi người giúp em . Mai là kiểm tra rồi ạ
Viết chương trình trong Pascal sử dụng câu lệnh lặp While...do... hoặc Repeat...until... để tính tổng n số tự nhiên sao cho \(0< n\le100\). Nếu n không nằm trong khoảng này, chương trình sẽ cho nhập lại số n.
Viết chương trình tính tổng S=1+2!+3!+.....+n! trong pascal
-viết cấu trúc câu lệnh điều kiện . cho VD
- mô tả thuật toán cho bài toán tính tổng S= 1+2+3+...+50
viết chương trình pascal tính tổng của T:
T = \(\frac{1}{2}+\frac{1}{3}+\frac{1}{4}+...+\frac{1}{50}\)
đây là tin học lớp 8 nhé , mong mn giúp hộ
Bài 1: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các sốchẵn từ 0 đến N? (N là số tự nhiên được nhập vào từ bàn phím)Gợi ý: Các số chẵn là các số chia 2 dư 0, ta có thể sử dụng mod để chia lấy phầndư.Bài 2: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các sốchẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số?Gợi ý: Tương tự bài 4 (sử dụng thêm biến tạm để khi in ra 15 số thì xuống dòng).GIải giúp mình mới mình đang cần gấp
Đọc tiếp
Bài 1: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số
chẵn từ 0 đến N? (N là số tự nhiên được nhập vào từ bàn phím)
Gợi ý: Các số chẵn là các số chia 2 dư 0, ta có thể sử dụng mod để chia lấy phần
dư.
Bài 2: Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số
chẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số?
Gợi ý: Tương tự bài 4 (sử dụng thêm biến tạm để khi in ra 15 số thì xuống dòng).
GIải giúp mình mới mình đang cần gấp
viết chương trình pascal tính tổng các số từ 1 đến n, n nhập từ bàn phím, sử dụng biến mảng
Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACALBƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:1.1. Dem-0;1.2. Sum-0.Bƣớc 2: Trong khi dem N thì:2.1. Nhập giá trị số thực x từ bàn phím;2.2. Sum - Sum + x;2.3. Dem-Dem +1;Bƣớc 3: TB- Sum/N;Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N 5;45; 55; 67; 91Program So_nguyen_to;Uses crt;Var n, i: Integer;BEGINclrscr;Write(„Nhap...
Đọc tiếp
Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„Khong la so nguyen to‟);
else
Begin
i: = 2;
While ( n mod I <>0) do i: = i+1;
If I = n then writeln(n,; la so nguyen to‟)
else writeln(n,‟ khong la so nguyen to‟);
end;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.