You are here: » Home » Bài tập Pascal » Bài tập Pascal - Giải bài tập Pascal (cơ bản)

Bài tập Pascal - Giải bài tập Pascal (cơ bản)

19:15 Dinh

Nhằm đáp ứng nhu cầu hỏi đáp về Pascal của anh em, đây sẽ là khu vực hỏi đáp, giải các bài tập về Pascal. Trước khi đặt câu hỏi, bạn cần lưu ý những điều sau:

- Nội dung câu hỏi phải liên quan tới Pascal.

- Đây là khu vực giải các bài tập cơ bản, các bài tập nâng cao (đệ quy quay lui, quy hoạch động...) không được phép post tại khu vực này (sẽ có mục giải bài tập Pascal nâng cao riêng).

- Nếu được, hãy ân vào biểu tượng

ở phần bên phải của trang web để ủng hộ website phát triển (nếu chưa ấn).

Nhãn: Bài tập Pascal

«Cũ nhất

‹Cũ hơn

401 – 459 trên 459 Mới hơn› Mới nhất»

Unknown nói...: Nhập vào từ bàn phím số nguyên dương N (1≤N≤104).
Hiển thị ra màn hình các kết quả sau:
+ Dòng 1: ghi số N vừa nhập.
+ Dòng 2: ghi số T là tổng các số nằm trong đoạn từ 1 đến N.
+ Dòng 3: ghi số L là tổng các số lẻ và chia hết cho 3 nằm trong đoạn từ 1 đến N.
+ Dòng 4: ghi số U là số lượng các ước nguyên dương của N.
+ Dòng 5: ghi số K là ước số nguyên dương lớn nhất nhỏ hơn N của N (0<K< N).
Unknown nói...: what
Unknown nói...: Giúp mjh với
Viết chương trình tính tổng S= 1+2^2+...+n^2 .sử dụng thủ tục nhập từ bàn phím và hàm tính tổng n
Unknown nói...: Viết chương trình pascal tính tổng S=1+2^2+...+n^2. Sử dụng thủ tục nhập n từ bàn phím và hàm tính tổng n
Unknown nói...: https://scontent.fhan2-3.fna.fbcdn.net/v/t35.0-12/29746776_590245654658484_397461616_o.jpg?_nc_cat=0&oh=b8f11815529c45eecf33b2a12fa5a03f&oe=5AC167B8

ai giải giúp em bài tập trong ảnh này đc ko ạ. tin học trên lớp mà khó qúa đi
Unknown nói...: Viết chương trình nhập vào số nguyên Nhân in ra màn hình tổng các số chẵn hoặc lẽ nhỏ hơn hoặc bằng N
Nặc danh nói...: Hãy lắm
Unknown nói...: Giải hộ tớ bài này:
Viết chương trình nhập hai số tự nhiên m ; n sao cho : 0 < m < 10 (kiểm tra giá trị nhập) và n có k chữ số (10 < k < 255) . In ra màn hình kết quả tích của m và n
Ví dụ : m = 8 và n = 12345678911 thì in ra kết quả :
Tích là : 8 12345678911 = 98765431288
Cipher nói...: Bài 2: Cặp số khác nhau:
Cho một dãy số A gồm N số nguyên (1≤N≤107). Hãy cho biết trong dãy số có bao nhiêu cặp số liền kề nhau mà có giá trị khác nhau.
Dữ liệu vào từ tệp CSKN.INP theo cấu trúc:
- Dòng đầu tiên ghi số N.
- Các dòng tiếp theo ghi N số nguyên của dãy số A, các số ghi trên cùng một dòng cách nhau ít nhất một dấu cách.
Dữ liệu ra ghi vào tệp văn bản CSKN.OUT theo cấu trúc:
- Dòng đầu tiên ghi số M là số cặp số liền kề nhau của dãy số A mà có giá trị khác nhau.
- M dòng tiếp theo, mỗi dòng ghi một cặp chỉ số của 2 số liền kề nhau trong dãy số A mà có giá trị khác nhau, chỉ số nhỏ hơn được ghi trước, các số trên cùng dòng ghi cách nhau ít nhất một dấu cách.
CSKN.INP
7
5 3 3 2 4 4 5
CSKN.OUT
4
1 2
3 4
4 5
6 7
Unknown nói...: Nhập mảng in ra giá trị nhỏ nhất
Unknown nói...: Nhập mảng in ra giá trị nhỏ nhất
Nặc danh nói...: Ai giải cho em các bài này với ạ

1> Hãy mô tả thuật toán tính tổng và tích của các số tự nhiên từ 1 đến N ( với N nguyên dương được nhập vào bàn phím) Sau đó hãy viết CT pascal tương ứng cho mỗi thuật toán.
2> Hãy mô tả thuật toán tìm số tự nhiên N nhỏ nhất để tích các số tự nhiên từ 1 đến N lớn hơn 1000000 . sau đó hãy viết CT pascal tương ứng cho thuật toán đó.
3> Viết CT nhập vào số N nguyên . Nếu nhập N < 0 thì yêu cầu nhập lại sau đó in ra màn hình các số từ 1 đến N
4> Hãy viết CT nhập vào một dãy N số nguyên từ bàn phím ( N là số nguyên dương được nhập vào từ bàn phím và N>10) tính và in ra màn hình theo yêu cầu sau :
a> Tính tổng các số vừa nhập
b> Tính tích các số vừa nhập
c> Tính trung bình của các số vừa nhập
d> tìm số lớn nhất và bé nhất
5> Giả sử các học sinh trong lớp được quản lý theo số thứ tự 1,2,3,4,.. hãy viết CT nhập vào các điểm toán và văn cho N học sinh ( N nguyên dương được nhập từ bàn phím)
a> tính điểm tb cho các học sinh đó và in ra màn hình học sinh có điểm tb cao nhất và thấp nhất
b> Hãy đếm xem có bao nhiêu hs đạt loại giỏi ( toán- văn >=6,5 và điểm tb >= 8,0)
Mong mọi người giúp em với ạ
Unknown nói...: em hỏi bài này với. đếm các phần tử là bội của m và in ra màn hình
Nặc danh nói...: hghghghg
Unknown nói...: Sử dụng ct con để viết ct đọc dữ liệu từ tệp tongl.inp gồm 3 số nguyên x, y, z mỗi số cách nhau 1 ký tự trắng.tính và lưu vào tệp tongl.out tong các số lẻ của 3 số x, y, z
Giúp e vs
Nặc danh nói...: Ai giải giúp mình với
Cho tệp thi. Txt gồm n dòng mỗi dòng chứa một số nguyên hãy tính tổng hoặc hiệu của các dòng rồi ghi kết quả vào tệp KQ. Txt
Nặc danh nói...: Ai giúp em bài này với ạ : Viết Chương trình nhập vào số nguyên n từ bàn phím, in ra màn hình máy tính các số chẵn < hoặc = n
Unknown nói...: Cho mình hỏi bài tập ạ
Nhập vào các số nguyên dương a, b, c, d, m, n, p, q. Tính (a^m-b^n)/(c^p+d^q)
Unknown nói...: giải giúp mình bài này với ạ
viết chương trình tìm số tự nhiên n lớn nhất sao cho n giai thừa nhỏ hơn 1000
Unknown nói...: nhập vào 1 dãy gồm n số nguyên .tìm phần tử lớn nhất rồi Đổi chỗ cho phần tử đầu tiên
Unknown nói...: nhập vào 1 dãy gồm n số nguyên .tìm phần tử lớn nhất rồi Đổi chỗ cho phần tử đầu tiên
Unknown nói...: Ai giải hộ mình bài này với:Cho người dùng nhập vào ma trận m x n.Tìm số lớn nhất cả ở dòng và cột chứa nó(Tất cả các số trong mảng là số nguyên).
Unknown nói...: nhập 1 dãy số từ bàn phím in ra các số hoàn hảo trong dãy đó
Unknown nói...: Giup voi:
Cho các số nguyên dương n, p, q, r (n,p,q,r≤109
). Hãy đếm xem có bao nhiêu số nguyên dương trong đoạn
[1,n] chia hết cho 2 trong ba số p, q, r nhưng không chia hết cho số còn lại.
Nặc danh nói...: cho tập hợp x=[0,1,2,5,6,8,9]
có thể lập đc bao nhiêu số tự nhiên
a, có 2 số
b,có 2 số khác nhau
c,stn lẻ có 3 chữ số
Unknown nói...: giúp mình bài tập này với Xét một dãy số nguyên gồm N phần tử. Viết dãy số đó theo thứ tự từ trái sang phải, sau đó đặt giữa mỗi cặp số cạnh nhau dấu cộng '+' hoặc trừ '-', khi đó ta thu được một biểu thức số học. Ta nói dãy số là chia hết cho K nếu tồn tại một cách đặt dấu để thu được biểu thức số học chia hết cho K.
Yêu cầu: Hãy xác định dãy số đã cho có chia hết cho K hay không.
Dữ liệu: File văn bản BAI3.INP:
• Dòng đầu là hai số nguyên N và K (2 ≤ N ≤ 104, 2 ≤ K ≤ 100).
• Các dòng tiếp theo là dãy N số nguyên, mỗi số có giá trị tuyệt đối không quá 104.
Kết quả: File văn bản BAI3.OUT, ghi số 0 hoặc 1 tương ứng với dãy không chia hết hoặc chia hết cho K.
Unknown nói...: cho em xin lời giải bài toán: nhập vào một xâu kí tự và đếm xem trong xâu có bao nhiêu xâu con là số chính phương
Unknown nói...: Admin giải giúp:
Nhập n từ bàn phím:
a; phân tích n thành tổng các số Fibo với số lượng ít nhất
b; phân tích n thành tổng các Fibo liên tiếp
Unknown nói...: BT1 nhập vào 1 dãy số gồm n phần tử in ra dãy số đó và in ra lần lượt
a) dãy số có bao nhiêu số nguyên tố.
b) các số nguyên tố có trong dãy
c) tổng các số nguyên tố.
Công Đức nói...: Palindrome là xâu ký tự mà nếu đọc nó từ trái sang phải cũng như từ phải sang trái ta được cùng một xâu. Một xâu ký tự bất kỳ luôn có thể biểu diễn như là một dãy các palindrome nếu như ta coi xâu chỉ gồm một ký tự luôn là palindrome.
Ví dụ: Xâu ‘bobseesanna’ có thể biểu diễn dưới dạng dãy các palindrome theo nhiều cách, chẳng hạn
‘bobseesanna’ = ‘bob’ + ‘sees’ + ‘anna’
‘bobseesanna’ = ‘bob’ + ‘s’ + ‘ee’ + ’s’ + ‘anna’
‘bobseesanna’ = ‘b’ +’o’ + ‘b’ + ‘sees’ + ‘a’ + ‘n’ + ‘n’ + ‘a’
Yêu cầu: Cho xâu ký tự s, cần tìm cách biểu diễn xâu s dưới dạng một dãy gồm một số ít nhất các palindrome.
Ví dụ: Cho s = ‘bobseesanna’, do ta có ‘bobseesanna’ = ‘bob’ + ‘sees’ + ‘anna’ và không thể biểu diễn ‘bobseesanna’ bởi ít nhất là 3 palindrome nên biểu diễn này chính là biểu diễn cần tìm.
Dữ liệu: Vào từ file văn bản PALINDR.INP gồm một dòng chứa xâu ký tự s gồm không quá 255 ký tự.
Kết quả: Đưa ra màn hình đồng thời ghi vào file văn bản PALINDR.OUT:
- Dòng đầu tiên ghi k là số lượng ít nhất các palindrome trong biểu diễn tìm được;
- Dòng thứ i trong số k dòng tiếp theo ghi palindrome pi (i = 1, 2, ..., k) sao cho :
s = p1p2...pk.
giúp mình vs
Nặc danh nói...: Viết chương trình để tìm năm sinh của Nguyễn Du biết đến năm 1786 tuổi của ông bằng tổng các chữ số năm ông sinh ra (Pascal)???????????
Mình nghĩ mà ko ra
Unknown nói...: Viết chương trình để tìm năm sinh của Nguyễn Du biết đến năm 1786 tuổi của ông bằng tổng các chữ số năm ông sinh ra (Pascal)???????????
Unknown nói...: giải hộ e vs ạ
viết thuật toán tìm kiếm tuần tự cho dãy N:a1,a2,a3,ai,.... an và số k. Hãy cho biết trong dãy có bao nhiêu ước của k và bội của k
Unknown nói...: Lập phương trình để viết ngược số a là từ 123456789 thành 987654321
Unknown nói...: Readln(toan,li,hoa);
Tb:=(toan*2+li*3+hoa)/6;
If tb<5 then writeln("yêu");
If tb=5 and tb<8 then writeln("kha");
If tb>8 then writeln("gioi");
Unknown nói...: nhập 1 xâu vào pascal, xóa các phần tử lặp liên tiếp trong xâu
9 nói...: Kết quả với từ khóa "pascal nay voiCho ba số nguyên dương a, b, c. Yêu cầu: Tìm số dư của phép chia tích các số nguyên trong đoạn [a, b]
mavansanh nói...: các a chị giúp em bài này
Nhập mảng nguyên dương gồm n phần tử (n<=20) và 1 số nguyên dương k nếu n>20 thì thông báo nhập lại, ngược lại hãy thay thế các số chia kết cho k bằng số k.
mavansanh nói...: các anh chị giúp em bài này, phần nhập ý
Cho mảng nguyên dương gồm n phần tử (n<=20) và số nguyên dương k. nếu n>20 thì thông báo nhập lại, ngược lại thay thế các số chia hết cho k bằng số k.
Tr mủ ba nói...: Dũng và Vũ là hai bạn thân rất mê toán. Đôi bạn thường nghĩ ra các bài toán để chơi igiair trí với nhau. Hôm nay Vũ nghĩ ra một trò chơi mới và mời Dũng cùng chơi. Trò chơi Vũ đề ra như sau: Vũ viết lần lượt n số nguyên a1 , a2 , ... , an thành một hàng, sau đó giữa số ai và ai+1 sẽ điền vào dấu + khi i là số chẵn, ngược lại điền dấu - . Như vậy Vũa sẽ có một biểu thức gồm n số hạng a1 , a2 , ..., an với dấu - và + đan xen nhau:
a1 - a2 +a3 - a4 +a5 - ... + an

Vũ đưa cho Dũng biểu thức này và yêu cầu Dũng thực hiện nhiều nhất một phép đổi chỗ hai số hạng cho nhau so cho giá trị của biểu thức nhận được lớn nhất có thể.

Yêu cầu: Hãy giúp Dũng tìm giá trị của biểu thức.

Giới hạn: n<= 106; |ai| <= 109 với mọi i=1,2, ... , n
Unknown nói...: In ra số M nhỏ nhất thỏa: 0<=M<=N có nhiều ước số nguyên nhất
Laptrinh nói...: ad ơi làm sao để nhập 1 số lớn hơn 100 chữ số vào pascal hả ad
Unknown nói...: dfag
Nguyễn Dũng nói...: cho dãy số nguyên gồm n phần tử a1,a2,...,an
có m truy vấn thuộc 1 trong 2 thao tác thực hiện trên dãy số
- thao tác 1: 0 l r value-tăng các phần tử thuộc đoạn từ al,al+1,...,ar lên cùng 1 giá trị value.
-thao tác 2: 1 l r-tìm giá trị lớn nhất trong các phần tử thuộc đoạn al,al+1,...,ar.

hãy viết chương trình để trả lời câu hỏi của 2 truy vấn kia
nam nói...: cho em xin lời giải:
viết chương trình tính diện tích hình vuông biết đường chéo được nhập tù bàn phím
Unknown nói...: Giúp mình bài này với
A có a đồng
B có b đồng
Lãi suất là 8%
Tính lãi và vốn của a và b
Nặc danh nói...: Mình có một đề bài tập nhờ các cô bác anh chị ai biết giúp e với. Để như sau: nhập từ bàn phím 1 xau s chỉ có e biểu diễn tượng có màu trắng, kí tự b biểu diễn tượng có màu đen. Hãy tìm số lần biến đổi ít nhất để có được hàng tượng có 2 mẫu đan xen nhau, nghĩa là 2 tượng cạnh nhau không đc cùng màu.
VD:s= wbbww--> biến đổi 1 lần
S=bbbbb --> biến đổi 2 lần.
Xin mọi người giúp đỡ
Unknown nói...: lập chương trình nhập mảng 1 chiều A gồm n phần tử kiểu nguyên 1<n<100
- nhập và hiển thị mảng A trên một dòng với mỗi phần tử cách nhau 3 khoảng trống, đếm số chẵn, tình tổng và trung bình cộng của chúng
giúp em với ạ
Unknown nói...: Sinh ngẫu nhiên 50 số nguyên trong khoảng từ 0-> 100. Đếm xem con số nào xuất hiện nhiều lần nhất trong dãy con số đó xuất hiện n lần thì n chính là số may mắn. Viết chương trình pascal tìm và in ra con số may mắn đó
Nặc danh nói...: giải giùm em bài này
Cho dãy A gồm n<10^6 số nguyên a1,a2,..,an.Ta định nghĩa AVG(i,j) là giá trị trung bình cộng các phần tử từ i tới j như sau:
AVG(i,j)=(a[i]+a[i+1]+..+a[j])/(j-i+1), với 1<=i<=j<=n.
yêu cầu: Với một số nguyên k, hãy tìm i và j sao cho AVG(i,j)>=k và j-i+1 là lớn nhất (1<=i<=j<=n).Nếu có nhiều cặp(i,j) cùng thỏa mãn yêu cầu thì tìm cặp có giá trị i nhỏ nhất
vien nói...: viết một đoạn chương trình .Nếu kí tự đó là Enter thì hiển thị thông báo "bạn có muốn tiếp tục không"
Nặc danh nói...: Cho tệp VIDU.INP chứa dãy số thực, lần lượt là bán kính của các hình tròn (mỗi số cách nhau ít nhất một dấu cách). Viết chương trình trong đó có sử dụng chương trình con thực hiện tính diện tích của mỗi hình tròn tương ứng với giá trị bán kính đã cho trong tệp VIDU.INP (kết quả lấy đến 2 chữ số thập phân) rồi ghi mỗi kết uqar này theo dòng trong tệp DIENTICH.ONP
Nặc danh nói...: mn giúp em với ạ em cần gấp lập trình thực hiện các công việc sau : - nhập từ bàn phím dãy N số nguyên - đếm các phần tử chẵn trong dãy số - tìm trong dãy số một phần tử có giá trị bằng k ( k được nhập từ bàn phím)
MINH SHARINGAN nói...: Thầy BINHHD có N phần quà cho N thí sinh dự thi kì thi DHBB năm nay. Trên hộp quà thứ i có ghi số nguyên ai. Sau khi tặng quà cho các thí sinh, thầy BINHHD sẽ có thêm những phần quà may mắn cho mỗi cặp thí sinh có cặp số trên hộp quà là ai, aj (i≠j) nếu với một số K cho trước, |ai+aj| = K.

Yêu cầu: Hãy cho biết thầy BINHHD phải chuẩn bị bao nhiêu phần quà may mắn.
Nguồn bài :http://lequydon.ntucoder.net/Problem/Details/4744
Giúp e giải bài này ACCEPT với e chạy trâu bị lỗi time
Nặc danh nói...: Cho dãy a1, a2, a3, …, an . Hãy đếm số lượng giá trị khác nhau có trong dãy và đưa ra số lần lặp của giá trị xuất hiện nhiều nhất. giúp mình với
Unknown nói...: Tạo 1 phần mềm lưu số tiền gửi của bác An vào tệp An.txt theo quy cách 1 số nguyên là số tiên bác ấy gửi vào.
Ví dụ
55 77 45 34: có nghĩa bác ấy gửi 4 lần lần 1 55 , lần 2 77.
Só tiền rút ra có kí hiệu –
55 77 45 34 -98
Mỗi lần gửi tương ứng 1 tháng. In số tiền bác an có trong năm đầu tiên, năm thứ 2,(giả sử tệp an.txt có 24 số), ở đây mỗi tháng bác an chỉ có thể gửi hoặc rút.
Giúp e với ạ
Unknown nói...: Bạn có a đồng gửi ngân hàng với lãi xuất 1,1% mỗi tháng ( lãi suất cộng dồn vào vốn gốc). Lập chương trình tìm và thông báo số tháng cần gửi nếu bạn muốn nhận được số tiền ít nhất là x.
Biết: a và x là các số nguyên chưa đến 1 tỉ đồng và được nhập từ bàn phím.
Nặc danh nói...: dau cat moi
Jiill nói...: izmir
Erzurum
Diyarbakır
Tekirdağ
Ankara
K7KX

«Cũ nhất ‹Cũ hơn 401 – 459 trên 459 Mới hơn› Mới nhất»

Bài tập Pascal - Giải bài tập Pascal (cơ bản)

Đăng nhận xét

Đọc nhiều nhất

Đám mây

Thành viên Blog

Tổng số lượt xem trang

Translate