Реферат Програмування на мові Паскаль в середовищі Турбо Паскаль

>

Таблиця 2 - Результати виконання процедури і функції

Вхідні данниеВиходние данниеABCP3 ,5-4 ,7-5, -125.34

Результат рішення задачі представлений на малюнку 2.

В 

Рисунок 2 - Результат роботи програми в TurboPascal

Лістинг - Процедуриperimet_procedure; crt;

var ab, bc, ac, x1, x2, x3, y1, y2, y3: real;

p: real; perimetr (x1, y1, x2, y2: real);; ('vvesti koordinati verhin A'); (x1, y1); ('vvedite koordinati verhin B'); (x2, y2);

writeln ('vvedite koordinati verhin C');

readln (x3, y3);: = sqrt ((sqr (x1-x2)) + (sqr (y1-y2)));: = sqrt ((sqr (x2-x3)) + (sqr (y2-y3)));: = sqrt ((sqr (x1-x3)) + (sqr (y1-y3)));

if (AB> = BC + AC) or (AC> = AB + BC) or (BC> = AB + AC) then writeln ('eto ne treygolnik, povtorite vvod'); (AB < ; BC + AC) and (AC

end.

Рисунок 2 - Блок-схема процедури

Лістинг - функцііperimetr_function; crt;

Var x1, x2, x3, y1, y2, y3: real; {оголошення змінних}

p: real; stor (ab, bc, ac: real): real; {функція} ('Vvesti Koordinati Verhin | A |'); {введення координат точки А} (x1, y1) ; ('Vvedite Koordinati Verhin | B |'); {введення координат точки B} (x2, y2); ('Vvedite Koordinati Verhin | C |'); {введення координат точки C}

readln (x3, y3);: = sqrt ((sqr (x1-x2)) + (sqr (y1-y2)));: = sqrt ((sqr (x2-x3)) + (sqr (y2-y3)));: = sqrt ((sqr (x1-x3)) + (sqr (y1-y3)));

if (AB> = BC + AC) or (AC> = AB + BC) or (BC> = AB + AC) then writeln ('Eto ne treygolnik, Povtorite Vvod'); (AB < ; BC + AC) and (AC

End;

{îñíîâíàÿ ïðîãðàììà}

Var ab, bc, ac: real; {îáúÿâëåíèå ïåðåìåííûõ}

Begin; stor (ab, bc, ac

); ('| Perimetr Treygolnika Raven | =', p: 0: 0, '(cm)'); {висновок результату};

End. {Кінець}

Результат рішення задачі представлений на малюнку 3.

Рисунок 3 - Результат роботи програми в TurboPascal

Рисунок 3 - Блок-схема функції

1.3 Структура даних: масиви

Дан двовимірний масив 5х5. Замінити нулем елементи, розташовані над побічної діагоналлю. br/>

Лістинг - Структури даних: масиви

program massiv;

Uses CRT; n = 5; a: array [1. n, 1. n] of integer;, j: integer;; i: = 1 to n DOj: = 1 to n DO [i, j]: = random (10) - 3; (a [i, j]: 3);; ;;; i: = 1 to n DOj: = 1 to n DOj <= n-i +1 then [i, j]: = 0; (a [i, j]: 3);;;

end;

Readln

End.

Результат рішення задачі представлений на малюнку 3.

В 

Рисунок 4 - Результат роботи програми в TurboPascal

1.4 Структура даних: рядки.

Дано рядка S1, S2 і символ C. Перед (після) кожного входження символу C в рядок S1 вставити рядок S2. br/>

Лістинг - Структури даних: рядки

uses crt;

var s1, s2, s: string;, w: char;: byte;

clrscr;

writeln ( Ввести рядок у яку будемо вставляти: ');

readln (s1);

writeln ('Ввести рядок яку будемо вставляти:');

readln (s2); ('); (c); pos (c, s1) = 0 then writeln (); pos (c, s1)> 0;; (?'); (); (); (); (w); w of

'1 ': begin: = s1; i: = length (s) downto 1 dos1 [i] = c then insert (s2, s, i); (s);;;

'2 ': begin: = s1; i: = length (s) downto 1 dos1 [i] = c then insert (s2, s, i +1); (s);;; exit;; not (w in ['1 '. '2']);.

Результат рішення задачі представлений на малюнку 4.

В 

Рисунок 4 - Результат роботи програми в TurboPascal