[Tin] Pascan và vấn đề thi HSG Tin học

[thanhkhoeo[D2T Physics]]

http://www.topcoder.com/news/category/alg/

pro vô cùng Thành đọc không hiểu luôn

[voimonster]

http://www.topcoder.com/news/category/alg/

pro vô cùng Thành đọc không hiểu luôn

Đọc chả hiều gì hết ? Trang web gì đây ?

[voimonster]

Bài 2 kiểm tra học kì :
Không biết có đúng ko ?

Program Baitap2;
Uses Crt;
Var
Demchan,demle,demam,demduong,dem3:integer;
I,j,t,n:integer;
Mang:array [1..1000] of integer;
Begin
Clrscr;
Writeln(‘Nhap so nguyen N :’);
Readln(n);
For i:=1 to n do then
Begin
Writeln(‘Nhap so thu ‘,i,’ ‘);
Readln(mang[i]);
End;

Demam:=0;
For i:=1 to n do then
If (mang[i]<0) then demam:=demam+1;
Demduong:=n-demam;

Demchan:=0;
For i:=1 to n do then
If (mang[i] mod 2 =0) then demchan:=demchan+1;
Demle:=n-demchan;

Dem3:=0;
For i:=1 to n do
If (man[i]) mod 3 =0) then dem3:=dem3+1;

For j:=n downto 2 do
For i:=1 to j-1 do
If (mang[i]<mang[i+1] then
Begin
T:=mang[i];
Mang[i]:=mang[i+1];
Mang[i+1]:=t;
End;
Writeln(‘So cac phan tu chan la :’,demchan);
Writeln(‘So cac phan tu le la :’,demle);
Writeln(‘So cac phan tu duong la :’,demduong);
Writeln(‘So cac phan tu am la :’,demam);
Writeln(‘So cac phan tu chia het cho 3 la :’,dem3);
Writeln;
Writeln(‘Day so duoc sap xep la:’);
For i:=1 to n do write(mang[i]);
Readln;
End.

[thanhkhoeo[D2T Physics]]

Bài 2 kiểm tra học kì :
Không biết có đúng ko ?

Program Baitap2;
Uses Crt;
Var
Demchan,demle,demam,demduong,dem3:integer;
I,j,t,n:integer;
Mang:array [1..1000] of integer;
Begin
Clrscr;
Writeln(‘Nhap so nguyen N :’);
Readln(n);
For i:=1 to n do then
Begin
Writeln(‘Nhap so thu ‘,i,’ ‘);
Readln(mang[i]);
End;

Demam:=0;
For i:=1 to n do then
If (mang[i]<0) then demam:=demam+1;
Demduong:=n-demam;{ duong là> 0 vậy = 0 thì sao


Demchan:=0;
For i:=1 to n do then
If (mang[i] mod 2 =0) then demchan:=demchan+1;
Demle:=n-demchan;

Dem3:=0;
For i:=1 to n do
If (man[i]) mod 3 =0) then dem3:=dem3+1;

For j:=n downto 2 do
For i:=1 to j-1 do
If (mang[i]<mang[i+1] then
Begin
T:=mang[i];
Mang[i]:=mang[i+1];
Mang[i+1]:=t;
End;
Writeln(‘So cac phan tu chan la :’,demchan);
Writeln(‘So cac phan tu le la :’,demle);
Writeln(‘So cac phan tu duong la :’,demduong);
Writeln(‘So cac phan tu am la :’,demam);
Writeln(‘So cac phan tu chia het cho 3 la :’,dem3);
Writeln;
Writeln(‘Day so duoc sap xep la:’);
For i:=1 to n do write(mang[i]);
Readln;
End.

cái thể loạo này mà Toàn làm vớ vẩn quá

[voimonster]

cái thể loạo này mà Toàn làm vớ vẩn quá

Ta chỉ cần loại số âm thì số còn lại là số dương !
Không lẻ số 0 ko phải là số dương à ?

[thanhkhoeo[D2T Physics]]

: 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

[voimonster]

: 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

Sữa gì chứ. Cái này đúng hết rồi.