»----¤¤ [V]ăn 0710 - [B]orn to shine ¤¤----»

t đc chiếc vương miện :x =)) thích thú quá :">
mỗi tội cbị bài hát mà chưa hát đc :">
 
Bùi Mai Trang đã viết:
t đc chiếc vương miện :x =)) thích thú quá :">
mỗi tội cbị bài hát mà chưa hát đc :">
Nhấn để mở rộng...

theo em đáng lẽ chị Mai Trang phải nhặt đc tờ giấy có ghi phần shaking mới đúng=)) =)) =))

----------

Em hơi bất ngờ vì hôm wa chị Mai Trang hiền quá,chả thể hiện cá tính gì cả>:) >:) >:)
 
Hnay mình học văn rất chất lượng các bạn ạ:-@ , chép được gần 6 trang rưỡi. Và có 1 bạn đang nghe giảng thì tự nhiên bị nôn >:) >:) . Lúc ra lấy xe thì cả khu gửi xe biến mất như truyện cổ tích :-ss :)) . Buổi học hôm nay thật là thú vị và khó quên=D>

----------

À quên, mai ai đi xem live concert ở L'Espace với mình không, hay lắm :x
 
=)) no no no bođỳ :))
Đứa nào làm tin rồi up lên đây hộ phát đi :"> :*

"Mây vẩn từng không chim bay đi
Khí trời u uất hận chia li" :x
 
Có đứa anh nè em:))
Làm hộ 1 bài thôi nhé, a làm theo nguyện vọng của Anh Phương, liệu mà suy nghĩ nghiêm túc Phương nhé:))

bài số chính phương


Uses crt;
var m,n,i,j,x,d:longint;
A:array[1..100,1..100] of longint;
BEGIN
clrscr;
Write('Nhap m:');
Readln(m);
Write('Nhap n:');
Readln(n);
Writeln('Nhap cac so nguyen cho mang:');
For I:=1 to m do
For J:=1 to n do
begin
Write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
clrscr;
For i:=1 to m do
begin
For J:=1 to n do write(a[i,j]:4);
writeln;
end;
d:=0;
For I:=1 to m do
For J:=1 to n do
Begin
x:=round(sqrt(a[i,j]));
If (x*x=a[i,j]) then D:=d+1;
end;
Writeln('So luong so chinh phuong la:',d);
readln;
END.
 
Chỉnh sửa lần cuối:
Làm hộ 1 bài thôi nhé, a làm theo nguyện vọng của Anh Phương, liệu mà suy nghĩ nghiêm túc Phương nhé
Nhấn để mở rộng...
Suy nghĩ nghiêm túc về vấn đề j ạ? :))
 
Thôi giúp nốt bài này vậy

Uses crt;
var m,n,i,j,x,d,k:longint;
A:array[1..100,1..100] of longint;
BEGIN
clrscr;
Write('Nhap m:');
Readln(m);
Write('Nhap n:');
Readln(n);
Writeln('Nhap cac so nguyen cho mang:');
For I:=1 to m do
For J:=1 to n do
begin
Write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
clrscr;
For i:=1 to m do
begin
For J:=1 to n do write(a[i,j]:4);
writeln;
end;
d:=m*n;
For I:=1 to m do
For J:=1 to n do
begin
X:=a[i,j];
If (x=0) or (x=1) then d:=d-1 else
begin
For k:=2 to x-1 do
If (x mod k=0) then
begin
d:=d-1;
break;
end;
end;
end;
Writeln('So luong so nguyen to la:',d);
readln;
END.

----------

Anh xóa cả 2 bài đi nhá cô Phương kia:|
 
Trần Hoàng Nam đã viết:
Có đứa anh nè em:))
Làm hộ 1 bài thôi nhé, a làm theo nguyện vọng của Anh Phương, liệu mà suy nghĩ nghiêm túc Phương nhé:))

bài số chính phương


