1. Viết chương trình in ra màn hình 5 chữ Xin chào. và 5 chữ Tôi là Pascal. 2. Viết chương trình tính tổng từ 1 - 50. 3. Viết chương trình tính tích từ 1 - 10 4. Viết chương trình tính dãy số thập phân từ 1+1/2+1/3+1/4+...+1/9 5. Viết chương trình tính dãy số thập phân từ 1+1/3+1

hobrine

2 năm trước

1. Viết chương trình in ra màn hình 5 chữ Xin chào. và 5 chữ Tôi là Pascal. 2. Viết chương trình tính tổng từ 1 - 50. 3. Viết chương trình tính tích từ 1 - 10 4. Viết chương trình tính dãy số thập phân từ 1+1/2+1/3+1/4+...+1/9 5. Viết chương trình tính dãy số thập phân từ 1+1/3+1/5+1/7+1/9. Hướng dẫn: For i:=1 to 9 do if i mod 2 <> 0 then Tong := Tong + 1/i; 6. Viết chương trình tính dãy số thập phân từ 1+1/2+1/4+1/6+1/8. 7. Nhập vào 1 số nguyên n . In ra tổng các số từ 1 - n 8. Viết chương trình nhập vào từ bàn phím số nguyên dương n, sử dụng câu lệnh điều kiện để tính tổng các giá trị là số chẵn trong phạm vi từ 1 dến n, sau đó in ra màn hình. Gợi ý: Cũng giống như bài tính tổng các số từ 1 đến n, nhưng ta phải sử thêm câu điều kiện IF và phép chia lấy phần dư. - Nhập n; - Từ giá trị trên của n hãy viết vòng lặp với giá trị i chạy từ 1 đến n. Ứng với mỗi giá trị của i, ta kiểm tra xem nếu i là số chẵn thì tính tổng. 9. Ta kí hiệu n! là tích n số tự nhiên đầu tiên: n! = 1.2.3...n. Viết chương trình tính n! với n là số tự nhiên được nhập vào từ bàn phím. Hướng dẫn: - Nhập n; - Tich:=1; - For i:=1 to n do Tich:=Tich*i; 10.Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n, m là các số nguyên dương nhập vào từ bàn phím. Gợi ý: - Nhập n, m; - Vòng lặp For với giá trị i chạy từ n đến m. 11.Viết chương trình tính tổng bình phương các số tự nhiên từ 1 đến n, biết giá trị của n được nhập vào từ bàn phím Gợi ý: Cũng giống như bài tính tổng các số từ 1 đến n, ta thực hiện các bước sau: - Em hãy viết chương trình xuất ra thông báo giới thiệu tện chương trình và yêu cầu người sử dụng nhập giá trị của n, đọc giá trị của n - Từ giá trị trên của n hãy viết vòng lặp để tính tổng bình phương của các số tự nhiên theo cú pháp: tổng = tổng + i*i (Với i chạy từ 1 đến N). 12. Viết chương trình xuất ra các bội số của B trong phạm vi từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím Gợi ý: Cách làm tương tự bài trên - Em hãy viết chương trình xuất ra thông báo giới thiệu tên chương trình và yêu cầu người sử dụng nhập giá trị của B,N; đọc giá trị của B,N - Từ giá trị trên của B, N hãy viết vòng lặp với giá trị i chạy từ B đến N. Ứng với mỗi giá trị của i, ta kiểm tra xem nếu i chia hết cho B thì in giá trị của i ra màn hình. 13. Viết chương trình kiểm tra xem C có phải là số hoàn hảo hay không? Gợi ý: C là số hoàn hảo khi tổng các ước từ 1 đến C-1 bằng chính C. Ví dụ: 6 là số hoàn hảo vì có tổng các ước nhỏ hơn nó bằng chính nó: 1+2+3=6 - Em hãy viết chương trình xuất ra thông báo giới thiệu tên chương trình và yêu cầu người sử dụng nhập giá trị của C, đọc giá trị của C - Từ giá trị trên của C hãy viết vòng lặp với giá trị i chạy từ 1 đến C-1. Ứng với mỗi giá trị của i, ta kiểm tra xem nếu C chia hết cho i thì in tính tổng.

Loga Sinh Học lớp 12

0 lượt thích 35 xem

1 trả lời

Thích Trả lời

hongphuc79

program bai1;

uses crt;

var i:integer;

begin clrscr;

for i:=1 to 5 do

