Nhận giải các đề Pascal và giảng giải về lập trình bằng pascal phổ thông!

[katz_blackie]

nhập một dãy số A từ bàn phím, hãy lập chương trình tính số các số nguyên tố trong dãy và tổng của chúng
thanks trước ạ

 

[dailuong]

nhập một dãy số A từ bàn phím, hãy lập chương trình tính số các số nguyên tố trong dãy và tổng của chúng
thanks trước ạ

[DOWN]https://server1.vnkienthuc.com/file.php?action=download&userid=12&file=pascal%2FNGUYENTO.txt[/DOWN]

 

[ngoquynhquynh]

Em đang cần gấp, mai em phải làm rùi ai giải hộ em với (
nhập vào 1 dãy số, rồi in ra màn hình những số nhỏ nhất, lớn nhất và tính trung bình của dãy số ý

 

[dailuong]

code của bạn nè.
[DOWN]https://server1.vnkienthuc.com/file.php?action=download&userid=12&file=pascal%2FMINMAX.txt[/DOWN]

Ý tưởng thuật toán: Mình sắp xếp mảng theo thứ tự tăng dần. => min = a[1]và max = a[n]. có thắc mắc gì bạn cứ reply lại nha.

 

[ngoquynhquynh]

dạ! em cảm ơn các anh mod nha. :-*

 

[tkduy91]

Em chào các anh, ngày mai em cũng phải thì rùi, em mong các anh giải giúp hộ em bài này
B1: Tính các số Fibonacci
-F1=F2=1
-F= F(n-1) + F(n-2)
n là số nguyên không âm được nhập từ bàn phím

 

[pvthanh06011993]

uses crt;
function nguyento(a:integer):boolean;
var j,dem:integer;
begin
dem:=1;
for j:=2 to a do
if a mod j = 0 then dem:=dem+1;
if dem=2 then nguyento:=true
else nguyento:=false;
end;
function songto(a:integer):boolean;
var m:integer;
begin
if nguyento(a)=true then
begin
m:=0;
while a>0 do
begin
m:=m+(a mod 10);
a:=a div 10;
end;
if nguyento(m)=true then songto:=true
else songto:=false;
end;
end;
var s:string;
i,k,n,count:integer;
begin
write('Nhap chuoi: ');
readln(s);
count:=0;
for i:=1 to length(s) do
if (s>='1') and (s<='9') then
begin
n:=0;
k:=i;
while (s[k]>='1') and (s[k]<='9') do
begin
n:=n*10+(ord(s[k])-48);
k:=k+1;
end;
if songto=true then count:=count+1;
end;
writeln('Trong chuoi co ',count,' so song to');
readln
end.
-------------------------------------
Chương trình của anh không chính xác!
Ví dụ: khi nhập vào chuỗi s,s29m11 cm23 thì khi chạy cho kết quả hiện trên màn hình là Trong chuoi co 4 so song to nhưng trong chuỗi nhập vào chỉ có 3 số song tố. Mong anh giành chút thời gian quý báu xem lại bài giải dùm em. Cảm ơn anh nhiều nhé.

 

[dailuong]

Chương trình của anh không chính xác!
Ví dụ: khi nhập vào chuỗi s,s29m11 cm23 thì khi chạy cho kết quả hiện trên màn hình là Trong chuoi co 4 so song to nhưng trong chuỗi nhập vào chỉ có 3 số song tố. Mong anh giành chút thời gian quý báu xem lại bài giải dùm em. Cảm ơn anh nhiều nhé.

Xin lỗi các bạn về sự sót này. Sai sót này là do cách suy nghĩ khác về số được tách từ chuỗi. '....cm23' mình tách thành 2 số là 23 và 3 (cả 2 cùng là song tố).
Mình đã sửa code theo yêu cầu của bạn đây.
[down]https://server1.vnkienthuc.com/file.php?action=download&userid=12&file=pascal%2FSONGTO_update.txt[/down]

 

[dailuong]

Em chào các anh, ngày mai em cũng phải thì rùi, em mong các anh giải giúp hộ em bài này
B1: Tính các số Fibonacci
-F1=F2=1
-F= F(n-1) + F(n-2)
n là số nguyên không âm được nhập từ bàn phím

Bài này mình áp dụng đệ quy, điểm dừng với n=1 hoặc n=2.
bạn down code tại đây:
[DOWN]https://server1.vnkienthuc.com/file.php?action=download&userid=12&file=pascal%2FFIB.txt[/DOWN]

 

[tranduchuytt2]

mình xin góp 1 bài về mảng một chiều:
đề: Cho phân số m/n (0<m<n; m,n nguyên). Hãy phân tích số này thành tổng các phân số có tử bằng 1 và các số hạng là ít nhất.

 

[tranduchuytt2]

thêm mấy bài nữa nè:
1/Tìm 1000 phần tử đầu tiên theo thứ tự tăng dần mà mỗi phần tử có dạng là tích các luỹ thừa cùa 2,3,5 với số mũ là số tự nhiên.
2/Hãy phân tích số nghuyên dương thành tổng các số hạng của dãy Fibonaxi sao cho ít số hạng nhất.
3/Hãy chia dãy số tự nhiên thành nhiều đoạn nhất có tổng bằng nhau.

 

[ngoquynhquynh]

em có 1 bài như thế này các anh giải giúp hộ em xem nha, thứ 2 tuần sau là em phải nộp bài rùi, tết ở nhà mà mum cũng hok ngon, làm mãi ko ra (
Viết chương trình nhập vào một dãy số nguyên có n phần tử.
a, đưa những phần tử lẻ ra đầu danh sách, những phần tử chẵn về cuối danh sách và in kết quả ra màn hình.
b, Sắp xếp các phần tử lẻ đầu danh sách theo thứ tự tăng dần, sắp xếp các phần tử chẵn cuối danh sách theo thứ tự giảm dần. In danh sách ra màn hinh.....

 

[david hien]

Mình lập ra topic này để nhần giảng giải cho những ai không hiểu j về lập trình pascal phổ thông. Và giải các bài tập về lập trình bằng Pascal.
Nếu ai thắc mắc j về việc lập trình bằng Pascal phổ thông thì vào đây nha.

- Nhờ bạn giúp mình 3 bài:

câu 1: viết chương trình nhập vào độ dài các cạnh của 2 hình chữ nhật. Cho biết có thể đặt 1 trong 2 hình chữ nhật vào hình chữ nhật kia không?

câu 2: ta gọi 1 phép biến đổi cơ bản (i,j) trên xâu là phép hoán vị hai ký tự thứ i và thứ j trong xâu cho nhau. 2 xâu S và T được gọi là tương đương nếu xâu S có thể nhận được từ xâu T sau 1 số hữu hạn phép biến đổi cơ bản. Nhập vào 2 xâu S và T, cho biết chúng có tương đương không? Nếu có, in ra theo đúng thứ tự các cặp (i,j) tương đương với các phép biến đổi đó.


câu 3: giả sử trong 1 file văn bản trên đĩa có tên là DANHBA.TXT lưu danh bạ điện thoại trong thành phố. Cách lưuu như sau:

• dòng đầu lưu 2 số nguyên dương m và n, trong đó m là số máy điện thoại thuộc cơ quan nhà nước, còn n là số máy thuộc tư nhân.
• m dòng tiếp theo lưu thông tin của m máy điện thoại thuộc cơ quan nhà nước, mỗi dòng ghi số điện thoại, một ký tự trắng và sau đó là tên cơ quan.
• n dòng tiếp theo nữa lưu thông tin lần lượt của n máy điện thoại tư nhân, mỗi dòng ghi số điện thoại, một ký tự trắng và sau đó là tên chủ điện thoại.

viết chương trình đọc dữ liệu từ file DANHBA.TXT và in bảng danh bạ điện thoại ra màn hình, các máy điện thoại thuộc cơ quan nhà nước in trước, rồi đến các máy tư nhân. Danh sách in theo 3 cột, cột 1 ghi số điện thoại, cột 2 ghi tên cơ quan nhà nước hoặc tên chủ máy điện thoại, cột 3 ghi loại TN (tư nhân) hoặc NN (nhà nước).


YÊU CẦU:

• khai báo bản ghi là MAYDT bao gồm 3 trường : SoDt, TenChu, Loai.
• thiết lập thủ tục LayDuLieu(a,k) để đọc dữ liệu từ file DANHBA.TXT và lưu vào mảng A (mảng các MATDT) với k là số phần tử của mảng.
• thiết lập thủ tục INKETQUA(a,k) để in ra màn hình danh bạ điện thoại từ mảng A.

- Nhờ bạn giúp dùm mình 3 bài này, mình là giao viên toán thcs đang học hoàn chỉnh đại học có phần (bài thu hoạch pascal tại nhà) do khi học cao đẳng cũng chỉ được học qua loa nên giờ gặp lại không biết làm tư đâu.
- Mình thành thật cảm ơn!
lê thị ngọc quỳnh
hien_focusgroup@yahoo.com
0907714779

 

[flamekingdom]

Mình mong bạn giúp mình bài này:
Viết chương trình căn lề giữa cho mội chuỗi kí tự không giới hạn được nhập vào từ bàn phím.

1 dòng của màn hình hiển thị kq Pascal gồm 256 kí tự
Khi căn lề giữa, xuống dòng theo từ, không phải theo kí tự (ví dụ như kí tự thứ 255, 256, 257 liền kề nhau thì phải xuống hàng cả 3 kí tự)
Input, output tùy ý

 

[gaconti14]

Cho đề hiền quá như vậy hắn giải đc sao ?
Để tui cho đề thử nào ^^
Câu 1 : Viết chương trình tính tổng a,b với a,b là 2 số lên đến 200 chữ số
Câu 2: Viết thuật toán giải sudoku phức tạp bằng pascal
Câu 3: Viết chương trình tính thứ nếu biết ngày tháng năm (tất nhiên là cả năm âm lịch)
Xin mời ^^

 

[Mr Bi]

Xin hỏi bạn đây có phải bài tập Pascal phổ thông không?:waaaht:

 

[gaconti14]

Kiến thức phổ thông đủ làm rồi ^^
Mình học pascal năm 11 đã đủ sức.
Tùy bạn có từng đụng quy hoạch động chưa

 

[gaconti14]

- Nhờ bạn giúp mình 3 bài:

câu 1: viết chương trình nhập vào độ dài các cạnh của 2 hình chữ nhật. Cho biết có thể đặt 1 trong 2 hình chữ nhật vào hình chữ nhật kia không?

câu 2: ta gọi 1 phép biến đổi cơ bản (i,j) trên xâu là phép hoán vị hai ký tự thứ i và thứ j trong xâu cho nhau. 2 xâu S và T được gọi là tương đương nếu xâu S có thể nhận được từ xâu T sau 1 số hữu hạn phép biến đổi cơ bản. Nhập vào 2 xâu S và T, cho biết chúng có tương đương không? Nếu có, in ra theo đúng thứ tự các cặp (i,j) tương đương với các phép biến đổi đó.


câu 3: giả sử trong 1 file văn bản trên đĩa có tên là DANHBA.TXT lưu danh bạ điện thoại trong thành phố. Cách lưuu như sau:

• dòng đầu lưu 2 số nguyên dương m và n, trong đó m là số máy điện thoại thuộc cơ quan nhà nước, còn n là số máy thuộc tư nhân.
• m dòng tiếp theo lưu thông tin của m máy điện thoại thuộc cơ quan nhà nước, mỗi dòng ghi số điện thoại, một ký tự trắng và sau đó là tên cơ quan.
• n dòng tiếp theo nữa lưu thông tin lần lượt của n máy điện thoại tư nhân, mỗi dòng ghi số điện thoại, một ký tự trắng và sau đó là tên chủ điện thoại.

viết chương trình đọc dữ liệu từ file DANHBA.TXT và in bảng danh bạ điện thoại ra màn hình, các máy điện thoại thuộc cơ quan nhà nước in trước, rồi đến các máy tư nhân. Danh sách in theo 3 cột, cột 1 ghi số điện thoại, cột 2 ghi tên cơ quan nhà nước hoặc tên chủ máy điện thoại, cột 3 ghi loại TN (tư nhân) hoặc NN (nhà nước).


YÊU CẦU:

• khai báo bản ghi là MAYDT bao gồm 3 trường : SoDt, TenChu, Loai.
• thiết lập thủ tục LayDuLieu(a,k) để đọc dữ liệu từ file DANHBA.TXT và lưu vào mảng A (mảng các MATDT) với k là số phần tử của mảng.
• thiết lập thủ tục INKETQUA(a,k) để in ra màn hình danh bạ điện thoại từ mảng A.

- Nhờ bạn giúp dùm mình 3 bài này, mình là giao viên toán thcs đang học hoàn chỉnh đại học có phần (bài thu hoạch pascal tại nhà) do khi học cao đẳng cũng chỉ được học qua loa nên giờ gặp lại không biết làm tư đâu.
- Mình thành thật cảm ơn!
lê thị ngọc quỳnh
hien_focusgroup@yahoo.com
0907714779

Lâu không đụng thử phát nào
program Cau1;
var a1,b1,a2,b2,dai1,rong1,dai2,rong2:integer;
Begin
Write('nhap cac canh cua hinh chu nhat thu nhat');
Write('a1=');read(a1);
Write('b1=');read(b1)
Write('nhap cac canh cua hinh chu nhat thu hai');
Write('a2=');read(a2);
Write('b2=');read(b2);
if a1>b1 then
begin
a1=dai1;b1=rong1;
end
else
a1=rong1;b1=dai1;
if a2>b2 then
begin
a2=dai2;b2=rong2;
end
else
a2=rong2;b2=dai2;
if ((dai1>=dai2)and(rong1>=rong2)) then
Write('co the dat hinh 2 vao hinh 1!')
else write('dat bang niem tin )
end.
Câu 2 câu 3 không hiểu đề thì làm bằng hi vọng ==.
Bạn có thể đưa ra cách giải bằng toán không .Vẽ bảng cách làm cũng đc chứ như thế thì chiệu

 

[Chung]

Bạn để sót dấu ; ở dòng T6 từ trên xuống rồi. À còn trường hợp đặt H1 vào H2 thì sao? Đề bài hỏi có đặt được 1 trong 2 hình vào hình kia mà
:big_smile::byebye:

 

[gaconti14]

Đơn giản thôi !
Dòng lệnh if cuối cùng bạn thêm or rồi đảo vị trị rộng dài nữa là xong mà ?