я десятковим числом з дробовою частиною (дрібна частина може бути нульовою). Дрібна частина відділяється від цілої за допомогою точки, наприклад 127.3, 25.0, - 16.003, 200.59, 0.54. Число з плаваючою точкою має вигляд mEp, де m - мантиса, а p - порядок числа. В якості m можуть бути цілі числа і дійсні числа з фіксованою точкою, в якості p - тільки цілі числа. Як мантиса, так і порядок можуть містити знаки + і - raquo ;. Наприклад: математична запис 0,000009=Запис з плаваючою точкою 9Е - 6
Над даними дійсного типу визначені наступні арифметичні операції:
? + Raquo;- Додавання;
? - Raquo;- Віднімання;
? * Raquo; множення;
? / Raquo;- Поділ.
Результат виконання цих операцій виходить також дійсного типу. Над даними дійсного типу визначені наступні операції відношення:
? = Raquo;- Одно;
? lt; gt; - не дорівнює;
? lt; - Менше;
? gt; - Більше;
? lt;=- Менше або дорівнює (не більш);
? gt;=- Більше або дорівнює (незгірш).
Операції відносини виробляють результат логічного типу. Мова програмування Паскаль має набір вбудованих процедур і функцій, які називаються стандартними. Перелічимо найбільш часто зустрічаються з них:
? abs (x) - обчислення абсолютного значення Х
? sqr (x) - обчислення квадрата Х
? sqrt (x) - обчислення квадратного кореня з Х
? sin (x) - обчислення синуса Х
? cos (x) - обчислення косинуса Х
? arctan (x) - обчислення арктангенса Х
? exp (x) - обчислення Х
? ln (x) - обчислення натурального алгоритму Х
? trunc (x) - обчислення цілої частини Х
? round (x) - округлення Х в бік найближчого цілого
Примітка: Аргумент функції слід за ім'ям функції і полягає в круглі дужки. У тригонометричних функціях синуса і косинуса аргумент задається тільки в радіанної міру кута.
Виведення даних дійсного типу допускається з форматом і без нього. Якщо при виведенні даних дійсного типу відсутній формат, то число виводиться з плаваючою точкою - мантиса і порядок. На зображенні числа відводиться 17 позицій, при цьому в цілій частині мантиси присутня тільки одна значуща цифра.
3. Створення програми в інтегрованій інструментальної оболонці TurboPascal 7.0
. 1 Завдання до практичної частини
Вважати пропозицію з файлу input.txt. Слова розділені одним пропуском. Підрахувати кількість слів і цифр в ньому. У файл output.txt записати кількість слів і цифр у реченні.
3.2 Опис і результати роботи програми
Програма, розроблена мною, була написана за допомогою наступних технічних засобів: Windows XP Professional, процесор AMD, Turbo Pascal 7.0. Її можна застосовувати в практичних цілях. Для прикладу розглянемо таку ситуацію.
Необхідно з одного штабу в іншій передати в зашифрованому вигляді точний час початку бойової операції. Для цього службовець одного штабу повинен написати повідомлення службовцю іншого штабу на особисту тему. У цьому повідомленні кількість цифр буде позначати годину початку операції, а кількість літер - хвилини.
Результати виконання програми:
Повідомлення: Я вже домовився зустрітися з другом Вітею після демобілізації 7 червня в 5 або 6:00 в парку біля 2 беріз на нашому місці
Підрахунок цифр і слів, обробка результату:
Час початку операції: 4ч 20хв
3.3 Схема алгоритму рішення програми
Малюнок 6 - Схема алгоритму рішення програми
3.4 Лістинг програми
Program text_file; crt; f, ff: text ;, sl, bukva, cifr: string ;: array [1..10] of string ;, j, k, kol, n, m: integer; (f, d: input.txt ); (f); (ff, d: output.txt ); (ff); not eof (f) do (f, predl);
сlrscr; ( Повідомлення: );
Writeln (predl) ;; ( Підрахунок цифр і слів, обробка результату: );
k:=1; [k]:= raquo ;; i:=1 to length (predl) dopredl [i] lt; gt; then [k]:=slovo [k] + predl [i] else:=k + 1; [k]:= raquo ;; end;:= 0123456789 raquo ;;:=length (cifr);:=length (predl);:=0; i:=1 to n doj:=1 to m dopredl [i]=cifr [j] then
