Скласти програму для індивідуального завдання. Варіанти індивідуальних завдань співпадають з номером в журналі
ХІД РОБОТИ:
1. Скласти схему алгоритму и програму для завдання згідно вашого варіанту
2. Увійдіть у систему програмування Borland Pascal 7.0 або Delphi та створіть новий файл або проект за допомогою команд: New – якщо необхідно вводити нову програму. Якщо бажаєте визвати раніше створену програму оберіть Open.
3. В вікні системи набрати програму або внести необхідні зміни у програму.
4. Запустити програму на виконання: для цього в меню системи вибрати пункт Run
5. В зошит переписати результат роботи програми ( рядки, що були виведені на екран)
6. Якщо необхідно (за вказівкою викладача) записати свою програму на диск у вигляді файлу – для цього необхідно вийти в меню системи, вибрати пункт File и виконати команду Save з указівкою імені свого файлу.
7. Покинути систему програмування – для цього необхідно увійти у меню системи, вибрати пункт File и виконати команду Exit(Close).
ПРИКЛАД ВИКОНАННЯ ЗАВДАННЯ:
Приклад № 1: Скласти програму, яка в першому введеному рядку рахує кількість крапок, а в другому введеному рядку – кількість літер А.
Розрахунок символів реалізуємо у процедурі Podschet
PROGRAM primer 9;
Const Kr=’.’;
Var s: integer;
Procedure podschet(c: char; var k: integer);
Var x: char;
Begin
K:=0;
Writeln(‘Увести рядок’);
Repeat read(x)
If x=c then k:=k+1;
Until eoln;
End;
BEGIN
readln;
Podschet (‘.’;s);
Writeln (‘Кілкість крапок’,S);
Podschet(‘a’,s);
Writeln (‘Кілкість літер А’,s);
END.
Процедура Podschet має 2 формальних параметри : С- вхідний параметр-значення, визначає символ який треба рахувати в рядку і параметр – зміну К-вихідний параметр який передає в програму кількість розрахованих символів.
Приклад №2Дано двовимірний масив А. Сформувати новий масив Х, який буде скаладатися за максимальних елементів рядків масиву А.
program Demo;
var a:array[1..3,1..3] of integer;
x:array[1..3] of integer;
i,j,m:integer;
procedure XMax(k:integer); {процедура пошуку максимального елементу у рядку}
var max,j:integer;
begin
max:=a[k,1];
for j:=1 to 3 do
if a[k,j]>max then max:=a[k,j];
x[k]:=max;
end;
BEGIN
{Введення елементів матриці}
for i:=1 to 3 do
for j:=1 to 3 do
begin
writeln('vvedite element');
readln(a[i,j]);
end;
{ Виведння матриці }
for i:=1 to 3 do
begin
for j:=1 to 3 do
write (a[i,j],' ');
writeln;
end;
{ Виклик процедури}
for m:=1 to 3 do XMax(m);
{ Виведення масиву з максимальних елементів}
for i:=1 to 3 do write(x[i],' ');
readln;
END.
У процедуру Xmax передається номер рядка у якому потрібно знайти найбільший елемент.
СКЛАД ЗВІТУ:
1. Тема, мета роботи.
2. Текст завдань для виконання .
3. Порядок виконання роботи.
4. Хід виконання роботи – схема алгоритму, текст програми, результат роботи програми
5. Вивід по роботі
КОНТРОЛЬНІ ПИТАННЯ:
1. Для чого призначені процедури?
2. Що включає в себе заголовок процедури?
3. Чим відрізняються фактичні і формальні параметри?
4. Чим відрізняються локальні та глобальні змінні?
5. Для чого призначені функції?
6. Яка різниця між процедурою та функцією мові Паскаль?
.
ЗАВДАННЯ №1 Розрахувати заданий вираз, який приймає ціле значення для даних a, b в форматі INTEGER, використав оператор IF. Результат Х – теж ціле число (INTEGER або LONGINT).
В програмі повинна бути як мінімум одна процедура або функція. Вихідні дані та результат повинні перевірятися на область допустимих значень.
Варіанти:
1, 16 ) 
2, 17) 
3,18) 
4,19) 
5,20) 
6,21) 
7,22) 
8,23) 
9,24) 
10,25) 
11,26) 
12,27) 
13,28) 
14,29) 
15,30) 
