Міністерство освіти, науки, молоді та спорту України Приватний вищий навчальний заклад Рівненський економіко – гуманітарний та інженерний коледж Звіт Про проходження навчальної практики з «Основ програмування та алгоритмічних мов» З 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. Виконав[ім’я автора приховано] Оскільки програми виконані на мові програмування АВС Pascal - це забезпечує їх широке коло використання. Програми не є вимогливими до ресурсів ПК, як технічних так і до програмного забезпечення. Внаслідок проходження практики я закріпив одержані мною знання під час вивчення курсу «Основ програмування та алгоритмічних мов».