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

[david hien]

cam on nhieu.co gang giai dum 1 phan câu 2, câu 3 cũng được

 

[david hien]

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

Cảm ơn bạn thật nhiều, mong mọi người giúp tiếp 2 bài còn lại.thanks all !!!

 

[hoangnd]

Cho bạn 2 bài khó nè xem làm được không nha:
Bài1:Viết chương trình nhập 1 số nguyên dương N<=1000 và dãy A gồm N số nguyên dương khác nhau từng đôi A[1],A[2],...A[n]. Hãy tìm dãy B gồm nhiều số hạng nhất( không nhất thiết là liên tiếp) của A sao cho với bất kỳ 3 số hạng khác nhau X,Y,Z của B ta luôn có tổng X + Y + Z không lớn hơn tổng các số hạng còn lại của B.
Bài2: Cho 1 dãy N viên bi gồm 3 màu xanh, trắng, đỏ xếp lẫn lộn. Bằng cách đổi chỗ từng cặp viên bi cho nhau, hãy sắp xếp lại dãy bi trên theo trình tự xanh trước, trắng giữa, đỏ sau. Yêu cầu dùng 1 số lần đổi chỗ ít nhât.

 

[humichi]

Làm ơn giúp mình bài tập này ! :

“ sử dụng lênh lặp for....do. câu hỏi như sau: cũng như câu lênh if, có thể dùng câu lệnh for lồng trong một câu lệnh for khác khi thực hiên lặp. sư dụng các câu lệnh for...do lồng nhau để in ra màn hình các số từ 0 đến 99 theo dạng bảng như hình sau:
0[FONT=&quot] [/FONT]1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29
30 21 22 23 24 25 26 27 28 29
……
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99

Chân thành cảm ơn.

 

[humichi]

Làm ơn giúp mình bài tập này ! :

“ sử dụng lênh lặp for....do. câu hỏi như sau: cũng như câu lênh if, có thể dùng câu lệnh for lồng trong một câu lệnh for khác khi thực hiên lặp. sư dụng các câu lệnh for...do lồng nhau để in ra màn hình các số từ 0 đến 99 theo dạng bảng như hình sau:
0 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29
30 21 22 23 24 25 26 27 28 29
……
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99

Chân thành cảm ơn.

 

[ButBi]

Làm ơn giúp mình bài tập này ! :

“ sử dụng lênh lặp for....do. câu hỏi như sau: cũng như câu lênh if, có thể dùng câu lệnh for lồng trong một câu lệnh for khác khi thực hiên lặp. sư dụng các câu lệnh for...do lồng nhau để in ra màn hình các số từ 0 đến 99 theo dạng bảng như hình sau:
0 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29
30 21 22 23 24 25 26 27 28 29
……
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99

Chân thành cảm ơn.

uses crt;
var
i: byte;
j: byte;
begin
for i:= 0 to 9 do
begin
for j:=0 to 9 do
write (10*i+j :4);
writeln;
end;
realn;
end.

 

[beautifullife]

giúp em với
em đang cần gấp
thanks mọi người nhá
Vjết CT nhập mảng 1 chìêu k quá 50 fần tử là các số nguyên,tính và đưa ra màn hình
a) phần tử max âm có trog mảng
b)tồng các p.tử xuất hjên duy nhât trog mảng.
c) đếm xem trog mảg có bao nhiêu p.tử là chjnh phương.
d)đếm xem trog mảg co bn p.tử la sô nguyên tố.
e)đếm xem trog mảg co bn p.tử la số hoàn hảo.
sử dụng chương trình con nha mọi ngươi:haha:

 

[superbk1234]

Ai bt giải bai TP sau ko?nếu dc cảm ơn nhiều!
viết 1 chương trình gồm các chương trình con sau:
nhập mảng
in mảng
tìm số chính phương!
tìm số nguyên tố!
tìm số hoàn hảo!
thanks nhiều nhiều!!!!

 

[heosjucap]

Viết chương trình nhập và lưu trữ hồ sơ của các học sinh trong lớp vào 1 file có tệp là TTHS.txt. Sau đó đọc file TTHS.txt và cất dữ liệu vào 1 mảng, sắp thứ tự hồ sơ học sinh theo điểm trung bình giảm dần. In ra danh sách hồ sơ của các học sinh đó theo thứ tự điểm trung bình giảm dần. Biết hồ sơ của học sinh có thông tin sau : mã học sinh, họ tên, ngày sinh, điểm toán, lý, hoá, văn, ĐTB = (toan*2 + van*2 + ly + hoá)/5

 

[thang26690]

Giúp mình với

