Pascal
Підпрограма — це пойменована, логічно закінчена група операторів, яку можна викликати для виконання довільну кількість разів з різних місць програми. Знайти суму від'ємних елементів та середнє значення додатніх елементів масивів: L (6), B (5), H (7) цілих чисел, використовуючи процедури. Мета: систематизація та поглиблення знань, вмінь і навичок, розробки програм з використанням процедур… Читати ще >
Pascal (реферат, курсова, диплом, контрольна)
Pascal
Заняття № 5.
Складання програм з використанням процедур та функцій.
Мета: систематизація та поглиблення знань, вмінь і навичок, розробки програм з використанням процедур та функцій.
Теоретичні відомості.
Підпрограма — це пойменована, логічно закінчена група операторів, яку можна викликати для виконання довільну кількість разів з різних місць програми.
В мові Pascal в ролі підпрограм використовуються процедури і функції. Функція представляє собою групу операторів, в результаті виконання яких обчислюється одне значення, що присвоюється значенню функції.
функції здійснюється за допомогою ключового слова FUNCTION ім'я, а в дужках змінні.
Процедура на відміну від функції може повертати в програму одне, декілька або не повертати жодного значення. В заголовку після ключового слова PROCEDURE ім'я, а в дужках змінні зі своїми описами.
Індивідуальне завдання.
Варіант № 13.
Скласти програму на мові Pascal розв’язку даної задачі та виконання її на ЕОМ. Передбачивши виведення на очищений екран результатів обчислень, супроводивши їх необхідними поясненнями.
Задача 1.
Дано масив С (5,4). Зформувати новий масив К, кожний елемент якого дорівнює відповідному елементу масива С, поділеному на факторіал суми його індексів. Надрукувати масив К по рядках, підрахувавши кількість його елементів, значення яких меньше одиниці.
Задача 2.
Знайти суму від'ємних елементів та середнє значення додатніх елементів масивів: L (6), B (5), H (7) цілих чисел, використовуючи процедури.
Задача 1:
program var1_1,.
uses crt,.
var.
c, k: array [1.5,1.4] of real,.
i, j: integer,.
m:byte,.
function facktorial (x:integer):real,.
var.
i:integer,.
facktorial1:real,.
begin.
facktorial1:=1,.
if i<=1 then facktorial:=1 else begin.
for i:=1 to x do facktorial1:=facktorial1*i,.
facktorial:=facktorial1,.
end,.
end,.
begin.
clrscr,.
writeln («Введiть елементи масива:»),.
writeln,.
for i:=1 to 5 do.
for j:=1 to 4 do begin.
write («Елемент [», i," ,", j," ]="),.
readln (c[i, j]),.
end,.
m:=0,.
clrscr,.
for i:=1 to 5 do begin.
for j:=1 to 4 do begin.
k[i, j]: =c[i, j]/facktorial (i+j),.
if k[i, j]<1 then m:=m+1,.
write (k[i, j]: 7:5," «),.
end,.
writeln,.
end,.
end.
РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ :
0.50 000 0.33 333 0.16 667 -0.4 167.
0.66 667 0.12 500 -0.1 667 0.556.
0.20 833 -0.1 667 -0.417 0.119.
0.5 833 0.1 250 0.417 0.5.
0.417 -0.99 0.5 0.0.
Задача 2:
program var1_2,.
uses crt,.
var.
l:array [1.7] of integer,.
b:array [1.6] of integer,.
h:array [1.8] of integer,.
v:integer,.
s:real,.
procedure masiv (var x: array of integer, kol: integer, var vid: integer, var ser: real),.
var.
i:integer,.
begin.
clrscr,.
vid:=0,.
ser:=0,.
writeln («Введiть елементи масива :»),.
writeln,.
for i:=1 to kol do begin.
write («Елемент x[», i," ]="),.
readln (x[i]),.
if x[i]<0 then vid:=vid+1 else ser:=ser+x[i],.
end,.
ser:=ser/kol,.
end,.
begin.
masiv (l, 6, v, s),.
writeln («Вiдемних елементiв: «, v),.
writeln («Середне арифметичне суми додатнiх елементiв: «, s),.
repeat until keypressed,.
masiv (b, 5, v, s),.
writeln («Вiдемних елементiв: «, v),.
writeln («Середне арифметичне суми додатнiх елементiв: «, s),.
repeat until keypressed,.
repeat until keypressed,.
masiv (h, 7, v, s),.
writeln («Вiдемних елементiв: «, v),.
writeln («Середне арифметичне суми додатнiх елементiв: «, s),.
end.
РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ :
Введiть елементи масива :
Елемент x[1]=2.
Елемент x[2]=-2.
Елемент x[3]=-3.
Елемент x[4]=5.
Елемент x[5]=3.
Елемент x[6]=4.
Вiдемних елементiв: 2.
Середне арифметичне суми додатнiх елементiв: 2.33.
Введiть елементи масива :
Елемент x[1]=23.
Елемент x[2]=-3.
Елемент x[3]=-4.
Елемент x[4]=2.
Елемент x[5]=8.
Вiдемних елементiв: 2.
Середне арифметичне суми додатнiх елементiв: 6.60.
Введiть елементи масива :
Елемент x[1]=4.
Елемент x[2]=5.
Елемент x[3]=-6.
Елемент x[4]=3.
Елемент x[5]=2.
Елемент x[6]=-7.
Елемент x[7]=0.
Вiдемних елементiв: 2.
Середне арифметичне суми додатнiх елементiв: 2.00.
Висновок: на практичній роботі я систематизував та поглибив вміння та навички по роботі з функціями і процедурами у власних програмах, які дуже легко використовувати завдяки процедурам та функціям.