Tin học Pascal | Chương trình tính số cách sơn cao ốc, số đơn điệu

[Stewie2K]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Bài 1: Sơn cao ốc


Một toà cao ốc có N tầng đã được sơn toàn bộ bởi màu trắng. Sau một thời gian sử dụng, người ta nghĩ ra cách “làm mới” nó bằng việc sơn trọn vẹn một số tầng bởi màu xám (các tầng còn lại giữ nguyên màu sơn cũ) sao cho không có hai tầng liên tiếp nào có cùng màu xám.
Chẳng hạn, với N = 3, số cách sơn sẽ là 4.
Yêu cầu: Viết chương trình tính số cách sơn toà cao ốc nói trên.
Dữ liệu: Cho trong tập tin văn bản SONCAOOC.INP, gồm duy nhất số nguyên dương N, với (N ≤ 40), là số tầng của cao ốc.
Kết quả: Ghi ra tập tin văn bản SONCAOOC.OUT, gồm một số nguyên duy nhất là cách sơn tìm được (số này không vượt quá 109).
Ví dụ:

SONCAOOC.INP	SONCAOOC.OUT
3	4

[TBODY] [/TBODY]

Bài 2: SỐ ĐƠN ĐIỆU
Các số nguyên dương: 3748, 58, 859, 32435465768 được gọi là các số đơn điệu do nếu quan sát các chữ số của các số này, ta thấy chúng luân phiên tăng giảm hoặc giảm tăng. Chẳng hạn: 3 < 7 > 4 < 8 và 3 > 2 < 4 > 3 < 5 > 4 < 6 > 5 < 7 > 6 < 8
Số chỉ có một chữ số là số đơn điệu chiều dài 1.
Nhiệm vụ:
Viết chương trình xác định số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của một số cho trước.
Dữ liệu:
Cho trong tập tin văn bản WIGGLE.INP, gồm một dòng duy nhất chứa một số nguyên dương duy nhất có không quá 75 chữ số.
Kết quả:
Cho trong tập tin văn bản WIGGLE.OUT, chứa một số nguyên duy nhất chỉ số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của số tương ứng trong tập tin dữ liệu.
Ví dụ:

WIGGLE.INP	WIGGLE.OUT
3748	4

[TBODY] [/TBODY]

 

[Dũng8a7]

Nek bạn:

uses crt;
var s1,i,s2,s3,n:integer;
f :text;
begin
assign(f,'soncaooc.inp');
reset(f);
read(f,n);
s1:=1;
s2:=1;
for i:=1 to n do
begin
s3:=s1+s2;
s1:=s2;
s2:=s3;
end;
assign(f,'soncaooc.out');
rewrite(f);
write(f,s3-1);
close(f);
end.

 

[Dũng8a7]

Nek bạn:

uses crt;
var s1,i,s2,s3,n:integer;
f :text;
begin
assign(f,'soncaooc.inp');
reset(f);
read(f,n);
s1:=1;
s2:=1;
for i:=1 to n do
begin
s3:=s1+s2;
s1:=s2;
s2:=s3;
end;
assign(f,'soncaooc.out');
rewrite(f);
write(f,s3-1);
close(f);
end.

 

[Dũng8a7]

Bài 1: Sơn cao ốc


Một toà cao ốc có N tầng đã được sơn toàn bộ bởi màu trắng. Sau một thời gian sử dụng, người ta nghĩ ra cách “làm mới” nó bằng việc sơn trọn vẹn một số tầng bởi màu xám (các tầng còn lại giữ nguyên màu sơn cũ) sao cho không có hai tầng liên tiếp nào có cùng màu xám.
Chẳng hạn, với N = 3, số cách sơn sẽ là 4.
Yêu cầu: Viết chương trình tính số cách sơn toà cao ốc nói trên.
Dữ liệu: Cho trong tập tin văn bản SONCAOOC.INP, gồm duy nhất số nguyên dương N, với (N ≤ 40), là số tầng của cao ốc.
Kết quả: Ghi ra tập tin văn bản SONCAOOC.OUT, gồm một số nguyên duy nhất là cách sơn tìm được (số này không vượt quá 109).
Ví dụ:

SONCAOOC.INP	SONCAOOC.OUT
3	4

[TBODY] [/TBODY]