Bài 1 : Một công ty có " n " cửa hàng . Biết doanh thu của mỗi cửa hàng trong tháng 2 tháng năm 2010 . viết ctrinh PAsCAL , nhập DL và tính & in ra doanh thu cao nhất , thấp nhất , tổng doanh thu bán hàng trong tháng của các Cửa hàng

Bài 2 : Có 1 tập hợp gồm n chứng từ thanh toán tạm ứng tiền mặt gồm các : số chứng từ , tên NV . số tiền tạm ứng , số tiền đã hoàn ứng . Viết ctrinh PASCAL để nhập số liệu vào , tính & in ra bảng kê số tiền nợ . Bảng gồm các cột STT , tên Nv , số tiền tạm ứng , số tiền hoàn ứng , số tiền nợ , cuối bản có cộng số tiền tạm ứng , liên hoàn ứng , tiền nợ in ra theo trật tự tăng dần của số tiền ứng nợ

Xin cảm ơn ! mình cần rất gấp

 

[vodanhtieutot11]

lam on giai nahnh ho em bai: chọn 100 số tự nhiên bất kì và sắp xếp chung bằng pascal

 

[lan8078]

đề là :viết chương trình nhập 37 điêm của học sinh sau đó sắp xếp theo thứ tự tăng dần

 

[ButBi]

lam on giai nahnh ho em bai: chọn 100 số tự nhiên bất kì và sắp xếp chung bằng pascal

đề là :viết chương trình nhập 37 điêm của học sinh sau đó sắp xếp theo thứ tự tăng dần

Hai bài này tương tự nhau:

var i;j;n: byte;
a: array[1..100] of integer;
begin
write('Ban muon nhap bao nhieu so?');readln;
for i:=1 to n do
begin
write('Ban hay nhap so thu',i,);readln(a);
end;
for i:=1 to n do
for j:=1 to n do
if a > a[j] then
begin min:=a;
a := a[j];
a[j] := min;
end;
Write('Mang duoc sap xep tang dan la: ');
for i:=1 to n do write(a);
readln;
end.

Đại khái là như thế, còn lỗi gì 2 em tự sửa nha.

 

[anhdao]

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.

thế muốn lấy phần ngyên của căn thì dùng câu lệnh gì ạ ????????
em làm bài xét xem dãy có bao nhiêu số nguyên tố ý mà ?????

 

[ButBi]

Thì cứ lấy căn bậc 2 sau đó lấy phần nguyên thôi.

 

[anhlapro26]

Bạn giúp mình đề pas cal : "Vẽ hình lập phương quay trục Ox" nhé . Thanks nhiu`

 

[ButBi]

Bạn giúp mình đề pas cal : "Vẽ hình lập phương quay trục Ox" nhé . Thanks nhiu`

Rất tiếc mình không rành mảng đồ họa trong Pascal. Bạn chịu khó chờ cao thủ vậy :too_sad:

 

[anhlapro26]

Cao thủ tên là gì bạn

 

[anhlapro26]

Mình gặp bài nài khó quá mà search mãi không có :too_sad:

 

[Smile9x]

Làm ơn giải dùm 1 số bài tập...Gấp lắm:
Bài 1: Viết chương trình tính tổng bình phương các số lẻ âm trong 1 dãy số ( n>=100)
Bài 2: Viết chương trình nhập 1 chuỗi kí tự sau đó đếm số kí tự bất kì xuất hiện trong chuỗi ( kí tự này đc nhập từ bàn phím)
Bài 3: Cho tệp duliet.txt . Hãy đếm và đưa ra màn hình số kí tự số có trong tệp?
Bài 4: Nhập số nguyên dương ( n<= 1000) và trả lời các câu hỏi sau:
a> Số n có fải là số chính phương ?
b> Nếu n không phải là số chính phương hãy tìm 1 cách thay 1 chữ số nào đó của n = 1 chữ số khác để thu được số mới n' là số chính phương mà sai khác số n là ít nhất
Bài 5/ Một số tự nhiên là Palindrom. Nếu chữ số được viết theo thứ tự ngược lại chính là số đó. Hãy lập trình thực hiện các việc sau:
a> tìm tất cả các số tự nhiên nhỏ hơn n ( n nhập từ bàn phím) mà khi bình phương nên cho ta 1 số palidrom.
b> tìm các số palidrom nhỏ hơn n mà khi bình phương nên cho ta 1 số palidrom
Bài 6. Cho dãy số nguyên gồm n phần tử
a> Viết chương trình in ra số đc lặp nhiều nhất trong dãy và số lần lặp của nó.
b> tìm đoạn con dài nhất gồm các fần tử tăng liên tiếp trong dãy và số lượng của chúng