Nhập vào một mảng A gồm N ( N
Bài 11: Kiểu mảng
Cho dãy số Fibonaci: f1=f2=1 và f(n)=f(n-1) + f(n-2) (n>2)
Viết chương trình từ bàn phím số n và in ra màn hình DÃY SỐ Fiobonaci thứ n.
{Mình muốn in ra màn hình 1 loạt dãy số chứ không phải in ra 1 số Fibonaci}
program fibonaci;
uses crt;
var f:array[1..100]of integer;
n,i,j:integer;
begin
clrscr;
write('n='); readln(n);
f[1]:=1;
f[2]:=1;
i:=2;
repeat
inc(i);
f[i]:=f[i-1]+f[i-2];
until i=n;
writeln(n,' so fibonaci dau tien la: ');
for i:=1 to n do
write(f[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Dãy con đối xứng dài nhấtMột dãy số được gọi là đối xứng nếu các phần tử của nó đọc từ trái qua phải và từ phải qua trái là như nhau/Ví dụ: hoặc là các dãy số đối xứng.Yêu cầu: Cho một dãy số nguyên A có phần tử. Hãy tìm dãy con đối xứng dài nhất trong dãy A, biết rằng dãy con là một dãy gồm nhiều phần tử liên tiếp.Dữ liệu: vào từ file văn bản BAI5.INP:- Dòng 1: số nguyên dương ;- Dòng tiếp theo chứa số nguyên dương Kết quả: ghi ra file văn bản BAI5.OUT một số nguyên duy nhấ...
Đọc tiếp
Dãy con đối xứng dài nhất
Một dãy số được gọi là đối xứng nếu các phần tử của nó đọc từ trái qua phải và từ phải qua trái là như nhau/
Ví dụ: 
hoặc 
là các dãy số đối xứng.
Yêu cầu: Cho một dãy số nguyên A có 
phần tử. Hãy tìm dãy con đối xứng dài nhất trong dãy A, biết rằng dãy con là một dãy gồm nhiều phần tử liên tiếp.
Dữ liệu: vào từ file văn bản BAI5.INP:
- Dòng 1: số nguyên dương 
;
- Dòng tiếp theo chứa 
số nguyên dương 
Kết quả: ghi ra file văn bản BAI5.OUT một số nguyên duy nhất là độ dài dãy con đối xứng dài nhất trong dãy A.
Nhập số nguyên gồm n phần tử (n<=100) và dãy số nguyên A1,A2,...An. Hãy đếm số lượng số chẵn và số lượng số lẻ có trong dãy.
Mọi người giúp em với ạ.
uses crt;
var a:array[1..100]of integer;
i,n,dc,dl:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xu-ly------------------------------}
dc:=0;
dl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dc)
else inc(dl);
end;
writeln('trong day co ',dc,' so chan va ',dl,' so le');
readln;
end.
Đúng 0
Bình luận (0)
tìm vị trí phần tử âm đầu tiên của dãy
uses crt;
var a,b:array[1..100]of integer;
i,n,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
vt:=0;
for i:=1 to n do
if a[i]<0 then
begin
vt:=vt+1;
b[vt]:=a[i];
end;
if vt>0 then
begin
for i:=1 to n do
if b[1]=a[i] then
begin
writeln('Vi tri so am dau tien trong day la: ',i);
break;
end;
end
else writeln('Khong co so am trong day');
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào từ bàn phím mảng 1 chiều, gồm n ptử chứa các số nguyên, tìm và đưa ra ptử nhỏ nhất của máy? Giúp mình với!
program boi_cua_3;
uses crt;
var a:array[1..100] of integer;
n,i:byte;
min:integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('nhap phan tu thu [',i,']= ');
readln(a[i]);
end;
min:=a[1];
for i:= 1 to n do
if min > a[i] then min:=a[i];
writeln('gia tri nho nhat cua day la: ',min);
readln
end.
Đúng 0
Bình luận (0)
9 tháng 2 2017 lúc 19:07
đọc bài toán và thực hiện các yêu cầu bên dưới
nhập vào 1 dãy số nguyên gồm n phần A1,A2...An . hãy đếm xem trong dãy có bao nhiêu phần tử là số âm . hãy in ra các số chia hết cho 2 và 5 .
-khai báo biến
-nhập mảng 1 chiều
-viết chương trình
-in kết quả .
Bạn ơi! Mình viết code thôi, vì chưa có thời gian nên mình chưa test lại, bạn test lại giúp mình, nếu sai thì báo mình nha! (Bạn cố sữa lỗi trước nhé!)
program abc;
uses crt;
var
a: array [1..100] of integer;
i, n, d, d2, d5: integer;
begin
clrscr;
write ('Nhap n: ');
readln (n);
for i:=1 to n do
begin
write ('Nhap so thu ', i, ': ');
readln (a[i]);
end;
d:=0; d2:=0; d5:=0;
for i:=1 to n do
begin
if a[i] <0 then d:=d+1;
if a[i] mod 2 = 0 then d2:=d2+1;
if a[i] mod 5 = 0 then d5:=d5+1;
end;
writeln ('Co ', d, ' so am trong mang.');
writeln ('Co ', d2, ' so chia het cho 2.');
writeln ('Co ', d5, ' so chia het cho 5.');
writeln;
writeln ('Nhan Enter de ket thuc chuong trinh!');
readln;
end.
Đúng 0
Bình luận (1)
BT1. Lập chương trình: nhập từ bàn phím dãy số N số nguyên với N thuộc [0;100]. Tính và in ra màn hình:
a,Tổng các số dương có trong dãy
b,Tổng các số chẵn có trong dãy và số các số chẵn trong dãy
c,Tổng các số chia hết cho 3 và số các số chia hết cho 3.
program baitap;
uses crt;
var a:array[1..100] of integer;
i,j,dem,dem2,n:byte;
S,T,T2:integer;
begin
clrscr;
write('nhap so phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('nhap A[',i,']=');
readln(a[i]);
end;
cau a)===========================
S:=0
for j:= 1 to n do
if a[i] > 0 then
S:= S+a[i];
writeln('tong cac so duong trong day la: ',S);
cau b)=========================
T:=0;
dem:=0;
for i:= 1 to n do
if a[i] mod 2 = 0 then
begin
T:= T+a[i];
dem:=dem+1;
end;
writeln('Vay tong cac so chan co trong day la: ',T);
writeln('co',dem,'so chan co trong day ');
cau c)================================
T2:=0;
dem2:=0;
for i:= 1 to n do
if a[i] mod 3 = 0 then
begin
T2:= T2+a[i];
dem2:=dem2+1;
end;
writeln('Vay tong cac so chia het cho 3 co trong day la: ',T2);
writeln('co',dem2,'so chia het cho 3 co trong day ');
end.
Đúng 0
Bình luận (0)
1. tính trung bình các số thỏa mãn điều kiện ( mảng một chiều )
2. tìm giá trị lớn nhất hoặc giá trị nhỏ nhất ( mảng một chiều )
3. xóa hoặc chèn phần tử ( mảng mọt chiều )
4. tìm một phần tử K bất kì ( trong mảng một chiều )
Mọi người giúp em vs ạ
Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.
Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.
Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.
Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n100000) và dãy n số nguyên.
Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.
Đọc tiếp
Mọi người giúp em vs ạ
Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.
Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.
Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.
Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n<100000) và dãy n số nguyên.
Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.
uses crt; var a,b:array[1..100000]of integer; i,n,kt,j,dem,x,y,kt1:integer; st,st1:string; begin clrscr; write('Nhap n='); readln(n); for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end; dem:=0; for i:=1 to n do if a[i]>1 then begin kt:=0; for j:=2 to a[i]-1 do if a[i] mod j=0 then begin kt:=1; break; end; if kt=0 then begin inc(dem); b[dem]:=a[i]; end; end; for i:=1 to dem do begin str(a[i],st); st1:='' for j:=length(st) downto 1 do st1:=st1+st[j]; val(st1,x,y); kt1:=0; for j:=2 to x-1 do if x mod j=0 then begin kt1:=1; break; end; if kt1=0 then write(a[i]:4); end; readln; end.
Đúng 1
Bình luận (0)