Bài 2: SỐ ĐƠN ĐIỆU
Các số nguyên dương: 3748, 58, 859, 32435465768 được gọi là các số đơn điệu do nếu quan sát các chữ số của các số này, ta thấy chúng luân phiên tăng giảm hoặc giảm tăng. Chẳng hạn: 3 < 7 > 4 < 8 và 3 > 2 < 4 > 3 < 5 > 4 < 6 > 5 < 7 > 6 < 8
Số chỉ có một chữ số là số đơn điệu chiều dài 1.
Nhiệm vụ:
Viết chương trình xác định số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của một số cho trước.
Dữ liệu:
Cho trong tập tin văn bản WIGGLE.INP, gồm một dòng duy nhất chứa một số nguyên dương duy nhất có không quá 75 chữ số.
Kết quả:
Cho trong tập tin văn bản WIGGLE.OUT, chứa một số nguyên duy nhất chỉ số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của số tương ứng trong tập tin dữ liệu.
Ví dụ:

WIGGLE.INP	WIGGLE.OUT
3748	4

[TBODY] [/TBODY]

 

[Dũng8a7]

Bài 1: Sơn cao ốc


Một toà cao ốc có N tầng đã được sơn toàn bộ bởi màu trắng. Sau một thời gian sử dụng, người ta nghĩ ra cách “làm mới” nó bằng việc sơn trọn vẹn một số tầng bởi màu xám (các tầng còn lại giữ nguyên màu sơn cũ) sao cho không có hai tầng liên tiếp nào có cùng màu xám.
Chẳng hạn, với N = 3, số cách sơn sẽ là 4.
Yêu cầu: Viết chương trình tính số cách sơn toà cao ốc nói trên.
Dữ liệu: Cho trong tập tin văn bản SONCAOOC.INP, gồm duy nhất số nguyên dương N, với (N ≤ 40), là số tầng của cao ốc.
Kết quả: Ghi ra tập tin văn bản SONCAOOC.OUT, gồm một số nguyên duy nhất là cách sơn tìm được (số này không vượt quá 109).
Ví dụ:

SONCAOOC.INP	SONCAOOC.OUT
3	4

[TBODY] [/TBODY]

Bài 2: SỐ ĐƠN ĐIỆU
Các số nguyên dương: 3748, 58, 859, 32435465768 được gọi là các số đơn điệu do nếu quan sát các chữ số của các số này, ta thấy chúng luân phiên tăng giảm hoặc giảm tăng. Chẳng hạn: 3 < 7 > 4 < 8 và 3 > 2 < 4 > 3 < 5 > 4 < 6 > 5 < 7 > 6 < 8
Số chỉ có một chữ số là số đơn điệu chiều dài 1.
Nhiệm vụ:
Viết chương trình xác định số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của một số cho trước.
Dữ liệu:
Cho trong tập tin văn bản WIGGLE.INP, gồm một dòng duy nhất chứa một số nguyên dương duy nhất có không quá 75 chữ số.
Kết quả:
Cho trong tập tin văn bản WIGGLE.OUT, chứa một số nguyên duy nhất chỉ số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của số tương ứng trong tập tin dữ liệu.
Ví dụ:

WIGGLE.INP	WIGGLE.OUT
3748	4

[TBODY] [/TBODY]

uses crt;
var s1,i,s2,s3,n:integer;
f :text;
begin
assign(f,'soncaooc.inp');
reset(f);
read(f,n);
s1:=1;
s2:=1;
for i:=1 to n do
begin
s3:=s1+s2;
s1:=s2;
s2:=s3;
end;
assign(f,'soncaooc.out');
rewrite(f);
write(f,s3-1);
close(f);
end.

 

[Stewie2K]

Nek bạn:

uses crt;
var s1,i,s2,s3,n:integer;
f :text;
begin
assign(f,'soncaooc.inp');
reset(f);
read(f,n);
s1:=1;
s2:=1;
for i:=1 to n do
begin
s3:=s1+s2;
s1:=s2;
s2:=s3;
end;
assign(f,'soncaooc.out');
rewrite(f);
write(f,s3-1);
close(f);
end.

Thank bạn

 

[Stewie2K]

Nek bạn:

uses crt;
var s1,i,s2,s3,n:integer;
f :text;
begin
assign(f,'soncaooc.inp');
reset(f);
read(f,n);
s1:=1;
s2:=1;
for i:=1 to n do
begin
s3:=s1+s2;
s1:=s2;
s2:=s3;
end;
assign(f,'soncaooc.out');
rewrite(f);
write(f,s3-1);
close(f);
end.

Thank bạn