Tin thì anh không biết nhưng mà nói về toán thì câu trên em viết sai rồi !
Tin thì anh không biết nhưng mà nói về toán thì câu trên em viết sai rồi !
Pavel Osipovich Sukhoi is my idol !
Chào cậu ,cậu là queen_bee cô bé bupbê dễ thương của lớp b11 đó hả.Cậu xinh gái quá ,tớ rất muốn được làm quen .
Tớ xin được tự giới thiệu :tớ là con trai ,học trường đào duy từ ,tớ bằng tuổi cậu,rất có thể chúng ta có duyên và đã từng gặp nhau ở đâu rồi đó.
Cậu ép nic yahoo của tớ nhé :atlantic_fly(vì tớ chưa biết nic yahoo của cậu)
[QUOTE=atlantic_fly;186106]Tin thì anh không biết nhưng mà nói về toán thì câu trên em viết sai rồi ![/QUOT>
? Ai viết sai. Ủa mình cứ tưởng số 0 là số dương chứ.
Lần sửa cuối bởi voimonster, ngày 21-01-2011 lúc 08:08 PM.
cậu xem lại cách sắp xếp mảng đi nhé
theo thành thì thế này cơ
for i:= 1 to n-1 do
for j:=2 to n do
if a[i] > a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:= t;
end;
Lần sửa cuối bởi thanhkhoeo, ngày 17-03-2011 lúc 08:25 PM.
Tôi muốn làm nên tất cả
: Lập chuơng trinh nhập hai số nguyê n ,m vµ mảng A(mxn)
- Viết thủ tục nhập
- Viết thủ tục in ra mảng dạng ma trận
- Xây dựng thủ tục sắp xếp theo thứ tự tăng dần từ trên xuống dưới. từ trái sang phải.
uses crt;
var a:array[1..100,1..100] of integer;
i, j ,n ,m, k ,l : integer;
procedure nhap;
begin
clrscr;
Write(' nhap so hang ');
readln(n);
write(' nhap so cot ');
readln(m);
for i := 1 to n do
for j := 1 to m do
begin
{ write(' nhap a[',i,',',j,' ]= '); "{}
a[i,j]:= random (1000) ;
end;
end;
procedure inmatran;
begin
for i:= 1 to n do
begin
for j:= 1 to m do write(a[i,j]:4);
writeln;
end;
end;
procedure hoandoi(var x,y:integer);
var t:integer;
begin
t:=y;
y:=x;
x:=t;
end;
procedure sapxeptang(var x,y:integer);
begin
if x>y then
hoandoi(x,y);
end;
function nguyento(x:integer):boolean;
var i:integer;
begin
nguyento:=true;
for i:= 2 to x do if x mod i = 0 then nguyento:=false;
end;
Begin
randomize;
nhap;
inmatran;
{ write(' nhap 2 hang can doi vi tri');
readln(k,l);
for i:= 1 to m do
hoandoi(a[k,i],a[l,i]);
inmatran; }
{ for l:=1 to n*m do }
begin
for i:= 1 to n do
for j:=1 to m do
for k:= 2 to j do
sapxeptang(a[i,j],a[i,k]);
for i := 1 to n -1 do
sapxeptang(a[m,i],a[1,i+1]);
for i:= 1 to m do
for j:= 2 to n do
for k:= 1 to j do
sapxeptang(a[k,i],a[j,i]);
end;writeln;
inmatran;
readln;
end.
sửa hộ thành cái đi
Lần sửa cuối bởi thanhkhoeo, ngày 17-03-2011 lúc 08:25 PM.
Tôi muốn làm nên tất cả
hix hix chạy thử mà không đc không biết sai ở đâu
Lần sửa cuối bởi thanhkhoeo, ngày 17-03-2011 lúc 08:26 PM.
Tôi muốn làm nên tất cả
uses crt;
var a:array[1..100,1..100] of integer;
x,i, j ,n ,m, k ,l : integer;
procedure nhap;
begin
Write(' nhap so hang ');
readln(n);
write(' nhap so cot ');
readln(m);
for i := 1 to n do
for j := 1 to m do
begin
write(' nhap a[',i,',',j,' ]= ');
readln(a[i,j]);
{ a[i,j]:=random(10); {PO}
end;
end;
procedure inmatran;
begin
for i:= 1 to n do
begin
for j:= 1 to m do write(a[i,j]:4);
writeln;
end;
end;
procedure hoandoi(var x,y:integer);
var t:integer;
begin
t:=y;
y:=x;
x:=t;
end;
procedure sapxeptang(var x,y:integer);
begin
if x>y then
hoandoi(x,y);
end;
function nguyento(x:integer):boolean;
var i:integer;
begin
nguyento:=true;
if (x=0) or (x=1) then nguyento:=false;
for i:= 2 to x-1 do if x mod i = 0 then nguyento:=false;
end;
function duongcheop(nl:integer):integer;
begin
x:=0;
for i:=1 to nl do
x:=x+a[i,nl+1-i];
duongcheop:=x;
end;
function duongcheoc(nl:integer):integer;
begin
x:=0;
for i:=1 to nl do
x:=x+a[i,i];
duongcheoc:=x
end;
Begin clrscr;
{ randomize; }
nhap;
inmatran;
write(' nhap 2 hang can doi vi tri');
readln(k,l);
for i:= 1 to m do
hoandoi(a[k,i],a[l,i]);
inmatran;
writeln;
for i:= 1 to m do
for j:= 2 to n do
for k:= 1 to j do
sapxeptang(a[k,i],a[j,i]);
for i:=1 to n do
for j:=2 to m do
for k:=1 to j do
sapxeptang(a[i,k],a[i,j]);
inmatran;
readln;
{ for i:= 1 to n do
for j:= 1 to m -1 do
for k:= 2 to m do
begin
sapxeptang(a[i,j],a[i,k]);
if a[m,i]>a[1,i+1] then hoandoi(a[m,i],a[1,i+1]);
end;
}
for i := 1 to n do
for j := 1 to m do
if nguyento(a[i,j]) = true then writeln(a[i,j], 'la nguyen to tropng mang');
readln;
if m=n then write('tong duong cheo chinh ',duongcheoc(n),' duong cheo phu ' , duongcheop(n));
readln;
end.
ĐÂY LÀ Đáp án chính xác đề thầy sy cho hôm chủ nhật
Lần sửa cuối bởi thanhkhoeo, ngày 17-03-2011 lúc 08:26 PM.
Tôi muốn làm nên tất cả
Bài 2/1999 - Tổ chức tham quan
Trong đợt tổ chức đi tham quan danh lam thắng cảnh của thành phố Hồ Chí Minh, Ban tổ chức hội thi Tin học trẻ tổ chức cho N đoàn ( đánh từ số 1 đến N) mỗi đoàn đi thăm quan một địa điểm khác nhau. Đoàn thứ i đi thăm địa điểm ở cách Khách sạn Hoàng Đế di km (i=1,2,...., N). Hội thi có M xe taxi đánh số từ 1 đến M (MN) để phục vụ việc đưa các đoàn đi thăm quan. Xe thứ j có mức tiêu thụ xăng là vj đơn vị thể tích/km.
Yêu cầu: Hãy chọn N xe để phục vụ việc đưa các đoàn đi thăm quan, mỗi xe chỉ phục vụ một đoàn, sao cho tổng chi phí xăng cần sử dụng là ít nhất.Dữ li
ệu: File văn bản P2.INP:
- Dòng đầu tiên chứa hai số nguyên dương N, M (NM200);
- Dòng thứ hai chứa các số nguyên dương d1, d2, ..., dN;
- Dòng thứ ba chứa các số nguyên dương v1, v2, ..., vM.
- Các số trên cùng một dòng được ghi khác nhau bởi dấu trắng.
Kết quả: Ghi ra file văn bản P2.OUT:
- Dòng đầu tiên chứa tổng lượng xăng dầu cần dùng cho việc đưa các đoàn đi thăm quan (không tính lượt về);
- Dòng thứ i trong số N dòng tiếp theo ghi chỉ số xe phục vụ đoàn i (i=1, 2, ..., N).
Lần sửa cuối bởi thanhkhoeo, ngày 17-03-2011 lúc 08:26 PM.
Tôi muốn làm nên tất cả
bài 1
N-mino là hình thu được từ N hình vuông 11 ghép lại (cạnh kề cạnh). Hai n-mino được gọi là đồng nhất nếu chúng có thể đặt chồng khít lên nhau.
Bạn hãy lập chương trình tính và vẽ ra tất cả các N-mino trên màn hình. Số n nhập từ bàn phím.
Ví dụ: Với N=3 chỉ có hai loại N-mino sau đây:
3-mino thẳng 3-mino hình thước thợ
Chú ý: Gọi Mn là số các n-mino khác nhau thì ta có M1=1, M2=1, M3=2, M4=5, M5=12, M6=35,...
bài 2:Mạng tế bào có dạng một lưới ô vuông hình chữ nhật. Tại mỗi nhịp thời gian: mỗi ô của lưới chứa tín hiệu là 0 hoặc 1 và có thể truyền tín hiệu trong nó cho một số ô kề cạnh theo một qui luật cho trước. Ô ở góc trên bên trái có thể nhận tín hiệu từ bên ngoài đưa vào. Sau nhịp thời gian đó, tín hiệu ở một ô sẽ là 0 nếu tất cả các tín hiệu truyền đến nó là 0, còn trong trường hợp ngược lại tín hiệu trong nó sẽ là 1. Một ô không nhận được tín hiệu nào từ các ô kề cạnh với nó sẽ giữ nguyên tín hiệu đang có trong nó. Riêng đối với ô trên trái, sau khi truyền tín hiệu chứa trong nó đi, nếu có tín hiệu vào thì ô trên trái sẽ chỉ nhận tín hiệu này, còn nếu không có tín hiệu nào thì ô trên trái cũng hoạt động giống như các ô khác. ở trạng thái đầu tín hiệu trong tất cả các ô là 0.
Yêu cầu: Cho trước số nhịp thời gian T và dãy tín hiệu vào S là một dãy gồm T ký hiệu S1, ..., ST, trong đó Si là 0 hoặc 1 thể hiện có tín hiệu vào, ngược lại Si là X thể hiện không có tín hiệu vào tại nhịp thời gian thứ i (1<= i<=T), hãy xác định trạng thái của lưới sau nhịp thời gian thứ T.
Dữ liệu: vào từ file văn bản P3.INP:
- Dòng đầu tiên chứa 3 số nguyên M, N, T theo thứ tự là số dòng, số cột của lưới và số nhịp thời gian (1<M, N <= 200; T <= 100);
- Dòng thứ hai chứa xâu tín hiệu vào S;
- M dòng tiếp theo mô tả qui luật truyền tin. Dòng thứ i trong số M dòng này chứa N số ai1, ai2, ..., aiN, trong đó giá trị của aij sẽ là 1, 2, 3, 4, 5, 6, 7, 8 tương ứng lần lượt nếu ô (i, j) phải truyền tin cho ô kề cạnh bên trái, bên phải, bên trên, bên dưới, bên trên và bên dưới, bên trái và bên phải, bên trên và bên trái, bên dưới và bên phải (xem hình vẽ); còn nếu ô (i, j) không phải truyền tín hiệu thì aij = 0.
Kết quả: Ghi ra file văn bản P3.OUT gồm M dòng, mỗi dòng là một xâu gồm N ký tự 0 hoặc 1 mô tả trạng thái của lưới sau nhịp thời gian thứ T.
Tôi muốn làm nên tất cả
Có 1 người đang xem chủ đề. (0 thành viên và 1 khách)
Đánh dấu