Viết chương trình nhập vào 1 dãy số nguyên,tính tổng của các số có trong dãy số vừa nhập.
-Xác định bài toán
-Mô tả thuật toán
-Viết chương trình
Những câu hỏi liên quan
Hãy xác định bài toán , mô tả thuật toán và viết chương trình nhập vào một dãy số nguyên với n phần tử ( n được nhập từ bàn phím ) , tìm giá trị nhỏ nhất và tích của dãy số đó
uses crt;
var a:array[1..100]of integer;
i,n,nn,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
nn:=a[1];
s:=1;
for i:=1 to n do
begin
if nn>a[i] then nn:=a[i];
s:=s*a[i];
end;
writeln(nn);
writeln(s);
readln;
end.
Đúng 2
Bình luận (0)
14 tháng 5 2021 lúc 15:21
Câu 2: (5 điểm)
a) Hãy mô tả thuật toán chương trình nhập n số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím
b)Viết chương trình nhập dãy số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím.
Câu 2:
a) Mô tả thuật toán
-Bước 1: Nhập n và nhập dãy số
-Bước 2: dem←0; i←1; t←0;
-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất t và dem
-Bước 7: Kết thúc
Đúng 2
Bình luận (0)
Câu 2:
b) uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Em hãy xác định input , output mô tả thuật toán và viết chương trình cho các bài toán sau : Bài1: nhập vào một số nguyên xem có chia hết cho 5 hay Bài 2: nhập vào số tự nhiên gồm 4 chữ số in các chữ số ra màn hình
Bài 1:
Input: Số n
Output: Kiểm tra xem n có chia hết cho 5 ko
Mô tả thuật toán:
Bước 1: Nhập n
Bước 2: Nếu n chia hết cho 5 thì xuất ra có
không thì không
Bước 3: Kết thúc
Viết ct:
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n mod 5=0 then write('yes')
else write('no');
readln;
end.
Đúng 0
Bình luận (0)
Giả sử cần viết chương trình nhập vào hai số nguyên, in ra màn hình số lớn hơn.a). Hãy mô tả các bước của thuật toán để giải quyết bài toán trên. b). Viết chương trình Pascal để thực hiện thuật toán đó.
Đọc tiếp
Giả sử cần viết chương trình nhập vào hai số nguyên, in ra màn hình số lớn hơn.
a). Hãy mô tả các bước của thuật toán để giải quyết bài toán trên.
b). Viết chương trình Pascal để thực hiện thuật toán đó.
25 tháng 12 2022 lúc 20:32
Hãy xác định, mô tả thuật toán và viết chương trình tính tổng của hai số được nhập từ bàn phím
2, Cho số nguyên x, y được nhập vào từ bàn phím.
a, Xác định input, output và mô tả thuật toán " so sánh 2 số đó "
b, Viết chương trình mô tả thuật toán trên
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Đúng 2
Bình luận (1)
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Đúng 2
Bình luận (1)
1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Bài 3:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập điểm cho 3 môn: toán, lý, hóa. Sau đó tính tổng điểm 3 môn và hiện tổng điểm ra màn hình. Yêu cầu: 1. Xác định bài toán. 2. Mô tả thuật toán. Viết chương trình.
Chương trình :
#include<iostream>
using namespace std;
int main() {
int a, b, c;
cout << "điểm toán : "; cin >> a;
cout << "điểm lý : "; cin >> b;
cout << "điểm hóa : "; cin >> c;
cout << "tổng điểm ba môn là : " << a + b + c;
return 0;
}
mô tả :
tạo ba biến a, b, c tượng trưng cho ba con điểm toán, lý, hóa có thể nhập từ bàn phím.
in ra màn hình tổng ba biến.
xác đinh đề :
Nhìn đề ta thấy
Đúng 0
Bình luận (1)