Đến nội dung


Chú ý

Nếu các bạn đăng kí thành viên mà không nhận được email kích hoạt thì hãy kiểm tra thùng thư rác (spam). Nếu không biết cách truy cập vào thùng thư rác thì các bạn chịu khó Google hoặc đăng câu hỏi vào mục Hướng dẫn - Trợ giúp để thành viên khác có thể hỗ trợ.


Hình ảnh

Đề và code Pascal


  • Please log in to reply
Chủ đề này có 31 trả lời

#21 Zjkar

Zjkar

    Hạ sĩ

  • Thành viên
  • 82 Bài viết
  • Giới tính:Không khai báo

Đã gửi 10-03-2016 - 11:52

mình làm bằng turbo pascal mà

À vậy để mình tải turbo về chạy :icon6:



#22 Zjkar

Zjkar

    Hạ sĩ

  • Thành viên
  • 82 Bài viết
  • Giới tính:Không khai báo

Đã gửi 10-03-2016 - 23:23

Còn cái này để mai tôi up cho. Giờ tui phải ôn bài mai kiểm tra 

Haha,,ta làm được rồi  :icon10:  :icon10:  :icon10: ....nhuuwng mà sao cái ct thì chạy được trên free mà không chạy được trên turbo,,,,lý giả mình vs ....

Bạn lý giải hộ rồi mình post bài lên cho ... ;)



#23 The Dark Hunter

The Dark Hunter

    Binh nhất

  • Thành viên mới
  • 20 Bài viết
  • Giới tính:Nam

Đã gửi 23-03-2016 - 18:11

Uses crt;
Var n,j,k,i,a: integer;
max,m: char;
s: string;
Begin
clrscr;
write('nhap s=');
readln(s);
n := length(s);
i := n;
max :='*';
If s[n]<s[n-1] Then
Begin
m := s[n];
s[n] := s[n-1];
s[n-1] := m;
End
Else
Begin
While s[i]>=s[i-1] Do dec(i);
For j:=i To n Do
If (s[i-1]>s[j])And(s[j]>max) Then
Begin
max:=s[i];
m := s[i-1];
s[i-1] := s[j];
s[j] := m;
End;
For j:=i To n-1 Do
For k:=j+1 To n Do
If s[j]<s[k] Then
Begin
m := s[j];
s[j] := s[k];
s[k] := m;
End;
End;
if s[1]='0' then delete(s,1,1);
if i<0 then writeln('khong tim dc so hoan vi nhu vay') else
writeln('so can tim la:',s);
readln
End.
đây là ct tìm số hoán vị của 1 số sao cho số hoán vị có giá trị max và nhỏ hơn số ban đầu

Đức HD Trần:  :icon6:  :D  :like 

 

AK36 Trường THPT Quang Trung tỉnh Hải Dương


#24 The Dark Hunter

The Dark Hunter

    Binh nhất

  • Thành viên mới
  • 20 Bài viết
  • Giới tính:Nam

Đã gửi 23-03-2016 - 23:05

ai nghĩ cho mk thuật toán tách n ra thành các chữ số.sao cho các chữ số đó có tổng bằng n và tích chúng lớn nhất

Đức HD Trần:  :icon6:  :D  :like 

 

AK36 Trường THPT Quang Trung tỉnh Hải Dương


#25 Master Kaiser

Master Kaiser

    Thượng sĩ

  • Thành viên
  • 278 Bài viết
  • Giới tính:Nam
  • Đến từ:Hà Nội
  • Sở thích:Toán học , Lập trình , Thiên Văn ^^

Đã gửi 29-03-2016 - 12:57

" Trên hai đuờng thẳng song song L1 và L2, Người ta đánh dấu trên mỗi đường N 
Điểm, Các điểm  trên đường  thẳng L1 Được đánh số từ 1 đến N, từ  trái qua phải,  
còn các điểm  trên đường  thẳng L2 được đánh số bởi P[1],P[2],...P[N] cũng từ  trái 
qua phải, trong đó P[1],P[2],..P[N] là một hoán vị của các số 1,2,...N  
Ta gọi các số gán cho các điểm là số hiệu của chúng. Cho phép nối hai điểm trên 2 
đường thẳng có cùng số hiệu. 
Yêu Cầu  : Tìm cách nối được nhiều cặp điểm nhất với điều kiện các đoạn nối không 
được cắt nhau.  
Dữ Liệu : Vào từ File BaiToan2.Inp: 
•  Dòng đầu tiên chứa số nguyên dương N(N<=1000) 
•  Dòng thứ hai chứa các số P[1],P[2],....P[N] 
Kết Quả Ghi Ra File : BaiToan2.Out  
•  Dòng Đầu tiên chứa K là số lượng đoạn nối tìm được 
•  Dòng tiếp theo chứa K số hiệu của các đầu mút của các đoạn nối được ghi theo thứ 
tự tăng dần.  
Ví Dụ : 
      WIRES.INP          WIRES.OUT 
9   5 
2 5 3 8 7 4 6 9 1   2 3 4 6 9

               Master Kaiser

                                   Liên hệ facebook : https://www.facebook...uyenhoanganh238


#26 hocpascal

hocpascal

    Trung sĩ

  • Thành viên
  • 110 Bài viết

Đã gửi 03-09-2016 - 19:58

Chào các pro ai có ý tưởng làm bài này xin cho ý kiến

Xét số nguyên dương X và gọi S là tổng tất cả các ước dương của 2004X .

