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}
Bài 11: Kiểu mảng
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)
Viết phương trình nhập vào 1 dãy số rồi sau đó xuất ra màn hình số nhỏ nhất của dãy vừa nhập ( làm theo kiểu mảng 1 chiều )
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)
nhập vào một dãy số nguyên dương, sắp xếp mảng đó theo chiều tăng dần, tìm max, tìm min,và đưa ra chỉ số, tính tổng của mảng, đưa ra số lượng số chẵn lẻ của mảng.
với mảng đó, đưa ra các chỉ số phần tử có giá trị bằng 10.
ai giúp mình với.=))) pt pascal
uses crt;
type mang=array[1..10000] of longint;
var n,i,j,max,min,vt,d:longint;
a:mang;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do begin
write('a[',i,'=]');
readln(a[i]);
end;
max:=a[1]; vt:=1;
for i:=2 to n do
if a[i]>max then begin
max:=a[i];
vt:=i;
end;
writeln(' phan tu lon nhat la ',max,' o vi tri ',vt);
min:=a[1]; vt:=1;
for i:=2 to n do
if a[i]<min then begin
min:=a[i];
vt:=i;
end;
writeln(' phan tu nho nhat la ',min,' o vi tri ',vt);
d:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(d);
writeln(' co ',d,' so chan');
writeln(' co ',n-d,' so le');
write(' chi so phan tu co gia tri bang 10 la: ');
for i:=1 to n do
if a[i]=10 then write(i,' ');
readln;
end.
Đúng 0
Bình luận (0)
Ai giúp em bài này với?????khó quá hà?
cho mảng A(aij) kích thước mxn. hãy lập mảng B(bi) với các phần tử là:
a. tổng của các phần tử trên hàng tương ứng của A.
b. tích của các phần tử trên hàng tương ứng của A.
c. phần tử nhỏ nhất của các hàng tương ứng của A.
d. trung bình cộng của các phần tử trên hàng tương ứng của A.
e. hiệu của phần tử lớn nhất và phần tử nhỏ nhất của các hàng tương ứng của A.
Đọc tiếp
Ai giúp em bài này với?????khó quá hà?
cho mảng A=(aij) kích thước mxn. hãy lập mảng B=(bi) với các phần tử là:a. tổng của các phần tử trên hàng tương ứng của A.
b. tích của các phần tử trên hàng tương ứng của A.
c. phần tử nhỏ nhất của các hàng tương ứng của A.
d. trung bình cộng của các phần tử trên hàng tương ứng của A.
e. hiệu của phần tử lớn nhất và phần tử nhỏ nhất của các hàng tương ứng của A.
cho một dãy số và một số n, tìm các số trong dãy số có tổng bằng n
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)
viết chương trình nhập vào 1 mảng gồm 10 phần tử là các số nguyên và thực các công việc sau
a) in ra mảng được nhập
b) tính tổng các phần tử trog mảng
c) tìm GTLN của mảng
d) tìm GTNN của mảng
Mn giúp em làm bài pascal này với ạ..e cảm ơn..:))
program bai_tap;
uses crt;
var a:array[1..10] of integer;
n,i:byte;
s,max,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;
{cau a) ======================}
writeln('mang ban vua nhap la: ')
for i:= 1 to n do
write(a[i]:4);
writeln;
{cau b) ======================}
s:=0;
for i:= 1 to n do
s:=s+a[i];
writeln('tong cac phan tu trong mang la: ',s);
{cau c) ======================}
max:=a[1];
for i:= 1 to n do
if max < a[i] then max:=a[i];
writeln('gia tri max la: ',max);
{cau d) ======================}
min:=a[i];
for i:= 1 to n do
if min > a[i] then min:=a[i];
writeln('gia tri nho nhat la: ',min);
readln
end.
Đúng 0
Bình luận (0)
Bài 1: viết công thức và hiển thị tổng các số dương trong dãy số A= { a1, a2,…, an } cho trước.
Bài 2: tạo bảo số sau
1 2 3 4 ... 9
10 11 12 13 ... 19
20 21 22 23 ... 29
nhập vào một dãy số gồm n phần tử kiểu real (0<=n<=100). Hãy đưa ra màn hình các phần tử có giá trị khác nhau và nếu nhiều phần tử có giá tri giống nhau thì chỉ lấy một giá trị ( kiểu mảng 1 chiều)
program xoa_pt_trung_nhau;
uses crt;
var a:array[1..100] of real;
b:array[1..100] of boolean;
n,i,j:byte;
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;
for i:= 1 to n do
b[i]:=true;
for i:= 1 to n-1 do
for j:= i+1 to n do
if a[i]= a[j] then b[j]:=false;
for i:= 1 to n do
if b[i] =true then
write(a[i]:6:2);
readln
end.
Đúng 0
Bình luận (0)
uses crt;
var a,b:array[1..100]of integer;
i,n,j,dem,kt:integer;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
end;
{-------------------------------------------------}
for i:=1 to n do write(a[i]:4);
{---------------------------------------------------}
writeln;
writeln('day so ko trung cua day A=');
b[1]:=a[1];
dem:=1;
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if a[i]=b[j] then kt:=1;
if kt=0 then begin
dem:=dem+1;
b[dem]:=a[i];
end;
end;
for i:=1 to dem do write(b[i]:4);
readln;
end.
Đúng 0
Bình luận (0)