Міністерство освіти, науки, молоді та спорту України
Приватний вищий навчальний заклад
Рівненський економіко – гуманітарний та інженерний коледж
Звіт
Про проходження навчальної практики
з «Основ програмування та алгоритмічних мов»
З 27 квітня по 12 травня 2012 року.
Зміст
Зміст………………………………………………………………....2
Вступ………………………………………………...........................3
Завдання 2 (Задача 9)…………………………………………….....4
Завдання 2 (Задача 16)……………………………...........................6
Завдання 2 (Задача 16) (2) ………………………………………...10
Висновок……………………………………………………………12
Вступ
Важливим етапом практичної підготовки студентів у сфері Розробка програмного забезпечення є навчальна практика з «Основ програмування та алгоритмічних мов».
Метою практики є поглиблення та закріплення теоретичних та практичних знань, набуття практичних навичок з інтегрованими середовищами розробки програм, текстовими редакторами, опереційними системами та оболонками, практичні навички складання алгоритмів, написання коду програм налагодження та тестування розроблених програм.
У кожному вузі України передбачено проходження студентами виробничої практики, яка є обов’язковим складовим елементом підготовки будь-якого спеціаліста. Під час проходження практики студент закріплює здобуті знання і навички, отримуючи практичний досвід роботи в реальних економічних умовах.
Завдання 2
Задача 9
Дано натуральне число N. Підрахувати суму цифр цього числа, що знаходяться на непарних позиціях (нумерація позицій йде зліва направа).
Реалізація мови Pascal
Program P2;
uses CRT;
var
n,col,k:integer;
begin
col:=0;
write ('Введіть число=');
read (n);
k:=n;
if k=0 then
col:=1
else
while k>=1 do
begin
col:=col+1;
k:=k div 10;
end;
writeln ('Кількість цифр числа=',col);
end.
Приклади роботи програми Pascal
Задача 16
Написати і протестувати функцію, що переставляє в зворотному порядку елементи головної діагоналі квадратної матриці.
Реалізація мови Pascal
program mtx;
uses CRT;
const
nmax=100;
type
tarr=array[1..nmax,1..nmax] of integer;
procedure change(n1: integer; var ar: tArr);
var i,j,tmp: integer;
begin
for i:=1 to n1 div 2 do
for j:=1 to n1 div 2 do
begin
if i=j then
begin
tmp:=ar[i,i];
ar[i,i]:=ar[n1-i+1,n1-i+1];
ar[n1-i+1,n1-i+1]:=tmp;
writeln('заміна:');
end;
end;
end;
var
a: tarr;
i,j,n: integer;
begin
randomize;
writeln('Введіть розмір матриці:');
readln(n);
writeln('Матриця:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(99)+1;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
change(n,a);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.
Приклади роботи програми Pascal
Задача 16
Написати і протестувати функцію, що переставляє в зворотному порядку елементи головної діагоналі квадратної матриці.
Реалізація мови Pascal
program Mx5;
uses CRT;
const n=5;
var a: array [1..n,1..n] of integer;
i,j,t: integer;
begin
randomize;
writeln('головна діагональ квадратної матриці:');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
{переставляє в зворотному порядку елементи головної діагоналі квадратної матриці}
for i:=1 to n div 2 do begin
t:=a[i,i]; a[i,i]:=a[n-i+1,n-i+1]; a[n-i+1,n-i+1]:=t;
writeln('заміна матриці:');
end;
writeln;
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j]:4);
end;
writeln;
end;
end.
Приклади роботи програми Pascal
Висновок
Робота з персональним комп’ютером передбачає не лише високі теоретичні знання алгоритмічних мов але і вміння складати програми різного рівня складності.
На практиці, я навчився робити більш складні програми, більше дізнався про Pascal.
Виконавши дану навчальну практику я отримав програми, що будують матриці, підраховують суму числа N .
Оскільки програми виконані на мові програмування АВС Pascal - це забезпечує їх широке коло використання. Програми не є вимогливими до ресурсів ПК, як технічних так і до програмного забезпечення.
Внаслідок проходження практики я закріпив одержані мною знання під час вивчення курсу «Основ програмування та алгоритмічних мов».