cho 2 dãy bất kì viết chương trình tính tổng 2 dãy đó ( pascal)
Những câu hỏi liên quan
u 3: sử dụng câu lệnh lặp for và câu lệnh lặp while viết chương trình pascal: A, Tính tổng các số chia hết cho 3 trong khoảng từ 1 đến n B, nhập vào 1 dãy gồm n số bất kì, tính tổng các số dương trong dãy vừa nhập C, nhập vào 1 dãy gồm n số bất kì, đếm trong dãy số vừa nhập có bao nhiêu số k (với k nhập từ bàn phím)
Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
Clrscr;
Writeln(' Phan A ');
Write(' Ban hay nhap 1 so n bat ky: ');
Readln(n);
Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
For i:=1 to n do
If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
Write(' Ban hay nhap 1 so m bat ky: ');
Readln(m);
For i:=1 to m do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
S:= S+A[i];
End;
Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
Write(' Ban hay nhap 1 so d bat ky: ');
Readln(d);
Write(' Ban hay nhap so K: ');
Readln(k);
For i:=1 to n do
Begin
Write(' Ban hay nhap hang tu thu ',i,': ');
Readln(A[i]);
If ((A[i] div k)=1)then t:=t+1;
End;
Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.
Đúng 0
Bình luận (0)
cho tệp SONGUYEN.INP, chứa một dãy số nguyên bất kì:
Viết chương trình pascal: Tính tổng các số chẵn trong dãy số nguyên đó. kết quả ghi vào tệp TONG.OUT.
const fi='songuyen.inp'
fo='tong.out'
var f1,f2:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
Bài tập: Minh trao đổi với Hoa như sau: Hoa cho tớ biết một dãy gồm 10 số nguyên bất kì mà bạn nghĩ ra, sau đó tớ sẽ tính tổng các số nguyên là số chẵn rồi thông báo kết quả tổng đó ra màn hình. Em hãy giúp hai bạn viết chương trình Pascal hoàn thiện thực hiện: - Khai báo mảng 1 chiều gồm 10 phần tử chứa các số nguyên. - Nhập giá trị bất kì cho 10 phần tử đó. - Kiểm tra xem những phần tử nào thỏa mãn là số chẵn thì tính tổng. - Thông báo tổng đó ra màn hình.Cảm ơn ạ
Đọc tiếp
Bài tập: Minh trao đổi với Hoa như sau: Hoa cho tớ biết một dãy gồm 10 số nguyên bất kì mà bạn nghĩ ra, sau đó tớ sẽ tính tổng các số nguyên là số chẵn rồi thông báo kết quả tổng đó ra màn hình. Em hãy giúp hai bạn viết chương trình Pascal hoàn thiện thực hiện:
- Khai báo mảng 1 chiều gồm 10 phần tử chứa các số nguyên.
- Nhập giá trị bất kì cho 10 phần tử đó.
- Kiểm tra xem những phần tử nào thỏa mãn là số chẵn thì tính tổng.
- Thông báo tổng đó ra màn hình.
Cảm ơn ạ
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal về chủ đề bất kì có sử dụng biến mảng +Nhập độ dài của dãy +Nhập giá trị các phần tử của dãy +Tính giá trị trung bình của dãy +Tự in ra giá trị trung bình của dãy
uses crt;
var a:array[1..100]of integer;
t,i,n:integer;
begin
clrscr;
write('Nhap do dai cua day:'); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri trung binh cua day la: ',t/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình Pascal để mở tệp "DULIEU.INP", đọc dãy số và tính tổng các số chẵn của dãy số đó:
Cho 1 mảng ( dãy số ) có 10 phàn tử là các số nguyên bất kì . Viết chương trình : a) In ra các phần tử chẵn có trong dãy số b) Tính tổng các phần tử lẻ trong dãy số
giúp mik với mai thi mik thi rồi🙏🙏
Đúng 0
Bình luận (0)
program b1;
uses crt;
var i: integer; a:array[1..100] of integer; s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('cac phan tu chan la:');
s:=0;
for i:=1 to 10 do if a[i] mod 2=0 then writeln(a[i],' ');
write('Tong cac phan tu le la:');
for i:=1 to 10 do if a[i] mod 2<>0 then s:=s+a[i]; write(s);
readln;
end.
Tham khảo!
Đúng 0
Bình luận (0)
(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)
Viết chương trình pascal sử dụng biến mảng để nhập vào một dãy số và in ra tổng của dãy số đó
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
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
Đúng 2
Bình luận (0)
viết chương trình pascal sử dụng biến mảng được nhập từ bàn phím các phần tử của dãy số rồi trình bày dãy số đó theo hàng . Độ dài của dãy số nhập từ bàn phím
GIÚP MÌNH MAI MÌNH KTRA HỌC KÌ RỒI PLSS!!
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
Đúng 3
Bình luận (0)