begin

writeln('Xin chao');

writeln('Toi la Pascal');

end;

readln;

end.

program bai2;

uses crt;

var S:integer;

i:integer;

begin clrscr;

S:=0;

for i:=1 to 50 do

S:=S+i;

write('Tong tu 1-50 la: ',S);

readln;

end.

program bai3;

uses crt;

var T:integer;

i:integer;

begin clrscr;

T:=1;

for i:=1 to 10 do

T:=T*i;

write('Tich tu 1-10 la: ',T);

readln;

end.

program bai4;

uses crt;

var S:integer;

i:integer;

begin clrscr;

S:=0

for i:=1 to 9 do

S:=S+1/i;

write('Tong day so la: ',S);

readln;

end.

program bai5;

uses crt;

var S:integer;

i:integer;

begin clrscr;

S:=0

for i:=1 to 9 do

if i mod 2<>0 then

S:=S+1/i;

write('Tong day so la: ',S);

readln;

end.

program bai6;

uses crt;

var S:integer;

i:integer;

begin clrscr;

S:=0

for i:=1 to 8 do

if i mod 2=0 then

S:=S+1/i;

write('Tong day so la: ',S);

readln;

end.

program bai7;

uses crt;

var S:integer;

i,n:integer;

begin clrscr;

writeln('Nhap 1 so n: '); readln(n);

S:=0;

for i:=1 to n do

S:=S+i;

write('Tong la: ',S);

readln;

end.

program bai8;

uses crt;

var S:integer;

i,n:integer;

begin clrscr;

writeln('Nhap 1 so n: '); readln(n);

S:=0;

for i:=1 to n do

if i mod 2=0 then

S:=S+i;

write('Tong la: ',S);

readln;

end.

program bai9;

uses crt;

var T:integer;

i,n:integer;

begin clrscr;

writeln('Nhap 1 so n: '); readln(n);

T:=1;

for i:=1 to n do

T:=T*i;

write('n! la: ',T);

readln;

end.

10)

program bai10;

uses crt;

var S:integer;

i,n,m:integer;

begin clrscr;

writeln('Nhap n va m: '); readln(n,m);

S:=0;

for i:=n to m do

S:=S+i;

write('Tong la: ',S);

readln;

end.

11)

program bai11;

uses crt;

var S:integer;

i,n:integer;

begin clrscr;

writeln('Nhap 1 so n: '); readln(n);

S:=0;

for i:=1 to n do

S:=S+i*i;

write('Tong la: ',S);

readln;

end.

12)

program bai12;

uses crt;

var b:integer;

i,n,B:integer;

begin clrscr;

writeln('Nhap so n va B: '); readln(n,B);

b:=0;

for i:=B to n do

if i mod B=0 then

write('Boi cua B la: ',b);

readln;

end.

13)

program ct;

uses crt;

var C,i:integer;

S:longint;

begin clrscr;

write('Nhap so C: '); readln(C);

S:=0;

for i:=1 to (C-1) do

if (C mod i=0) then S:=S+i;

if S=C then writeln(C,' la so hoan hao')

else writeln(C,' khong phai la so hoan hao');

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

nguyenthinga28121988

#include <iostream>
using namespace std;
int main() {
for(int i=0;i<10;i++){
if(i<5){
cout<<"Xin chao"<<endl;
}
else{
cout<<"Toi la pascal"<<endl;
}
}
//samon247
return 0;
}

#include <iostream>
using namespace std;
int main() {
int S=0;
for(int i=1;i<=50;i++){
S+=i;
}
cout<<"Tong 1 den 50 la: "<<S;
//samon247
return 0;
}

#include <iostream>
using namespace std;
int main() {
int S=1;
for(int i=1;i<=10;i++){
S*=i;
}
cout<<"Tong 1 den 10 la: "<<S;
//samon247
return 0;
}

#include <iostream>
using namespace std;
int main() {
float S=0;
for(float i=1;i<10;i++){
S+=1/i;
}
cout<<S;
//samon247
return 0;
}

#include <iostream>
using namespace std;
int main() {
float S=0;
for(float i=1;i<10;i++){
if((int)i%2==1){
S+=1/i;
}
}
cout<<S;
//samon247
return 0;
}

#include <iostream>
using namespace std;
int main() {
float S=0;
for(float i=1;i<10;i++){
if((int)i%2==0){
S+=1/i;
}
}
cout<<S;
//samon247
return 0;
}

