The factorial di Pascal: bagaimana untuk mengira. Program Sampel

Latihan pengaturcaraan bermula dari sederhana hingga kompleks. Setelah menguasai jenis data dan pengendali bahasa, mereka melewati pembinaan siklik. Terdapat banyak tugas untuk kitaran: dari output nombor ke lajur untuk pengiraan jumlah pada formula rumit. Walau bagaimanapun, pengaturcara permulaan masih mempunyai soalan: "Bagaimana untuk mengira factorial di Pascal?"

Anda boleh melaksanakan tugas itu dalam sekurang-kurangnya tiga cara. Mereka berbeza dengan pengendali yang digunakan.

Maklumat matematik

Sebelum meneruskan pembinaan algoritma dan program penulisan, seseorang harus mengkaji teori tersebut. Dalam matematik, faktorial ialah hasil integer yang mana ungkapannya dikira, dengan integer positif kurang daripada itu.

Satu contoh akan membantu memahami definisi. Biarkan ia dikehendaki mencari factorial untuk nombor 3. Penyelesaian: 3! = 3 * 2 * 1 = 6.

Tindakan tanda seru yang diletakkan selepas nombor tersebut ditunjukkan. Satu nota penting: faktorial ditakrifkan hanya untuk integer positif. Pada masa yang sama, konsep untuk sifar diperkenalkan: 0! = 1.

Untuk membaca ungkapan untuk nilai-nilai besar secara manual adalah pekerjaan yang panjang. Untuk mempercepat proses pengkomputeran, gunakan program komputer. Seterusnya, kami membincangkan cara untuk mencari faktorial dalam Pascal.

Cara pertama

Kod di bawah menunjukkan versi program.

Contohnya menggunakan pembinaan komposit dengan keadaan yang ditulis sebelum badan gelung. Sintaks bagi rekod:

Sementara {condition} lakukan {operator_sequence};

Kod dilaksanakan seperti berikut: program memeriksa kesahihan ungkapan {condition} , dalam hal pemeriksaan positif, ia beralih ke {operator_sequence} .

Kembali ke program, anda perlu memberi perhatian kepada baris berikut:

• 2 - nombor n ditetapkan, yang mana pengiraan akan dilakukan;
• 6 - tajuk kitaran;
• 7 - permulaan kitaran;
• 8 - pengiraan fakta berubah, yang menyimpan nilai faktorial bilangan n ;
• 9 - peningkatan dalam pemboleh ubah mengira oleh satu;
• 10 - akhir kitaran.

Cara kedua

Berikut ini mencadangkan untuk mengira factorial dalam Pascal menggunakan kenyataan berulang .

Pembinaan gelung: ulang {operator_sequence} hingga {condition};

Untuk memahami bagaimana program berfungsi, pertimbangkan garis demi baris:

• 2 - pemalar n diberikan bilangan yang pengiraan dilakukan;
• 7 - permulaan kitaran;
• 8, 9 - mengira faktorial dan meningkatkan kaunter i ;
• 10 - hujung badan kitaran;
• 11 - pemeriksaan keadaan, kerana keadaan itu ditempatkan selepas urutan operator, tindakan akan diulang sekurang-kurangnya sekali.

Cara ketiga

Program terakhir juga memungkinkan untuk mengira faktorial dalam "Pascal" dan merupakan saiz yang paling padat. Sebabnya ialah yang digunakan untuk pernyataan, yang mana peningkatan kaunter saya dinyatakan dalam parameter gelung.

Kenyataan pengendali: untuk {initial_value} ke {final_value} lakukan {sequence_of operators }.

Kod berfungsi seperti berikut (nombor menunjukkan baris penyenaraian):

• 2 - pemalar n diberikan nilai nombor yang mana faktorial dikira;
• 6 - tetapkan parameter kitaran - nilai permulaan dan akhir;
• 7 - permulaan kitaran;
• 8 - pengiraan fakta berubah;
• 9 - akhir kitaran.

Nota:

Malah untuk nombor dari sepuluh yang pertama, factorial mempunyai nilai yang lebih besar daripada jenis data integer yang membolehkan. Oleh itu, program di Pascal memaparkan mesej ralat. Untuk memperbaikinya semata - anda perlu menggantikan jenis data untuk pembolehubah hasil dengan longint atau menggunakan jenis untuk menyimpan nilai sebenar.