Room Dành Cho Những Người Mới (Phiên Bản II) click --->>>>>

[zerok]

BO vắng mặt hơi lâu thì phải!! sr mọi người nhiều nha!
hình như room Phiên bản II không thành công như phiên bản trước nên số page chỉ dừng lại ở 5...Bây giờ BO muốn tiếp tục lắm nhưng không biết còn ai quan tâm nữa không!!
Bo sẽ tiếp tục duy trì room này!vì dù sao đây cũng là room mà Bo yêu thích nhất!Bo có nhiều người bạn nhất...

Bo chờ mọi người comeback đó!!!

Có chương trình nào liên quan tới đồ họa thì chia sẻ em với

[devil0604]

http://www.mediafire.com/?mdjwdnkoyzm
Đây là bài pascal liên quan đến đồ họa, để thoát thì bấm phím Q, để là ngày thì bấm phím N, nếu muốn cảnh đêm thì bấm phim D.
Thân
Devil 2 Angel

[zerok]

Thank!
Không bác có unit nào về đồ họa không cái graph củ pascal chậm quá
mà bác có biết dùng bộ nhớ mở rộng không, nếu biết chỉ em cái nhé

[nhat_truong]

Ha, Kidu muốn biết về pascal thì chịu khó qua cái room cũ kiếm mấy cái link ebook bld post lên đó, còn muốn cài đặt thì liên hệ với cogai.

Uses crt;
var  i,j:byte;
begin
clrscr;
for i:=1 to 42 do begin
for j:=42 downto 1 do
if ((2*i)+(4*j)=100) and (j+i=43) then
write(' so ga la ',i,' so tho la ',j);end;
readln
end.

Bài của bạn mystery_man đây! Còn bạn muốn giải bằng toán học thì dùng phương trình là ra ngay.

Theo tui thì nên thế này

var i,j:Integer;
begin
   for i:=1 to 42 do
       begin
           j:=43-i;
           if 2*i+4*j=100 then writeln('So ga, tho lan luot la: ',i,'  ',j);
       end;
   readln;
end.

[=========> Bổ sung bài viết <=========]

Hi !
tui có bài này : cho dãy nguyên A gồm n phần tử ( n=<50) có giá trị trong khoảng (-20 đến 20 )
a. Hãy tạo dãy A
b. Đếm số âm
c. Tính tổng của số lẻ dương
d. Đưa kết quả r màn hình
Mong được sự hướng dẫn của mọi người !

Hình như mọi người nói nhiều hơn là làm

Program unknownname;
Uses crt;
Var A: Array [1..50] of Integer;
    n,i,dem,tong: Integer;

BEGIN
    Clrscr;
    Write('Nhap n: ');   Readln(n);
    dem:=0;   tong:=0;
    Writeln('Day A:');   
    For i:=1 to n do 
        Begin
            A[i]:=Random(20)-Random(20);
            If A[i]<0 then inc(dem);
            If (odd(A[i])) and (A[i]>0) then tong:=tong+A[i];
            Write(A[i]:5);
        End;    
    Writeln('So luong so am:   ',dem);
    Writeln('Tong so le duong: ',tong);
    Readln;
END.