Cần tính phần dư của S cho 29. Ví dụ, với X=1, các ước dương của 20041 là 1, 2, 3, 4, 6, 12, 167, 334, 501, 668, 1002 và 2004. Do đó S = 4704 và số dư của S chia cho 29 là      6.

Input: Gồm nhiều bộ test, mỗi bộ là một số nguyên X (1 ≤ X ≤ 107).  Bộ test với X = 0 để kết thúc chương trình và không cần xử lý.

Output: Với mỗi bộ test, in ra một kết quả của số dư S chia cho 29 trên 1 dòng.

Example:

Input

1

10000

0

Output

6

10


Bài viết đã được chỉnh sửa nội dung bởi hocpascal: 03-09-2016 - 19:59


#27 hocpascal

hocpascal

    Trung sĩ

  • Thành viên
  • 110 Bài viết

Đã gửi 03-09-2016 - 22:18

Code  được rồi các pro xem hộ cái

var i,t,k,m,n,p,a:longint;
function TUoc(n:longint):int64;
var s:int64; i:longint;
begin
s:=0;
for i:=1 to n do
if n mod i= 0 then s:=s+i;
tuoc:=s;
end;
begin
readln(m,n,p);
a:=tuoc(m); write(a); writeln;
t:=a mod p; k:=t;
if n=0 then
write('1') else
if n=1 then write(t)
else
begin
i:=1;
while i<=n-1 do
begin
k:=k*t;
if k>=p then k:=k mod p;
inc(i);
end;
write(k);
end;
readln
end.


#28 hocpascal

hocpascal

    Trung sĩ

  • Thành viên
  • 110 Bài viết

Đã gửi 04-09-2016 - 20:28

Mời các pro code bài này

Tìm a,g biết: (ag)^4=a*****g



#29 hocpascal

hocpascal

    Trung sĩ

  • Thành viên
  • 110 Bài viết

Đã gửi 08-09-2016 - 22:29

Pro xem hộ cách giải bài này với số lớn nha

Cho số nguyên dương N, người ta tạo ra số nguyên M bằng cách viết liên tiếp nhau các số nguyên từ 1 đến N. Ví dụ với N=13, ta có M=12345678910111213. Người ta tiến hành thu gọn M bằng cách :

Trong số M lần lượt xóa tất cả các chữ số ở vị trí chẵn thu được số M1, sau đó trong M1 ta lại xóa tất cả các số ở vị trí lẻ thu được số M2, rồi lại xóa tất cả các chữ số ở vị trí chẵn trong M2 , … cho đến khi chỉ còn lại một chữ số.
M=12345678910111213 => M1=135790123 => M2 = 3702 => M3=30 => M4=0
Yêu cầu : Cho số nguyên dương N( 1<N<10^6 +1). Hãy xác định chữ số còn lại sau quá trình thu gọn số M tương ứng.
Nhập vào từ bàn phím một số nguyên dương N.
Xuất ra màn hình chữ số còn lại sau khi thu gọn số M.



#30 Linh22lim

Linh22lim

    Lính mới

  • Thành viên mới
  • 2 Bài viết

Đã gửi 12-02-2017 - 08:20

Giup toi chuong trinh pascal: chen mang b gom m phân tư vào mãng a gồm n phần tử tại vị trí k

#31 Tuongtaylor

Tuongtaylor

    Binh nhất

  • Thành viên mới
  • 20 Bài viết
  • Giới tính:Nam
  • Đến từ:Tỉnh Nghệ An
  • Sở thích:Thích ca sĩ TAYLOR SWIFT,học toán,lập trình pascal,scratch,logo,...

Đã gửi 21-12-2019 - 09:54

Giup toi chuong trinh pascal: chen mang b gom m phân tư vào mãng a gồm n phần tử tại vị trí k

Bạn nên sửa đề thành chèn số n vào mảng a tại vị trí k thì sẽ làm được.



#32 Tuongtaylor

Tuongtaylor

    Binh nhất

  • Thành viên mới
  • 20 Bài viết
  • Giới tính:Nam
  • Đến từ:Tỉnh Nghệ An
  • Sở thích:Thích ca sĩ TAYLOR SWIFT,học toán,lập trình pascal,scratch,logo,...

Đã gửi 21-12-2019 - 10:12

Chào các pro ai có ý tưởng làm bài này xin cho ý kiến

Xét số nguyên dương X và gọi S là tổng tất cả các ước dương của 2004X .

Cần tính phần dư của S cho 29. Ví dụ, với X=1, các ước dương của 20041 là 1, 2, 3, 4, 6, 12, 167, 334, 501, 668, 1002 và 2004. Do đó S = 4704 và số dư của S chia cho 29 là      6.

Input: Gồm nhiều bộ test, mỗi bộ là một số nguyên X (1 ≤ X ≤ 107).  Bộ test với X = 0 để kết thúc chương trình và không cần xử lý.

Output: Với mỗi bộ test, in ra một kết quả của số dư S chia cho 29 trên 1 dòng.

Example:

Input

1

10000

0

Output

6

10

Đây là bài giải của mình:

uses crt;
var s,t,i,x:longint;
begin
clrscr;
Write('x=');readln(x);
s:=1;  t:=0;
If x=0 then exit else
for i:=1 to x do s:=s*2004;  Writeln(s);
for i:=1 to s do If s mod i=0 then t:=t+i; s:=t mod 29;
Writeln(s);
readln
end.





1 người đang xem chủ đề

0 thành viên, 1 khách, 0 thành viên ẩn danh