Практическое занятие № 1

Тема: Решение алгебраических функций на Turbo Pascal

Цель работы: получить практические навыки по использованию стандартных функций Turbo Pascal при решении задач, организации ввода/вывода в тестовом режиме и использованию комментариев в программе

Ход  работы

1. Залейте экран коричневым цветом;

2. На первой строке по центру выведите серым цветом текст «Практическое занятие № 1»;

3. В третьей строке по центру выведите заголовок «Первая функция» желтым цветом;

4. Составить программу для нахождения значения функции вида (исходные значения вводить с клавиатуры):

Проверка: при b=1 получим a=-1.6353, x=3.3195, P=1.0182

5. Результаты расчетов вывести с точностью до 4 знаков после запятой зеленым цветом;

6. Отступите от результата две строки и по центру экрана выведите заголовок «Вторая функция» белым цветом;

7. Составить программу для нахождения значения функции вида (исходные значения вводить с клавиатуры):

Проверка: при a=2, b=1, c=1, d=2 получим: Y=0.485

8. Вывести результаты с поясняющим текстом с точностью до 3 знаков после запятой по центру окна розовым цветом;

9. Отступите от второго результата две строки и напечатайте текст «Программу выполнил:» по левому краю, «ФИО студента» по правому краю;

10. В программе реализуйте паузу для просмотра результата

11. Все действия в программе прокомментировать

Пример выполнения занятия

{подключаем модуль для работы с экраном}

uses crt;

{описываем переменные}

var

    p,x,a,b,c,y:real;

begin

{заливаем фон коричневым цветом}

    textbackground (6);

    clrscr;

    {устанавливаем серый цвет текста}

    textcolor(7);

    {устанавливаем курсор по центру первой строки}

    gotoxy(28,1);

    {выводим текст на экран}

    writeln('Практическое занятие № 1');

    {решение первой функции}

    {устанавливаем желтый цвет текста}

    textcolor (14);

    {перемещаем курсор в центр третьей строки}

    gotoxy (33,3);

    {выводим заголовок функции на экран}

    writeln ('Первая функция');

    {смещаем курсор ниже и вводим исходные данные (переменную b)}

gotoxy(33,4);

    write ('Введите b: ');

readln (b);

    {cчитаем значение функции}

a:=(exp((1/5)*ln(b))-4)/(sqr(b)+1)-exp(-2);

    x:=(abs(a-b)+4)/(cos(a*a*Pi/180)+1);

    p:=(abs(4*exp(5*ln(sin(x*x*x*Pi/180))-4)))/

         (sqr(sin(x*x*x*Pi/180)/cos(x*x*x*Pi/180))+sqrt(x*x*x));

{устанавливаем зеленый цвет текста для вывода результата}

    textcolor (2);

    {перемещаем курсор ниже от исходных данных

      и выдаем ответ с точностью до 4 знаков}

gotoxy (33,5);

    writeln ('a= ',a:8:4);

    gotoxy (33,6);

    writeln ('x= ',x:8:4);

    gotoxy (33,7);

    writeln ('P= ',p:8:4);

{вторая функция}

    {устанавливаем белый цвет символов}

    textcolor (15);

    {устанавливаем курсор по центру экрана

    на две строки ниже от предыдущего текста }

    gotoxy (33,9);

    {выводим заголовок функции на экран}

    writeln ('Вторая функция');

    {смещаем курсор ниже и вводим исходные данные}

gotoxy(33,10);

    write ('Введите a,b,c,x: ');

    readln (a,b,c,x);

    {считаем значение функции}

    y:=exp((1/5)*ln(x))-c*c*c/2+(abs(a)-b)/(sqr(ln(a-b))+4)-

        (cos(a*a*Pi/180)+sqr(sin(b*Pi/180)))/(sqrt(a)+1);

{устанавливаем розовый цвет символов для вывода результата}

    textcolor (12);

    {устанавливаем курсор на следующей строке от исходных данных}

    gotoxy (33,11);

    {выдаем ответ с точность до 3 знаков}

    writeln ('y= ',y:8:3);

    {выводим информацию о разработчике}

    {устанавливаем белый цвет текста}

    textcolor (15);

    {устанавливаем курсор по левому краю на две строки ниже от результата }

    gotoxy (1,13);

    {выдаем данные о разработчиках}

    writeln ('Программу выполнил: ');

    {устанавливаем курсор на этой же строке по правому краю}

    gotoxy (65,13);

    {выдаем ФИО студента}

    writeln ('Иванов И.И.');

    {делаем паузу для просмотра результат}

    writeln('Для продолжения нажмите ENTER...');

    readln;

end.

Сохраните введенную программу с помощью команды File - Save (или с помощью клавиши F2).

Для запуска программы на выполнение нажмите клавиши Ctrl+F9.

Решить самостоятельно:

1. Даны три числа a, b, с. Найти их среднее арифметическое.

2. Мальчик купил в магазине n порций мороженного по цене X руб. и k плиток шоколада по цене Y руб. Сколько всего потратил мальчик

3. Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U<V). Время движения лодки по озеру Т1 ч, а по реке Т2 ч. Определить суммарный путь S, пройденный лодкой по озеру и по реке против течения.

4. Составьте программу для определения сдачи после покупки в магазине товара: перчаток стоимостью A руб., портфеля стоимостью B руб., галстука стоимостью C руб. Исходная сумма, выделенная на покупку D руб. В случае, когда сдача получится отрицательной, вывести сообщение о нехватке денег.

5. Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.

6. Дано расстояние в сантиметрах. Найти число полных метров в нем.

7. В пяти тестовых опросах мальчик получил оценки. Составьте алгоритм и программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.

8. Имеется садовый участок, имеющий форму прямоугольника со сторонами А метров и В метров. Составьте алгоритм и программу, которая определит, сколько досок надо купить, чтобы поставить сплошной забор. Ширина одной доски 10 см.

9. Фруктовый магазин продает яблоки по А руб. за кг., груши по В руб. за кг., апельсины по С руб. за кг. В первые два дня недели продано: понедельник - Х кг. яблок, Y кг. груш, Z кг. апельсинов; вторник - X кг. яблок, Y кг. груш, Z кг. Апельсинов (X, Y, Z - принимают разные значения в понедельник и во вторник). Напишите программу, которая будет вычислять, на какую сумму продал магазин фруктов в каждый из этих дней и за оба дня вместе.

10. Дано четырехзначное число, найти в нем число тысяч, десятков и единиц.

11. Сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов) запись заданного трехзначного числа. Например, для числа 341 таким будет 143.