Bài tập PascalForum ĐH Toán K9 - Mái Nhà Tình Bạn


Bài tập PascalXem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Sat Oct 23, 2010 8:56 am
avatar
[Thành viên] - Admin
»♥(¯Administartor¯)♥«
»♥(¯Administartor¯)♥«
Tổng số bài gửi : 127
Points : 381
Được cám ơn : 5
Bị dụ dỗ ngày : 18/10/2010
Age : 26
Đến từ : Niềm đam mê

Bài gửiTiêu đề: Bài tập Pascal
Xem lý lịch thành viên http://dhtoank9.4umer.com

Bài 1.
• Input : m,n ; A[i,j] ( i =1..m ; j=1..n )
• Output : A[i,j]
• Data structure : array[1..100,1..100] of integer
• Design : - docfile
- xuly
- vietfile
• Algorithms :
* docfile
- Mở file ( repave.inp ) để đọc
- Đọc dòng đầu  m,n
- i = 1..m
+ j = 1..n
+ đọc A[ i ,j]
- Đóng file
* Xuly
- i = 1..m
- j = 1..n
- Nếu odd(i) và 0dd(j) thi
+ nếu ngang (i,j) thi xếp 2 dọc con khong xếp 2 ngang
* vietfile
- Mở flie để viết
- i = 1 .. m
- j = 1 .. n
- Viết A[i,j]
- Đong file
* Code :
program bai_1;
type mang=array[1..100,1..100] of integer;
var A:mang;
m,n:integer; F:text;
Procedure docfile;
var i,j:integer;
begin
Assign(F,'repave.inp');
reset(F);
readln(F,m,n);
for i:=1 to m do
begin
for j:=1 to n do
read(F,A[i,j]);
readln(F);
end;
close(F);
end;
Function ngang(d,c:integer):boolean;
begin
ngang:=(A[d,c]=A[d,c+1]) and (A[d+1,c]=A[d+1,c+1]);
end;
Procedure xepdoc( d,c:integer; var k:integer);
begin
A[d,c]:=k; A[d+1,c]:=k;

A[d,c+1]:=k+1; A[d+1,c+1]:=k+1;
end;
Procedure xepngang(d,c:integer; var k:integer);
begin
A[d,c]:=k; A[d,c+1]:=k;
A[d+1,c]:=k+1; A[d+1,c+1]:=k+1;
end;
Procedure xuly;
var i,j,k:integer;
begin
k:=1;
for i:=1 to m do
for j:=1 to n do
if odd(i) and odd(j) then
begin
if ngang(i,j) then xepdoc(i,j,k)
else xepngang(i,j,k);
k:=k+2;
end;
end;
Procedure vietfile;
var i,j:integer;
begin
Assign(F,'repave.out');
Rewrite(F);
for i:=1 to m do
begin
for j:=1 to n do
write(F,A[i,j]:4);

writeln;
end;
close(F);
end;
Begin
docfile;
xuly;
vietfile;
end.



Number one


Bài tập Pascal

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
* Không dùng những ngôn từ thiếu lịch sự.
* Bài viết sưu tầm nên ghi rõ nguồn.
* Tránh spam nhảm không liên quan đến chủ đề.
Mong các bạn viết tiếng Việt có dấu.
Permissions in this forum:Bạn không có quyền trả lời bài viết
Đại Học Toán K9 :: Góc học tập :: Tài liệu học tập :: Tin học-
Bài Viết Mới Bài viết mớiKhông Có Bài Viết Mới Không có bài viết mớiDiễn đàn đã bị khóa Diễn đàn đã bị khóa
Đại Học Toán K9 _ Đại Học Hải Phòng
@ 2010 ĐH Hải Phòng dhtoank9.4umer.com
Hãy cùng nhau vun đắp những kỷ niệm đẹp nhất thời sinh viên
Xem tốt nhất với Firefox và màn hình > 1280x1024
Get Firefox Now Get Windows Media Player Now
Free forum | Văn hóa | Trẻ | © phpBB | Free forum support | Liên hệ | Report an abuse | Free blog