- •Лабораторный практикум по информатике
- •Часть II программирование в системе турбо паскаль
- •Введение
- •Лабораторная работа №1 Создание простейшей программы
- •Начало работы с новой программой
- •Задание 1
- •Сохранение текстового файла программы на диске:
- •Задание 2
- •Задание 3
- •Задание 4
- •Лабораторная работа №2 Ввод данных и вывод результатов
- •Задания
- •Лабораторная работа №3 Программирование линейных алгоритмов
- •Задание
- •Лабораторная работа №4 Программирование разветвляющихся алгоритмов
- •Задание 1
- •Задание 2
- •Лабораторная работа № 5 Программирование циклических алгоритмов с известным числом повторений
- •Задание
- •Лабораторная работа №6 Программирование циклических алгоритмов с неизвестным числом повторений
- •Задания
- •Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4
- •Вариант 5
- •Вариант 6
- •Вариант 7
- •Вариант 8
- •Вариант 9
- •Вариант 10
- •Лабораторная работа №7 Программирование алгоритмов итерационной циклической структуры
- •Задание
- •Лабораторная работа №8 Массивы
- •Лабораторная работа №9 Процедуры и функции пользователя в языке Паскаль
- •Задание
- •Лабораторная работа №10 Записи
- •Задания
- •Лабораторная работа №11 Работа с файлами
- •Лабораторная работа №12 Графический режим в языке Паскаль
- •Лабораторная работа №13 Построение графика функции
- •Задания
- •Лабораторная работа №14 Создание движущихся изображений
- •Задание 1
- •Задание 2
- •Лабораторная работа №15 Вычисление определённого интеграла численными методами
- •Метод прямоугольников
- •Метод трапеций
- •Метод Симпсона
- •Задания
- •Лабораторная работа №16 Решение нелинейных уравнений численными методами
- •Метод половинного деления
- •Метод Ньютона
- •Метод хорд
- •Задания
- •Лабораторная работа №17 Решение обыкновенных дифференциальных уравнений численными методами
- •Метод Эйлера
- •Модифицированный метод Эйлера
- •Метод Рунге-Кутта
- •Задание
- •Приложение
- •Список литературы
- •Оглавление
- •Лабораторный практикум по информатике
- •Часть II программирование в системе турбо паскаль
- •Архангельск
Задания
Организовать ввод значений переменных: t – действительного типа; m и n – целого типа; ch – символьного типа; st – строки длиной 15 символов. Сделать пояснения на экране для пользователя. Вывести значения этих переменных в одну строку, через два пробела, в следующем порядке: st, m, t, ch, n. Для t вывести 3 десятичных знака.
Вывести значения этих переменных в один столбец, выровненный по левому краю, в следующем порядке: n, ch, m, st, t.
Вывести значения этих переменных в один столбец, выровненный по правому краю. Правый край должен быть расположен в 15-й позиции строки. Переменные вывести в следующем порядке: n, ch, m, st, t.
Вывести 5 раз значение переменной t в столбец, выровненный по правому краю, количество десятичных знаков должно быть равно номеру строки.
Вывести в одну строку значения переменной t в трёх разных вариантах формата вывода действительных переменных, через 5 пробелов друг от друга.
Вывести 5 раз значение переменной ch в одну строку, с постепенным увеличением количества пробелов между значениями.
Вывести значения переменной n в центр 5-й строки и m в центр 8-й строки.
Вывести на экран горизонтальную линию на всю ширину экрана из знаков ‘‘ (минус).
Вывести на экран пустую таблицу, состоящую из 4 столбцов шириной 10 знаков и 5 строк. Для изображения линий таблицы использовать знаки ‘‘ (минус), ‘|‘ (вертикальная черта), ‘+‘ (плюс).
Вывести результат сравнения величин m и n.
Пронумеровать строки на экране.
Написать программу, которая для заданного целого числа a (2 a 10) выводит следующую таблицу:
a
a a2
a a2 a3
a a2 a3 a4
Лабораторная работа №3 Программирование линейных алгоритмов
Самый простой вариант программы для ЭВМ – линейный алгоритм. При выполнении такой программы последовательность действий от начала программы до ее конца никогда не изменяется. На практике такие алгоритмы являются фрагментами более сложных программ.
Следующая программа производит пересчёт температуры (t) из шкалы Цельсия в шкалу Фаренгейта. Словесное описание алгоритма программы можно представить так:
получить с клавиатуры значение температуры в градусах Цельсия;
пересчитать температуру из шкалы Цельсия в шкалу Фаренгейта;
вывести на экран вычисленное значение температуры в градусах Фаренгейта.
Пересчёт основан на том, что t (F) = t (С)1.8+32;
ниже приведён текст программы:
Program Temperature;
Uses crt;
Var
t,f:real;
begin
Clrscr;
Writeln('Пересчёт температуры из шкалы Цельсия в шкалу Фаренгейта');
Writeln('Введите температуру в градусах Цельсия');
Readln(t);
f:=t*1.8+32;
Writeln('Температура в градусах Фаренгейта =',f:6:1);
Readln;
End.
Наберите текст программы, сохраните на диске в своей папке под именем Temper.pas, скомпилируйте программу и запустите её на выполнение. Выполните пересчёт для следующих значений температуры по Цельсию: –273.15; –42; –17.78; 0; +25, +100.
Выражения в языке Pascal состоят из операндов и операторов. Операндами выражений могут быть константы и переменные. Операторы находятся между операндами и обозначают действия, выполняемые над операндами. Значения переменных должны быть определены до их появления в арифметическом выражении. В табл.3.1 перечислены операторы и математические функции, используемые в арифметических выражениях Turbo Pascal.
При записи выражений между операндом и оператором, за исключением операторов div и mod, пробел можно не ставить. Операторы имеют разный приоритет. Наивысший приоритет имеют функции, далее – умножение и деление, наименьший – сложение и вычитание. Приоритет операторов влияет на порядок их выполнения. При вычислении выражения сначала выполняются операторы с более высоким приоритетом. Если приоритет операторов в выражениях одинаковый, то сначала выполняется тот оператор, который находится левее. Выражение записывается в одну строку. Порядок вычислений можно изменить с использованием круглых скобок:
Y:=(R*T+25)/(a*(b+c*(d+f*(x+g))));
При записи выражений, содержащих скобки, должна соблюдаться парность скобок, т.е. число открывающих скобок должно быть равно числу закрывающих скобок.
При записи сложных выражений можно использовать вспомогательные переменные для хранения результатов промежуточных вычислений. Это позволяет проконтролировать результаты промежуточных вычислений.
Таблица 3.1
Операторы и математические функции языка Turbo Pascal
Оператор, функция |
Действие |
Пример записи на языке Паскаль |
Тип результата |
+ |
Сложение |
y:=a+b |
Как у операндов |
- |
Вычитание |
y:=ab |
|
* |
Умножение |
y:=a*b |
|
/ |
Деление |
y:=a/b |
Real |
Div |
Деление нацело |
y:=a Div b |
Integer |
Mod |
Вычисление остатка от деления |
y:=a Mod b |
Integer |
Abs |
Абсолютное значение аргумента |
y:=Abs(x) |
Real |
Sqr |
Квадрат аргумента |
y:=Sqr(x) |
Real |
Sqrt |
Квадратный корень аргумента |
y:=Sqrt(x) |
Real |
Sin |
Синус аргумента |
y:=Sin(x) |
Real |
Cos |
Косинус аргумента |
y:=Cos(x) |
Real |
Arctan |
Арктангенс аргумента |
y:=Arctan(x) |
Real |
Exp |
Экспонента аргумента |
y:=Exp(x) |
Real |
Ln |
Натуральный логарифм аргумента |
y:=Ln(x) |
Real |
Int |
Целая часть аргумента |
y:=Int(x) |
Real |
Trunc |
Целая часть аргумента |
y:=Trunc(x) |
Integer |
Round |
Округление до ближайшего целого |
y:=Round(x) |
Integer |
Как видно из таблицы, в языке Turbo Pascal отсутствуют следующие математические выражения: y=lg x; y=ax; y=tg x.
Для вычисления этих величин можно использовать выражения: y:=ln(x)/ln(10); y:=Exp(x*ln(a)); y:=sin(x)/cos(x) соответственно.
Аргумент для тригонометрических функций задаётся в радианах. Для пересчёта из градусов в радианы используется соотношение
Радианы = градусы ( 180).
Например, чтобы вычислить sin 45 надо записать sin(45*pi/180).