$\color{red}{\fbox{Group 1}\bigstar\text{Topic thực hành}\bigstar} $

S

sky_net115

Làm được roài :D Đang bập bõm thôi ^^!
Dạo nì bận quá >.< Mà pic này mỗi mình tui thôi sao :(( trước nhiều ngừoi đăng kí hùng hổ lắm cơ mà :|
 
M

mikelhpdatke

Làm được roài :D Đang bập bõm thôi ^^!
Dạo nì bận quá >.< Mà pic này mỗi mình tui thôi sao :(( trước nhiều ngừoi đăng kí hùng hổ lắm cơ mà :|

Đây là tình trạng chung của tất cả các pic hiện nay @@!
Thử bài nữa đây a :-\"
[FONT=&quot]Viết chương trình tính tổng bình phương của các số âm trong một mảng gồm N phần tử.[/FONT]
 
N

nguyenthanhchau119911

Cho mình hỏi làm xong bài thì có gửi cho ad để coi không?
Nếu gửi thì gửi vào đâu mình không biết.
 
C

cuong276

Haizzz. Khởi động với bài dễ dễ 1 chút đã chứ.

Viết chương trình nhập vào 1 mảng số nguyên rồi in ra màn hình. Sau đó tính tổng các số chia hết cho 5
 
1

11thanhkhoeo

Mã:
for i:= 1 to n do 
    begin 
         tong :=tong+ a[i]; 
         for j:=1 to 4 do 
              if a[i] mod 5 = j then 
                   tong:=tong-a[i]l
    end;
 
S

sky_net115

Gặp một bài toán có giai thừa? không biết viết giai thừa trong pascal như thế nào cả?
tính tổng của
e = 1+ 1/1! +1/2! + 1/3! + .... + 1/n! cho đến khi 1/n! nhỏ hơn 2.10^-6
 
M

mikelhpdatke

Vừa chạy vòng for vừa thực hiện!

Mã:
sum:=1;
s:=1;
For i:=1 to n do
   Begin
     s:=s*i;
     sum:=sum+1/s;
   End
 
1

11thanhkhoeo

Viết hàm mà chạy

Viết function giai thừa

Rồi while 1/gt(n)>.... do

@ Dat: n đâu hả chú
 
Top Bottom