có ai dùm mình bài Pascal này ko?Khó wá!!!

[malycat]

có thể giải ra rõ ràng đc ko?

[dmtmufc]

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

[yandan]

àh cái này là bài cấp số nhân trong toán hoc chứ ji

[malycat]

ủ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?

[phuclun]

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ộ

[pippit2hn]

...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.

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.

test thử:

A0=1
A1=1
n=6
A6=4

[malycat]

cám ơn ban nhieu nha. dung la minh moi hoc thoi.

[batai04]

cho day so nguyen gom n so tim day khong giam dai nhat va in ra day do

[haplinhavxt]

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]

[haplinhavxt]

  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.