#include <iostream>
using namespace std;
int main() {
int n,S=0;
cin>>n;
for(float i=1;i<n;i++){
S+=i;
}
cout<<S;
//samon247
return 0;
}

#include <iostream>
using namespace std;
int main() {
int n,S=0;
cin>>n;
for(float i=1;i<n;i++){
if((int)i%2==0){
S+=i;
}
}
cout<<S;
//samon247
return 0;
}

#include <iostream>
using namespace std;
int main() {
int s=1,n;
cin>>n;
for(int i=1;i<=n;i++){
s*=i;
}
cout<<s;
//samon247
return 0;
}

10.

#include <iostream>
using namespace std;
int main() {
int s=0,m,n;
cin>>m>>n;
for(;m<=n;m++){
s+=m;
}
cout<<s;
//samon247
return 0;
}

11.

#include <iostream>
using namespace std;
int main() {
int s=0,n;
cin>>n;
for(int i=1;i<=n;i++){
s+=i*i;
}
cout<<s;
//samon247
return 0;
}

12.

#include <iostream>
using namespace std;
int main() {
int B,n;
cin>>B>>n;
for(int i=1;i<=n;i++){
if(i%B==0){
cout<<i<<" ";
}
}
//samon247
return 0;
}

13.

#include <iostream>
using namespace std;
int main() {
int c,c1=0;
cin>>c;
for(int i=1;i<c;i++){
if(c%i==0){
c1+=i;
}
}
if(c1==c){
cout<<"YES";
return 0;
}
cout<<"NO";
//samon247
return 0;
}

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Tìm lỗi sai và sửa hộ mình với 3 câu thôi 1. Nowadays people are more aware of the fact that wildlife all over the world which is in danger. 2. If they could borrow enough money, they would buy a new plough machine. 3. Can you able to speak a little louder? I cannot listen to you very well.

Ngày ngày mặt trời đi qua trên lăng Thấy một mặt trời trong lăng rất đỏ Ngày ngày dòng người đi trong thương nhớ Kết tràng hoa dâng bảy mươi chín mùa xuân. Hãy viết đoạn văn (khoảng 5-7 câu) có sử dụng thành phần biệt lập

Viết đoạn văn 7 đến 10 câu về nội dung và ý nghĩa bài Đức tính giản dị của Bác Hồ trong đó có sử dụng một câu đặc biệt

Hoạt động nào sau đây không phải trong quá trình giảm phân A. Tạo tinh trùng B. Tạo trứng C. Vật chất di truyền được ổn định Đ. Tạo tế bào đơn bội (n) Trả lời và giải thích cho mình với ạ !!

viết đoạn văn bày tỏ suy nghĩ của em về những cái xấu trong xã hội

Tìm x: a) x + 4/15 = -3/10 b) ( 2x + 1/2 ) ( 4/5 -x ) = 0 Giúp mình với ạ mình cần gấp ;-;

Ngày ngày mặt trời đi qua trên lăng Thấy một mặt trời trong lăng rất đỏ Ngày ngày dòng người đi trong thương nhớ Kết tràng hoa dâng bảy mươi chín mùa xuân. Hãy viết một đoạn văn có sử dụng thành phần biệt lập và hãy chỉ rõ(khoảng 5 câu)

m để đồ thị hàm số y = ( m^2 - 1 )x - 3 đi qua điểm A ( 2,7 )

Vì sao vacxin vô hoạt lại có thời gian miễn dịch ngắn hơn vacxin nhược độc

Câu 1: Tính diện tích hình thang có độ dài hai đáy là 18cm và 12cm, chiều cao 9 cm. A: 135 cm^2 B: 315 cm^2 C: 135 cm D: 153 cm^2 Câu 2. Tính chu vi hình tròn có đường kính d = 2,5 cm. A. 70,5 cm^2 B. 75,5 cm^2 C. 78,5 cm^2 D. 87,5 cm^2 Câu 3: Thể tích hình hộp chữ nhật có chiều dài 7cm, chiều rộng 4cm, chiều cao 8cm. A: 222 cm^2 B: 224 cm^2 C: 223 cm^2 D: 153 cm^2 Câu 4: Tính thể tich hình lập phương có cạnh 2,6. A: 17,500 cm^2 B: 17,506 cm^2 C: 17,570 cm^2 D: 17,576 cm^2 Anh chi giup em lam may bai nay nhe anh chi thien tai hoc giỏi

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến