TAILIEUCHUNG - Giáo trinh lập trình Pascal part 5

Tham khảo tài liệu 'giáo trinh lập trình pascal part 5', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Begin Clrscr write 1 Nhap n readin n for i 1 to n do begin write 1 a i readln a i end writeln 1 Mang A vua nhap la for i l to n do write A i 8 2 readin End. Chú ý Thao tác hiển thị thông thường sau các thao tác làm thay đổi giá các phần tử của mảng A như là thao tác nhập sắp xép chèn và xoá. Vỉ dụ Viết một chưong trình thực hiện các công việc sau - Đọc một dãy số bao gồm n so thực n 50 vào máy thông qua bàn phím. - Tính tổng các số âm trong dãy này. Program ViDu6_9 Var array of real i n integer tong real BEGIN Repeat Write Cho so phan tu cua day ReadLn n until 0 n and n 50 for ỉ 1 to n do begin 61 Write Hay nhap phan tu thu 1 i 1 ReadLn a i end tong 0 for i 1 to n do if a i 0 then tong tong a i Writebn Tong cua cac so am trong day la tong 7 2 ReadLn END. Vidụ6J0 Cho một dãy gồm n số nguyên dương n 250 . Viết một chương trình thực hiện các công việc sau - Đọc sổ phần tử trong dãy n và dãy sổ đã cho vào máy. - Hãy cho biết dãy đã cho có bao nhiêu giá trị khác nhau và mồi giá trị đó là giá trị của các số hạng nào trong dãy. Program ViDu6_10 Var a array of byte n integer i j k integer dem integer kn set of byte skn integer BEGIN repeat Write Cho so phan tu cua day ReadLn n until 0 n and n 250 for i l to n do begin 62 Write Hay nhap phan tu thu i ReadLn a 11 end kn 1 skn 0 for i l to n do if not a i in kn then begin kn kn a i skn skn 1 end WriteLn Co tat ca skn gia tri khac nhau dem 0 for i l to n do begin if a i in kn then begin dem dem 1 WriteLn GÌa tri khac nhau thu dem la a i va la cac so hang o cac vi tri 1 for j i to n do if a j a i then write j 5 WriteLn kn kn - a i end if end for ReadLn END. VidụóAỊ Cho một dãy số thực Xí X2 X 00. Hãy viết chương trình sáp xếp lại dãy này theo thứ tự tăng dần. Program VỈDu6_ll Sap xep tang dan Var X array of real i j integer tg real .

TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.