có thể giải ra rõ ràng đc ko?
có thể giải ra rõ ràng đc ko?
bó tay thật đấy. cái nà dùng vòng lặp cơ bản mà.
đoạn code(n,p,q nhập từ bàn phím, i là biến nguyên ):
a[0]:=p;a[1]:=q;
i:=2;
for i:=1 to n do
if ( i div 2)=0 then a[i]:=a[i-2]+p
else a[i]:=a[i-2]+q;
--->xong
àh cái này là bài cấp số nhân trong toán hoc chứ ji
ủa có vậy thôi hả?
Nếu vậy thì Malycat chỉ cần viết program : uses,var,...
Vậy còn phần Begin : writeln, readln,...
Huh?
chài,thôi bó tay bạn luôn rồi,mấy cái này bạn tự làm mới đc,phần này khá căn bản,bạn mà hỏi thì sẽ ko khá đc đâu
Chúc bạn tiến bộ
...xem ra bạn này mới học pascal...làm hộ cho 1 bài làm quen vậy:
phân tích đề bài: nhập p,q đã biết hoặc nhập từ bàn phím. Sau đó nhập n và xuất ra kết quả An.
test thử:Code:uses crt; var p,q,n,an:integer; Begin clrscr; write('nhap gia tri A0: '); readln(p); write('nhap gia tri A1: '); readln(q); write('nhap gia tri n: '); readln(n); if (n mod 2)=0 then an:=((n div 2)+1)* p else an:=((n div 2)+1)* q; Write(' gia tri A',n,' la: ',an); readln; end.
Code:A0=1 A1=1 n=6 A6=4
cám ơn ban nhieu nha. dung la minh moi hoc thoi.
cho day so nguyen gom n so tim day khong giam dai nhat va in ra day do
Chương trình dưới đây in ra dãy b là dãy con dài nhất của a trong đó b[i]> b[i- 1]
Code:var a, b, tr: array [1.. 1000] of longint; n, kq : longint; procedure readf; var i: longint; begin readln( n); for i:= 1 to n do readln( a[i]); end; procedure process; var i, j, k, p, t: longint; begin tr[1]:= 1; b[1]:= 1; p:= 1; kq:= 1; for i:= 2 to n do begin t:= 0; for j:= 1 to i- 1 do if (b[j]> t)and(a[i]> a[j]) then begin t:= b[j]; k:= j; end; b[i]:= t+ 1; if k= 0 then tr[i]:= i else tr[i]:= k; if b[i]> kq then begin kq:= b[i]; p:= i; end; end; writeln( kq); t:= 1; b[1]:= p; while tr[p]<> p do begin p:= tr[p]; inc(t); b[t]:= p; end; for i:= t downto 1 do writeln(a[b[i]]); end; BEGIN readf; process; END.
Bookmarks