Uses crt;
var m,n,i,j,x,d:longint;
A:array[1..100,1..100] of longint;
BEGIN
clrscr;
Write('Nhap m:');
Readln(m);
Write('Nhap n:');
Readln(n);
Writeln('Nhap cac so nguyen cho mang:');
For I:=1 to m do
For J:=1 to n do
begin
Write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
clrscr;
For i:=1 to m do
begin
For J:=1 to n do write(a[i,j]:4);
writeln;
end;
d:=0;
For I:=1 to m do
For J:=1 to n do
Begin
x:=round(sqrt(a[i,j]));
If (x*x=a[i,j]) then D:=d+1;
end;
Writeln('So luong so chinh phuong la:',d);
readln;
END.
Nhấn để mở rộng...


-----------------------------------------

Uses crt;
var m,n,i,j,x,d,k:longint;
A:array[1..100,1..100] of longint;
BEGIN
clrscr;
Write('Nhap m:');
Readln(m);
Write('Nhap n:');
Readln(n);
Writeln('Nhap cac so nguyen cho mang:');
For I:=1 to m do
For J:=1 to n do
begin
Write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
clrscr;
For i:=1 to m do
begin
For J:=1 to n do write(a[i,j]:4);
writeln;
end;
d:=m*n;
For I:=1 to m do
For J:=1 to n do
begin
X:=a[i,j];
If (x=0) or (x=1) then d:=d-1 else
begin
For k:=2 to x-1 do
If (x mod k=0) then
begin
d:=d-1;
break;
end;
end;
end;
Writeln('So luong so nguyen to la:',d);
readln;
END.

------------

a nam chờ tí, e qoute rồi :"> h anh cứ giải quyết con phương thoải mái :)) mà a vs nó có chn j vs nhau thế :-" :-"

thz anh nam nhiều nhé :x :x
 
Cảm ơn anh Nam lắm í :* :">
Em sẽ làm spy cho anh nhiệt tình :))
 
a ơi save file ntnào?? :(( :">

----------

hiz save rồi thì ko biết nó ở đâu :| nghe lời con đoi search rồi mà vẫn ko ra :| lạ nhỉ??? :((
 
Vừa ấn send rồi... nhẹ cả ng :) Tao run nó lỗi 200 nhưng mà kệ :) vì từ ngày học pascal cách đây mấy năm rất hay gặp lỗi này, chả quan tâm đến nó! Anh Nam có biết thì cho e hỏi tại sao lại có nó :)! Cảm ơn anh nhiều :x

@mata: C:\program files\tp ---> thử xem :)

Ôi thật đáng ngạc nhiên là mình lại bắt đầu muốn bắt tay với pascal :-s
 
hiz thực sự là m` ko tìm ra :(( vđề là m` save nó là 28_V_KT.PAS rồi, sau thì mình save as nó bảo là trùng tên, nó bảo có overwrite ko, mình yes xong vẫn ko thấy có chn j xảy ra :(( thế là dư lào ??? :(( làm tn bh :((
 
yah! t cũng làm xong rồi!:-" t đã tìm đc 1 địa chỉ đáng tin cậy k phải các bạn lớp tin rồi:"> lần sau khỏi xoắn:x :-j khà khà
 
Nguyễn Phương Anh đã viết:
Vừa ấn send rồi... nhẹ cả ng :) Tao run nó lỗi 200 nhưng mà kệ :) vì từ ngày học pascal cách đây mấy năm rất hay gặp lỗi này, chả quan tâm đến nó! Anh Nam có biết thì cho e hỏi tại sao lại có nó :)! Cảm ơn anh nhiều :x

@mata: C:\program files\tp ---> thử xem :)

Ôi thật đáng ngạc nhiên là mình lại bắt đầu muốn bắt tay với pascal :-s
Nhấn để mở rộng...

làm cái khỉ gì đẫy chị?có khó o ạ?
 
Lỗi 200 thì bỏ dòng uses crt; và dòng clrscr; nhé:)
Thực ra a làm trên pas rồi mới cóp sang,anh cũng ngại up file lên, chịu khó đánh lại các em nhé:)
-------------------
Cô Phương spy đến đâu rồi:-?
 
Chỉnh sửa lần cuối:
Chúng m ơi t đang điênnnnnnnnnnnnnn. LIV của tao thắng rồi :x :x :x :x. Cuồngggggggggggggg!!!!!!!!!!!
 
Bạn phải đăng nhập hoặc đăng ký để phản hồi tại đây.
Back
Bên trên